paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 00:19:29 +02: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

20
rtl/linux/linux.pp
View File

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