blob: ef124708ebf8b36212c5c51f30402537fa4ed6e1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{ %opt=-Sew -vw }
{ Source provided for Free Pascal Bug Report 3952 }
{ Submitted by "Ivo Steinmann" on 2005-05-08 }
{ e-mail: istienmann@bluewin.ch }
var
P: Pointer;
X: Longword;
begin
X := 0;
P := nil;
P := Pointer(P + X - 12);
P := Pointer(P + X + 12);
end.
|
