paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 07:28:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* corrected signactionrec

Browse Source
This commit is contained in:
michael 1998-07-27 13:58:36 +00:00
parent 9af86a2bf0
commit 7e7fb1629b
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/linux/linux.pp
View File

@ -146,10 +146,10 @@ Const
SIGUNUSED = 31;
Type
SignalHandler = Procedure(Sig : Integer);
PSignalHandler = ^SignalHandler;
SignalRestorer = Procedure;
PSignalRestorer = ^SignalRestorer;
SignalHandler = Procedure(Sig : Longint);{$ifndef ver0_99_5}cdecl;{$endif}
PSignalHandler = SignalHandler;
SignalRestorer = Procedure;{$ifndef ver0_99_5}cdecl;{$endif}
PSignalRestorer = SignalRestorer;
SigSet = Integer;
PSigSet = ^SigSet;
@ -157,10 +157,10 @@ Type
{$PACKRECORDS 1}
SigActionRec = record
Sa_Handler : ^SignalHandler;
Sa_Handler : SignalHandler;
Sa_Mask : longint;
Sa_Flags : Integer;
Sa_restorer : ^SignalRestorer;{ Obsolete - Don't use }
Sa_restorer : SignalRestorer;{ Obsolete - Don't use }
end;
PSigActionRec = ^SigActionRec;
{$PACKRECORDS NORMAL}
@ -2518,12 +2518,12 @@ begin
Linuxerror:=SysCall(Syscall_nr_signal,sr);
If linuxerror=Sig_Err then
begin
Signal:=nil;
Signal:=PSignalHandler(nil);
Linuxerror:=errno;
end
else
begin
Signal:=pointer(Linuxerror);
Signal:=PSignalHandler(Linuxerror);
linuxerror:=0;
end;
end;
@ -3505,7 +3505,10 @@ End.
{
$Log$
Revision 1.10 1998-06-16 08:21:58 michael
Revision 1.11 1998-07-27 13:58:36 michael
* corrected signactionrec
Revision 1.10 1998/06/16 08:21:58 michael
* PClose didn't flush textfiles before closing. Now it does
Revision 1.9 1998/06/03 11:55:33 michael