On 09/10/2019 12:09, Martin wrote:
program test;
type
TTinyNegRange = -2..3;
TBitPackTinyNegArray = bitpacked array [0..3] of TTinyNegRange;
TTestArray = bitpacked array [0..3] of byte;
const
// No Error / WRONG Value, prints: 2, -2, -1, -1 // 0 is replaced
by -1
gcBitPackTinyNegArray : TBitPackTinyNegArray = (2, cardinal(-2), 0,
cardinal(-1));
possible related https://bugs.freepascal.org/view.php?id=36156
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
