Производительность 64-битных программ

[ArtSwan]

Доброго времени всем!
Вот заинтересовался лазарем и меня удивил тот факт, что код скомпиленый под 64 бита работает почти в 3 раза медленней того же но 32-битного. Тестировал под Vista x64. Собственно код:

Код: Выделить всё

  SetLength(ar, 1048576);
  FillChar(PChar(ar)^, Length(ar), 'b');
  Timer := GetTickCount;
  for i := 0 to 10000 do
      Pos('aa', ar);
  WriteLn('Time: ' + IntToStr(GetTickCount - Timer) + ' ms');


Почему это происходит?

[Sergei I. Gorelkin]

Кодогенераторы разные. x64 написан не очень давно, и, возможно, не имеет тех оптимизаций, которые есть для i386.
Также весьма вероятно, что ф-ция Pos для i386 написана на ассемблере, а для x64 - нет.

[Logo]

Приведенный Вами код, ничего не говорит.
Дело в том, что для оптимизации 64битных программ необходимо использовать 64-разрядные переменные, вместо Integer - Int64. Работа с указателями, также должна быть подогнана под 64. Могут быть и другие нюансы. Не исключено, что и сама виста не права. Какого типа переменные у вас? Пример, просто, невозможно повторить для проверки. Вопрос по сути интересен, но приведите работающий у вас код с используемыми переменными и подключенными модулями.

[Mr.Smart]

Приведенный Вами код, ничего не говорит.
Дело в том, что для оптимизации 64битных программ необходимо использовать 64-разрядные переменные, вместо Integer - Int64. Работа с указателями, также должна быть подогнана под 64. Могут быть и другие нюансы. Не исключено, что и сама виста не права. Какого типа переменные у вас? Пример, просто, невозможно повторить для проверки. Вопрос по сути интересен, но приведите работающий у вас код с используемыми переменными и подключенными модулями.

В FPC при компиляцию под 64 бита все типы Integer = Int64. И указатели тоже 64 битные

[Logo]

В FPC при компиляцию под 64 бита все типы Integer = Int64. И указатели тоже 64 битные

Теоретически.

[ArtSwan]

Вопрос по сути интересен, но приведите работающий у вас код с используемыми переменными и подключенными модулями.

Это в общем то и есть работающий код: вот объявления переменных для полноты картины

Код: Выделить всё

var
  ar: string;
  i: integer;
  Timer: Cardinal;
begin
  SetLength(ar, 1048576);
  FillChar(PChar(ar)^, Length(ar), 'b');
  Timer := GetTickCount;
  for i := 0 to 10000 do
      Pos('aa', ar);
  WriteLn('Time: ' + IntToStr(GetTickCount - Timer) + ' ms');
end;


проект создан мастером, тип - консольное приложение, из модулей добавлен только Windows (для GetTickCount).

для оптимизации 64битных программ необходимо использовать 64-разрядные переменные, вместо Integer - Int64. Работа с указателями, также должна быть подогнана под 64.

Я не думаю что переменная цикла могла так сказаться на скорости выполнения - очевидно что все дело в функции Pos которая в свою очередь использует CompareByte на асме - и вот она скорее всего оптимизирована под i386. Кстати более быстрой реализации Pos чем в Делфи я больше нигде не видел.