Преглед на файлове

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

pierre преди 25 години
родител
ревизия
c93f715239
променени са 1 файла, в които са добавени 5 реда и са изтрити 1 реда
  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 }
  sel:=0;
  v:=nil;
+{$ifdef go32v2}
+  { on win9X no zero page protection :( }
+  v:=pointer(-2);
+{$endif go32v2}
  word(v^):=sel;
  { we should not go to here }
  Writeln('Error : signal not called');
  Halt(1);
 {$endif OK}
-end.
+end.