mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
5af40f22e8
all of their values, when kept in a bitpacked array, properly via
pass_typecheck rather than hacking location.size in pass_generate_code:
o the old fix was incomplete (it didn't handle non-constant indices)
o the old fix didn't work for llvm (since it uses defs rather than
location.size)
git-svn-id: trunk@33943 -
25 lines
409 B
ObjectPascal
25 lines
409 B
ObjectPascal
{$packenum 2}
|
|
type
|
|
tenum = (ea,eb,ec,ed,ee,ef:=255);
|
|
tb = array[1..16] of byte;
|
|
const
|
|
res: array[1..6] of byte = (0,1,2,3,4,255);
|
|
var
|
|
a: bitpacked array[1..16] of tenum;
|
|
i: longint;
|
|
begin
|
|
writeln(sizeof(a));
|
|
a[1]:=ea;
|
|
a[2]:=eb;
|
|
a[3]:=ec;
|
|
a[6]:=ef;
|
|
a[5]:=ee;
|
|
i:=4;
|
|
a[i]:=ed;
|
|
for i := 1 to 6 do
|
|
begin writeln(tb(a)[i]);
|
|
if (tb(a)[i] <> res[i]) then
|
|
halt(1); end;
|
|
end.
|
|
|