[fpc-pascal] Class var in record breaks pointer cast

[Hairy Pixels via fpc-pascal]

Is this a bug? Adding the class var field changes prints 0 and without it
prints 100 as expected. The class var is just a static field that isn't
actually part of the record so how could it affect the memory layout?

type
  TMyRec = record
    class var z: UInt32;
    x, y: UInt32;
  end;

var
  r: TMyRec;
  p: pointer;
begin
  r.x := 100;
  p := @r;

  writeln(PUInt32(p)^);
end.

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal