paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 06:39:25 +01: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;
Type
SignalHandler = Procedure(Sig : LongInt);
SignalHandler = Procedure(Sig : LongInt);cdecl;
PSignalHandler = ^SignalHandler;
SignalRestorer = Procedure;
SignalRestorer = Procedure;cdecl;
PSignalRestorer = ^SignalRestorer;
SigSet = Integer;
@ -157,10 +157,10 @@ Type
{$PACKRECORDS 1}
SigActionRec = record
Sa_Handler : PSignalHandler;
Sa_Handler : SignalHandler;
Sa_Mask : longint;
Sa_Flags : Integer;
Sa_restorer : PSignalRestorer;{ Obsolete - Don't use }
Sa_restorer : SignalRestorer;{ Obsolete - Don't use }
end;
PSigActionRec = ^SigActionRec;
{$PACKRECORDS NORMAL}
@ -595,7 +595,7 @@ Procedure SigAction(Signum:Integer;Var Act,OldAct:PSigActionRec );
Procedure SigProcMask (How:Integer;SSet,OldSSet:PSigSet);
Function SigPending: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;
{**************************
@ -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.
The old signal handler is returned.
@ -2538,7 +2538,7 @@ begin
end
else
begin
Signal:=psignalhandler(Linuxerror);
Signal:=signalhandler(Linuxerror);
linuxerror:=0;
end;
end;
@ -3529,7 +3529,10 @@ End.
{
$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
Revision 1.16 1998/08/16 10:23:28 michael