blob: 5cb317de7af9dda45819adb7ec3c0ae2afb4fe24 (
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
|
{$bitpacking on}
type
tenum = (ea,eb,ec,ed,ee,ef,eg,eh);
tr = packed record
a: 0..3; // 2 bits
i: int64;
c: boolean; // 1 bit
d: 0..31; // 5 bits
e: tenum; // 3 bits
end;
procedure t(var r2: tr);
var
r: tr;
begin
r.a := 2;
r.i := 1234567890123456789;
r.c := true;
r.d := 5;
r.e := ed;
r2 := r;
end;
var
r: tr;
begin
t(r);
if (r.a <> 2) or
(r.i <> 1234567890123456789) or
(not r.c) or
(r.d <> 5) or
(r.e <> ed) then
halt(1);
end.
|
