fpcdocs/refex/ex64.pp


1
2
3
4
5
6
7
8
9

program Example64;

{ Program to demonstrate the sptr function. }

var p:ptruint;

begin
  p:=ofs(sptr); { P Contains now the current stack position. }
end.