Менеджер памяти в 10.1 Berlin

[Maka111]

Добрый день.
А что за косяк у Berlin с менеджером памяти?
Вот такой код:

type
  TLn = record
  aaa: array[0..100000] of Integer;
  bbb: string;
end;
var
  iA: Integer;
  mas: array of TLn;
begin
  mas := nil;
  for iA := 0 to 1000 do SetLength(mas, Length(mas) + 1);
end;

на Seattle и ниже выполняется мгновенно, а на Berlin каждая итерация SetLegth существенно медленнее предыдущей, и в итоге этот код на много порядков медленнее.

[Alex11223]

Ну пишите баг-репорт, может поправят когда-нибудь