fpcsrc/tests/tbs/tb0443.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

{ %version=1.1}
{$ifdef fpc}
  {$mode delphi}
{$else}
type
  qword = int64;
{$endif}

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.