paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 10:06:23 +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; SIGUNUSED = 31;
Type Type
SignalHandler = Procedure(Sig : Integer); SignalHandler = Procedure(Sig : Longint);{$ifndef ver0_99_5}cdecl;{$endif}
PSignalHandler = ^SignalHandler; PSignalHandler = SignalHandler;
SignalRestorer = Procedure; SignalRestorer = Procedure;{$ifndef ver0_99_5}cdecl;{$endif}
PSignalRestorer = ^SignalRestorer; PSignalRestorer = SignalRestorer;
SigSet = Integer; SigSet = Integer;
PSigSet = ^SigSet; PSigSet = ^SigSet;
@ -157,10 +157,10 @@ Type
{$PACKRECORDS 1} {$PACKRECORDS 1}
SigActionRec = record SigActionRec = record
Sa_Handler : ^SignalHandler; Sa_Handler : SignalHandler;
Sa_Mask : longint; Sa_Mask : longint;
Sa_Flags : Integer; Sa_Flags : Integer;
Sa_restorer : ^SignalRestorer;{ Obsolete - Don't use } Sa_restorer : SignalRestorer;{ Obsolete - Don't use }
end; end;
PSigActionRec = ^SigActionRec; PSigActionRec = ^SigActionRec;
{$PACKRECORDS NORMAL} {$PACKRECORDS NORMAL}
@ -2518,12 +2518,12 @@ begin
Linuxerror:=SysCall(Syscall_nr_signal,sr); Linuxerror:=SysCall(Syscall_nr_signal,sr);
If linuxerror=Sig_Err then If linuxerror=Sig_Err then
begin begin
Signal:=nil; Signal:=PSignalHandler(nil);
Linuxerror:=errno; Linuxerror:=errno;
end end
else else
begin begin
Signal:=pointer(Linuxerror); Signal:=PSignalHandler(Linuxerror);
linuxerror:=0; linuxerror:=0;
end; end;
end; end;
@ -3505,7 +3505,10 @@ End.
{ {
$Log$ $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 * PClose didn't flush textfiles before closing. Now it does
Revision 1.9 1998/06/03 11:55:33 michael Revision 1.9 1998/06/03 11:55:33 michael