blob: ea3982033184b794c9329bb86abebd5dabde0883 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
var
p: pointer;
u: ptruint;
i: cardinal;
begin
p:=pointer(1);
for i:=0 to 15 do
if align(p+i,16)<>pointer(16) then
halt(1);
p:=pointer(41);
for i:=0 to 39 do
if align(p+i,40)<>pointer(80) then
halt(2);
u:=1;
for i:=0 to 15 do
if align(u+i,16)<>16 then
halt(3);
u:=41;
for i:=0 to 39 do
if align(u+i,40)<>80 then
halt(4);
end.
|
