mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:28:55 +02:00
0db9ff5c39
and upper bound just below the next power of two (mantis #34971) git-svn-id: trunk@41161 -
26 lines
317 B
ObjectPascal
26 lines
317 B
ObjectPascal
type
|
|
t1 = -1..1;
|
|
t2 = -4..3;
|
|
t3 = -3..4;
|
|
type
|
|
r1 = bitpacked record
|
|
f: t1;
|
|
end;
|
|
|
|
r2 = bitpacked record
|
|
f: t2;
|
|
end;
|
|
|
|
r3 = bitpacked record
|
|
f: t3;
|
|
end;
|
|
|
|
begin
|
|
if bitsizeof(r1.f)<>2 then
|
|
halt(1);
|
|
if bitsizeof(r2.f)<>3 then
|
|
halt(2);
|
|
if bitsizeof(r3.f)<>4 then
|
|
halt(3);
|
|
end.
|