[fpc-pascal] Bitpacked bug?

[Jeppe Johansen]

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