mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 19:39:33 +02:00
56 lines
1005 B
ObjectPascal
56 lines
1005 B
ObjectPascal
{ Old file: tbs0105.pp }
|
|
{ typecasts are now ignored problem (NOT A bugs) OK 0.99.1 }
|
|
|
|
{$ifdef go32v2}
|
|
{$define OK}
|
|
{$endif}
|
|
{$ifdef linux}
|
|
{$define OK}
|
|
{$endif}
|
|
{$ifdef freebsd}
|
|
{$define OK}
|
|
{$endif}
|
|
|
|
{ Win32 signal support is still missing ! }
|
|
|
|
{$ifdef OK}
|
|
|
|
{$ifdef go32v2}
|
|
uses dpmiexcp;
|
|
{$endif go32v2}
|
|
{$ifdef unix}
|
|
{$ifdef ver1_0}
|
|
uses linux;
|
|
{$else}
|
|
uses unix;
|
|
{$endif}
|
|
{$endif unix}
|
|
|
|
function our_sig(l : longint) : longint;{$ifdef unix}cdecl;{$endif}
|
|
begin
|
|
{ If we land here the program works correctly !! }
|
|
Writeln('Sigsegv signal recieved');
|
|
our_sig:=0;
|
|
Halt(0);
|
|
end;
|
|
|
|
Var
|
|
Sel: Word;
|
|
v: pointer;
|
|
{$endif OK}
|
|
Begin
|
|
{$ifdef OK}
|
|
Signal(SIGSEGV,signalhandler(@our_sig));
|
|
{ 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. |