fpcsrc/tests/tbs/tb0400.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %version=1.1}
{$mode delphi}
var
   b : byte;
   i : smallint;
   i64 : int64;
   q : qword;
   p : pointer;

begin
   p:=pointer(b);
   p:=pointer(i);
   p:=pointer(i64);
   p:=pointer(q);
end.