38

XE8 にアップグレードした後、一部のプロジェクトでデータが破損し始めました。TList 実現のバグのようです。

program XE8Bug1;
{$APPTYPE CONSOLE}

uses
  System.SysUtils, Generics.Collections;

type
  TRecord = record
    A: Integer;
    B: Int64;
  end;

var
  FRecord: TRecord;
  FList: TList<TRecord>;

begin
  FList := TList<TRecord>.Create;
  FRecord.A := 1;
  FList.Insert(0, FRecord);
  FRecord.A := 3;
  FList.Insert(1, FRecord);
  FRecord.A := 2;
  FList.Insert(1, FRecord);
  Writeln(IntToStr(FList[0].A) + IntToStr(FList[1].A) + IntToStr(FList[2].A));

end.

このコードは、XE7 以前では (あるべき姿で) "123" を出力しますが、XE8 では "120" を出力します。多分誰かがこれのクイックフィックスを知っていますか?

更新:非公式の修正はこちら

4

1 に答える 1

32

TList<T>.Insert私の場合、メソッド呼び出しTListHelper.InternalInsertXはデータサイズに依存することがわかりました：

procedure TListHelper.InternalInsertN(AIndex: Integer; const Value);
var
  ElemSize: Integer;
begin
  CheckInsertRange(AIndex);

  InternalGrowCheck(FCount + 1);
  ElemSize := ElSize;
  if AIndex <> FCount then
    Move(PByte(FItems^)[AIndex * ElemSize], PByte(FItems^)[(AIndex * ElemSize) + 1], (FCount - AIndex) * ElemSize);
  Move(Value, PByte(FItems^)[AIndex * ElemSize], ElemSize);
  Inc(FCount);
  FNotify(Value, cnAdded);
end;

Move最初の呼び出しで問題が発生しました。宛先は次のとおりです。

PByte(FItems^)[(AIndex + 1) * ElemSize]

いいえ

PByte(FItems^)[(AIndex * ElemSize) + 1]

ああああ！

最後に、プロジェクトで Delphi XE7 の System.Generics.Defaults.pas および System.Generics.Collections.pas ユニットを使用しましたが、すべてが期待どおりに機能するようになりました。

更新: ご覧のとおり、RTL は影響を受けませんTList<T>.Insert。SizeOf > 8 の T には使用されないためです (または、何か見逃しているのでしょうか?)

于 2015-04-27T22:45:05.133 に答える