blob: e96d058854ac604ced1a0fa4762f5c264d375cfd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
{ %TARGET=go32v2,linux }
{ %SKIPEMU=qemu-arm }
{ Old file: tbs0105.pp }
{ typecasts are now ignored problem (NOT A bugs) OK 0.99.1 }
{ Win32 signal support is still missing ! }
{$ifdef go32v2}
uses dpmiexcp;
{$endif go32v2}
{$ifdef unix}
{$ifdef ver1_0}
uses linux;
{$else}
uses baseunix;
{$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;
Begin
{$ifdef unix}
{$ifdef ver1_0}
Signal(SIGSEGV,signalhandler(@our_sig));
{$else}
fpSignal(SIGSEGV,signalhandler(@our_sig));
{$endif}
{$else}
Signal(SIGSEGV,signalhandler(@our_sig));
{$endif}
{ 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);
end.
|
