RS
К примеру, вот так деликатно можно читать биты любого байта
var
X:double;
Y:bitpacked array[0..sizeof(x)*8-1] of 0..1 absolute X;Size: a a a
2021 December 14
RS
Аналогично можно также разбирать к примеру set'ы
ПП
Проверь ка честная там упаковка или нет? Что SizeOf структуре скажет?
{$BITPACKING ON}
type
TTest = bitpacked record
F1: $0..$F; // 4 bits
F2: $0..$F; // 4 bits
end;DB
жаль делфя не умеет. пришлось самому замену делать
z
1 а должен 0.5?
z
поллитра?
ПП
два по 0.5 сколько? Прааально - литр
z
ловлю баг у себя, похоже на разницу в способе передачи параметра с временной переменной и без
RS
Все верно написал @zamtmn , ровно 1 дает
ПП
ну есесно, если бы было не честное - то выдало бы двойку
z
он и так наврать может, биты не упаковать внутри одного байта))
ПП
чойта? 8 бит в байт не влазиют? :))))
z
я бы понял если управляемые типы, но у меня с обычными типами
z
program Project1;
{$IFNDEF FPC}{$APPTYPE CONSOLE}{$ENDIF}
uses
SysUtils;
type
PTEntity=^TEntity;
TEntity=object
function Clone:PTEntity;
end;
TEntitys=object
procedure Add(var Entity:TEntity);
end;
function TEntity.Clone:PTEntity;
begin
end;
procedure TEntitys.Add(var Entity:TEntity);
begin
end;
var
Entity:TEntity;
PEntity:PTEntity;
Entitys:TEntitys;
begin
Entitys.Add(Entity.Clone^);
PEntity:=Entity.Clone;
Entitys.Add(PEntity^);
end.
имхо эти 2 вызова Add должны бвть одинаковыми, но по факту нет((ПП
а как определил что они не одинаковые?
z
сорян, торможу, проверяю что с case record вернет - про это и пишу
z
в асемблер пока не лез. но в моем миропонимании эти варианты должны быть совершенно одинаковые
z
естественно баг может быть и в другом месте, но похоже что тут
ПП
в дельфе это два идентичных вызова
z
понял, спасиб. пока разбираюсь, реальный пример сложно воспроизводится