|
@@ -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.
|