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

Reply via email to