Баг компилятора - generic запись внутри записи имеет размер указателя , Проверьте плз на новых версиях

[Fr0sT]

Полдня убил на поиски загадочного бага, оказалось, что XE2 считает, что записи с дженериками внутри других записей имеют размер одного указателя. Но запись и чтение при этом как положено. Соответственно целая куча веселых последствий

type
  TGenRec<T> = record
    Int1, Int2: Integer;
  end;
 
var
  Rec : record
    GenRec: TGenRec<string>;
    Int: Integer;
  end;
 
procedure Test;
begin
  if SizeOf(Rec) <> SizeOf(Integer)*3 then
    ShowMessage('BUG!');
 
  ZeroMemory(@Rec, SizeOf(Rec));
  Rec.Int := $DEADC0DE;
  if Rec.GenRec.Int2 = Integer($DEADC0DE) then
    ShowMessage('BUG!');
end;

Проверьте, кому не сложно, на новых версиях.

Сообщение отредактировано: Fr0sT - 21.04.16, 13:14

[jack128]

В Сиэтле - без багов

[Fr0sT]

Ага, принято. Теперь интересно про более старые версии.