On 5/12/19 5:58 PM, Victor Campillo wrote:
case integer of
0: (bit0: Boolean);
1: (bit1: Boolean);
2: (bit2: Boolean);
3: (bit3: Boolean);
4: (bit4: Boolean);
5: (bit5: Boolean);
6: (bit6: Boolean);
7: (bit7: Boolean);
8: (bit8: Boolean);
9: (bit9: Boolean);
10: (bit10: Boolean);
11: (bit11: Boolean);
12: (bit12: Boolean);
13: (bit13: Boolean);
14: (bit14: Boolean);
15: (bit15: Boolean);
end);
With this layout bit0 to bit15 will all point to bit0. You probably
didn't mean to do the case inside the bitpacked record
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
