with и без with

type
  TRecord = record
    A: Integer;
    B: Integer;
    C: Double;
  end;

  TRecordArray = array of TRecord;

procedure TForm9.FormCreate(Sender: TObject);
var
  RA: TRecordArray;
begin
  SetLength(RA, 10);
  with RA[1] do
  begin
    A := 3;
    B := 2;
    C := 1;
  end;
  RA[1].A := 3;
  RA[1].B := 2;
  RA[1].C := 1;
end;

Я думал, компилятор выделенное давно умеет оптимизировать...

в том числе поэтому я за with.

Квейд,

Решается дополнительной локальной переменной (указатель на TRecord), их компилятор умеет раскладывать по регистрам если ему не мешать. with, в текущем её виде, очень опасная конструкция.

Квейд,

А оптимизацию в debug-сборке включили?..

alekcvp,

Я проверял релизную сборку и сморел внешним дизассемблером. Оптимизации это не про дельфю.

alekcvp	↑
Квейд, А оптимизацию в debug-сборке включили?..

разумеется

Посмотрел FPC, он в обоих вариантах обновляет значение EAX. Дополнительная переменная ему тоже помогает.

Посмотрел ещё Oxygene... Он вообще выкинул лишние операции, оставив только однократное присваивание. А чтобы он и его не выкинул пришлось в конце метода добавить вывод в консоль. Вот что LLVM животворящий умело приготовленный делает. Эх... :(

Это только с динамическим массивом, а вот с таким
PRecordArray = ^TRecordArray;
TRecordArray = array[0..9] of TRecord;
нормально оптимизирует. И вроде бы с дин. массивом переданным как const.

Kazantsev Alexey	↑
Вот что LLVM животворящий умело приготовленный делает. Эх... :(

Можно и к fpc прикрутить LLVM, но не под Виндой.
https://wiki.freepascal.org/LLVM#Build_FPC_with_LLVM_support