Bug with packed arrays

4 Aug 2006

      Hello,

While working on packed array support for FPC and verifying against  
GPC, I discovered a bug in GPC's packed array support. The following  
program prints 0 as second line instead of 1540222835

***
type
   ta = packed 0..$7fffffff;
   tb = packed array[0..40] of ta;

function test(i: longint): integer;
var
   b: tb;
begin
   b[1] := $5BCDEF73;
   test := b[i];
end;

begin
   writeln(sizeof(tb));
   writeln(test(1));
end.
***

Jonas

Jonas Maebe

tags

participants (5)