Browse Source

Adapted to changed Signal call

michael 27 năm trước cách đây
mục cha
commit
fbfaf30c0b
1 tập tin đã thay đổi với 7 bổ sung8 xóa
  1. 7 8
      compiler/catch.pas

+ 7 - 8
compiler/catch.pas

@@ -33,17 +33,13 @@ uses
   verbose;
 
 Var
-{$ifdef linux}
-  NewSignal,OldSigSegm,OldSigInt : PSignalHandler;
-{$else}
   NewSignal,OldSigSegm,OldSigInt : SignalHandler;
-{$endif}
 
 
 Implementation
 
 {$ifdef linux}
-Procedure CatchSignal(Sig : Integer);
+Procedure CatchSignal(Sig : Integer);cdecl;
 {$else}
 Function CatchSignal(Sig : longint):longint;
 {$endif}
@@ -67,7 +63,7 @@ end;
 
 begin
 {$ifdef linux}
-  NewSignal:=PSignalHandler(@CatchSignal);
+  NewSignal:=@CatchSignal;
   OldSigSegm:=Signal (SIGSEGV,NewSignal);
   OldSigInt:=Signal (SIGINT,NewSignal);
 {$else}
@@ -79,8 +75,11 @@ end.
 
 {
   $Log$
-  Revision 1.1  1998-03-25 11:18:12  root
-  Initial revision
+  Revision 1.2  1998-09-08 13:01:09  michael
+  Adapted to changed Signal call
+
+  Revision 1.1.1.1  1998/03/25 11:18:12  root
+  * Restored version
 
   Revision 1.5  1998/03/10 01:17:15  peter
     * all files have the same header