blob: c14d05223cfd382d073d67a72d889fcd2916d4cc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
type
TRec = record
bbb: array[1..8] of byte;
w: word;
end;
TRec2 = packed record
a: array[1..9] of char;
end;
procedure dotest(p: TRec);
var
i: longint;
begin
for i:=1 to 8 do
write(p.bbb[i], ' ');
writeln;
if qword(p.bbb)<>$0102030405060708 then begin
writeln('Test FAILED.');
Halt(1);
end;
end;
procedure dotest2(p: TRec);
var
rr: TRec2;
pp: TRec;
begin
pp:=p;
dotest(pp);
end;
var
b: byte;
p: TRec;
i: longint;
begin
qword(p.bbb):=$0102030405060708;
dotest2(p);
writeln('Test OK.');
end.
|
