paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 17:31:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

restored previous version. A bug in the compiler prevents compilation.

Browse Source
This commit is contained in:
michael 1998-07-28 09:27:06 +00:00
parent 4caf39e3ac
commit 3fc40cebb2
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/linux/linux.pp
View File

@ -146,10 +146,10 @@ Const
SIGUNUSED = 31; SIGUNUSED = 31;
Type Type
SignalHandler = Procedure(Sig : Longint);{$ifndef ver0_99_5}cdecl;{$endif} SignalHandler = Procedure(Sig : LongInt);
PSignalHandler = SignalHandler; PSignalHandler = ^SignalHandler;
SignalRestorer = Procedure;{$ifndef ver0_99_5}cdecl;{$endif} SignalRestorer = Procedure;
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 : PSignalHandler;
Sa_Mask : longint; Sa_Mask : longint;
Sa_Flags : Integer; Sa_Flags : Integer;
Sa_restorer : SignalRestorer;{ Obsolete - Don't use } Sa_restorer : PSignalRestorer;{ 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:=PSignalHandler(nil); Signal:=nil;
Linuxerror:=errno; Linuxerror:=errno;
end end
else else
begin begin
Signal:=PSignalHandler(Linuxerror); Signal:=psignalhandler(Linuxerror);
linuxerror:=0; linuxerror:=0;
end; end;
end; end;
@ -3505,8 +3505,8 @@ End.
{ {
$Log$ $Log$
Revision 1.11 1998-07-27 13:58:36 michael Revision 1.12 1998-07-28 09:27:06 michael
* corrected signactionrec restored previous version. A bug in the compiler prevents compilation.
Revision 1.10 1998/06/16 08:21:58 michael 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