Ver código fonte

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

pierre 25 anos atrás
pai
commit
c93f715239
1 arquivos alterados com 5 adições e 1 exclusões
  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.