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

rtl/linux/linux.pp

@@ -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