Thank you Jonas.
Now I was trying if something like this would work:
TTest=(one,two,three,four);
TTestarray = {bitpacked} array [1..100000] of ttest;
PTestarray = ^TTestarray;
var lMask: PTestarray;
begin
getmem(lMask, 25);
lMask^[99]:=three;
case lMask^[99] of
one:writeln('one');
two:writeln('two');
three:writeln('three');
four:writeln('four');
end;
freemem(lMask);
end;
It seems, to work, but it even works with commented "bitpacked".
Shouldn't this fail? How can I test this? I have all checks on which
Lazarus IDE offers, but it's still happy.
>From what I understand, this would need 400 bytes in this scenario (not
bitpacked), isn't it?
Thank you
Theo
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
