Browse Source

* adapted to win95 where zero is does not create a page fault

pierre 25 years ago
parent
commit
c93f715239
1 changed files with 5 additions and 1 deletions
  1. 5 1
      tests/tbs/tbs0105.pp

+ 5 - 1
tests/tbs/tbs0105.pp

@@ -34,9 +34,13 @@ Begin
  { generate a sigsegv by writing to null-address }
  { generate a sigsegv by writing to null-address }
  sel:=0;
  sel:=0;
  v:=nil;
  v:=nil;
+{$ifdef go32v2}
+  { on win9X no zero page protection :( }
+  v:=pointer(-2);
+{$endif go32v2}
  word(v^):=sel;
  word(v^):=sel;
  { we should not go to here }
  { we should not go to here }
  Writeln('Error : signal not called');
  Writeln('Error : signal not called');
  Halt(1);
  Halt(1);
 {$endif OK}
 {$endif OK}
-end.
+end.