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

+ Signal call now correctly implemented

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

19
rtl/linux/linux.pp
View File

@ -146,9 +146,9 @@ Const
SIGUNUSED = 31; SIGUNUSED = 31;
Type Type
SignalHandler = Procedure(Sig : LongInt); SignalHandler = Procedure(Sig : LongInt);cdecl;
PSignalHandler = ^SignalHandler; PSignalHandler = ^SignalHandler;
SignalRestorer = Procedure; SignalRestorer = Procedure;cdecl;
PSignalRestorer = ^SignalRestorer; PSignalRestorer = ^SignalRestorer;
SigSet = Integer; SigSet = Integer;
@ -157,10 +157,10 @@ Type
{$PACKRECORDS 1} {$PACKRECORDS 1}
SigActionRec = record SigActionRec = record
Sa_Handler : PSignalHandler; Sa_Handler : SignalHandler;
Sa_Mask : longint; Sa_Mask : longint;
Sa_Flags : Integer; Sa_Flags : Integer;
Sa_restorer : PSignalRestorer;{ Obsolete - Don't use } Sa_restorer : SignalRestorer;{ Obsolete - Don't use }
end; end;
PSigActionRec = ^SigActionRec; PSigActionRec = ^SigActionRec;
{$PACKRECORDS NORMAL} {$PACKRECORDS NORMAL}
@ -595,7 +595,7 @@ Procedure SigAction(Signum:Integer;Var Act,OldAct:PSigActionRec );
Procedure SigProcMask (How:Integer;SSet,OldSSet:PSigSet); Procedure SigProcMask (How:Integer;SSet,OldSSet:PSigSet);
Function SigPending:SigSet; Function SigPending:SigSet;
Procedure SigSuspend(Mask:Sigset); Procedure SigSuspend(Mask:Sigset);
Function Signal(Signum:Integer;Handler:PSignalHandler):PSignalHandler; Function Signal(Signum:Integer;Handler:SignalHandler):SignalHandler;
Function Kill(Pid:longint;Sig:integer):integer; Function Kill(Pid:longint;Sig:integer):integer;
{************************** {**************************
@ -2519,7 +2519,7 @@ end;
Function Signal(Signum:Integer;Handler:PSignalHandler):PSignalHandler; Function Signal(Signum:Integer;Handler:SignalHandler):SignalHandler;
{ {
Install a new handler for signal Signum. Install a new handler for signal Signum.
The old signal handler is returned. The old signal handler is returned.
@ -2538,7 +2538,7 @@ begin
end end
else else
begin begin
Signal:=psignalhandler(Linuxerror); Signal:=signalhandler(Linuxerror);
linuxerror:=0; linuxerror:=0;
end; end;
end; end;
@ -3529,7 +3529,10 @@ End.
{ {
$Log$ $Log$
Revision 1.17 1998-08-19 00:50:31 peter Revision 1.18 1998-09-08 13:01:51 michael
+ Signal call now correctly implemented
Revision 1.17 1998/08/19 00:50:31 peter
* 'i<>0 and ' needs brackets * 'i<>0 and ' needs brackets
Revision 1.16 1998/08/16 10:23:28 michael Revision 1.16 1998/08/16 10:23:28 michael