Вопрос по сути интересен, но приведите работающий у вас код с используемыми переменными и подключенными модулями.
Это в общем то и есть работающий код: вот объявления переменных для полноты картины
var
ar: string;
i: integer;
Timer: Cardinal;
begin
SetLength(ar, 1048576 ...
Найдено 2 результата
- 20.03.2009 12:53:20
- Форум: Free Pascal Compiler
- Тема: Производительность 64-битных программ
- Ответы: 5
- Просмотры: 5020
- 18.03.2009 00:39:39
- Форум: Free Pascal Compiler
- Тема: Производительность 64-битных программ
- Ответы: 5
- Просмотры: 5020
Производительность 64-битных программ
Доброго времени всем!
Вот заинтересовался лазарем и меня удивил тот факт, что код скомпиленый под 64 бита работает почти в 3 раза медленней того же но 32-битного. Тестировал под Vista x64. Собственно код:
SetLength(ar, 1048576);
FillChar(PChar(ar)^, Length(ar), 'b');
Timer := GetTickCount ...
Вот заинтересовался лазарем и меня удивил тот факт, что код скомпиленый под 64 бита работает почти в 3 раза медленней того же но 32-битного. Тестировал под Vista x64. Собственно код:
SetLength(ar, 1048576);
FillChar(PChar(ar)^, Length(ar), 'b');
Timer := GetTickCount ...