paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 16:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

Adapted to changed Signal call

Browse Source
This commit is contained in:
michael 1998-09-08 13:01:09 +00:00
parent b3d8746132
commit fbfaf30c0b
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/catch.pas
View File

@ -33,17 +33,13 @@ uses
verbose; verbose;
Var Var
{$ifdef linux}
NewSignal,OldSigSegm,OldSigInt : PSignalHandler;
{$else}
NewSignal,OldSigSegm,OldSigInt : SignalHandler; NewSignal,OldSigSegm,OldSigInt : SignalHandler;
{$endif}
Implementation Implementation
{$ifdef linux} {$ifdef linux}
Procedure CatchSignal(Sig : Integer); Procedure CatchSignal(Sig : Integer);cdecl;
{$else} {$else}
Function CatchSignal(Sig : longint):longint; Function CatchSignal(Sig : longint):longint;
{$endif} {$endif}
@ -67,7 +63,7 @@ end;
begin begin
{$ifdef linux} {$ifdef linux}
NewSignal:=PSignalHandler(@CatchSignal); NewSignal:=@CatchSignal;
OldSigSegm:=Signal (SIGSEGV,NewSignal); OldSigSegm:=Signal (SIGSEGV,NewSignal);
OldSigInt:=Signal (SIGINT,NewSignal); OldSigInt:=Signal (SIGINT,NewSignal);
{$else} {$else}
@ -79,8 +75,11 @@ end.
{ {
$Log$ $Log$
Revision 1.1 1998-03-25 11:18:12 root Revision 1.2 1998-09-08 13:01:09 michael
Initial revision Adapted to changed Signal call
Revision 1.1.1.1 1998/03/25 11:18:12 root
* Restored version
Revision 1.5 1998/03/10 01:17:15 peter Revision 1.5 1998/03/10 01:17:15 peter
* all files have the same header * all files have the same header