Bitpacked objects do not work as expected
Original Reporter info from Mantis: SirHelly
-
Reporter name: H.Hartl
Original Reporter info from Mantis: SirHelly
- Reporter name: H.Hartl
Description:
Bitpacked objects should work like bitpacked records - or give an compiler error message.
Steps to reproduce:
compile sample & run
Additional information:
program bitpack_test;
{$mode objfpc}{$H+}
type
TA=bitpacked record
f1:boolean;
f2:boolean;
end;
{$PACKRECORDS 1}
TB=bitpacked object
f1:boolean;
f2:boolean;
procedure Reset;
end;
procedure TB.Reset;
begin
f1:=false;
f2:=false;
end;
begin
writeln('Sizeof A = ',sizeof(TA),' Sizeof B = ',sizeof(TB));
// Sizeof A = 1 Sizeof B = 2
end.
Mantis conversion info:
- Mantis ID: 17258
- OS: OSX
- OS Build: 10.6.4
- Build: 15724
- Platform: i386
- Version: 2.5.1