paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +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;
Var
{$ifdef linux}
NewSignal,OldSigSegm,OldSigInt : PSignalHandler;
{$else}
NewSignal,OldSigSegm,OldSigInt : SignalHandler;
{$endif}
Implementation
{$ifdef linux}
Procedure CatchSignal(Sig : Integer);
Procedure CatchSignal(Sig : Integer);cdecl;
{$else}
Function CatchSignal(Sig : longint):longint;
{$endif}
@ -67,7 +63,7 @@ end;
begin
{$ifdef linux}
NewSignal:=PSignalHandler(@CatchSignal);
NewSignal:=@CatchSignal;
OldSigSegm:=Signal (SIGSEGV,NewSignal);
OldSigInt:=Signal (SIGINT,NewSignal);
{$else}
@ -79,8 +75,11 @@ end.
{
$Log$
Revision 1.1 1998-03-25 11:18:12 root
Initial revision
Revision 1.2 1998-09-08 13:01:09 michael
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
* all files have the same header