blob: 1b96afa4f4af3e178db132e222d3938620ef475d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ %opt=-vw -Sew }
{ %norun }
{$mode macpas}
program nowarnings;
var
p: Pointer;
offs: PtrInt;
a: array[ 1..100] of integer;
begin
{$warnings on}
p:= @a;
offs:= SizeOf(integer);
{$warnings off}
PtrUInt(p):=PtrInt(p) + offs;
{$warnings on}
end.
|
