Browse Source

* fpSignal

peter 22 years ago
parent
commit
9e5e82751c
1 changed files with 9 additions and 1 deletions
  1. 9 1
      tests/tbs/tb0089.pp

+ 9 - 1
tests/tbs/tb0089.pp

@@ -12,7 +12,7 @@
  {$ifdef ver1_0}
  uses linux;
  {$else}
- uses unix;
+ uses baseunix;
  {$endif}
 {$endif unix}
 
@@ -28,7 +28,15 @@ Var
  Sel: Word;
  v: pointer;
 Begin
+ {$ifdef unix}
+ {$ifdef ver1_0}
+ Signal(SIGSEGV,signalhandler(@our_sig));
+ {$else}
+ fpSignal(SIGSEGV,signalhandler(@our_sig));
+ {$endif}
+ {$else}
  Signal(SIGSEGV,signalhandler(@our_sig));
+ {$endif}
  { generate a sigsegv by writing to null-address }
  sel:=0;
  v:=nil;