Repository URL to install this package:
Version:
3.0.0 ▾
|
{ %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.