paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 14:09:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
pierre 2000-04-14 05:45:22 +00:00
parent ddd554ab2a
commit c93f715239
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/tbs/tbs0105.pp
View File

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