blob: 2111efa22f11dcd6594371f18cb96e6a134814c6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ %opt=-Sew -vw }
type
PUI32 = ^Longword;
var
P : PUI32;
Count : Longint;
Dw : Longword;
begin
Dw:=1;
Count:=1;
p:=@DW;
// Increase pointer
Inc(P,Count);
if Dw<>1 then
halt(1);
end.
|