Требуется разъяснение Специалистов

[pro_berserk]

Доброго времени суток, уважаемые форумчане, любители FreePascal и Lazarus.
Помогите пожалуйста понять причину следующего "явления", самому увы в силу уровня знаний, понять не удаётся
Начну из далека: Решился я таки посмотреть что за зверь такой этот PascalABC.NET (Далее PABC) открыл я значит Данный документ, читаю какой FPC убогий и прочие восхваление PABC, дохожу до страницы №8 (Это все на что меня хватило ) и вижу там заявление, что производительность программ на PABC выше чем на FPC, честно говоря задело.
Установил PABC перенес примеры из текста по сравнению производительности, проверяю, расстраиваюсь:
Код PABC: Среднее время выполнения на моем Intel i5-4210H - 425мс

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

begin
var n := 10000;
var s := 0.0;
for var i:=1 to n do
for var j:=1 to n do
s += 1.0/(i*j);
writeln(Milliseconds); 
end.


Код FPC: Среднее время выполнения - 575мс

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

var
  tt:Cardinal;
  n,i,j: integer;
  s: real;
begin
tt:=GetTickCount64;
n := 10000;
s := 0.0;
for i:=1 to n do
for j:=1 to n do
s += 1.0/(i*j);
writeln('Tick: ',GetTickCount64-tt);
ReadLn;
end;]                     


Крайне не довольный результатом, лезу в реализацию функции Milliseconds в PABC, "как могу переношу" её в FPC:

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

StartTime:=Time; //Переменная назначается при старте программы естественно
//Остальное после цикла
cur_t:=Time;
ml:= cur_t-StartTime;
WriteLn('Milliseconds: ',IntToStr(DateTimeToTimeStamp(ml).Time) );


Получаю среднее время выполнения - 265мс
Выношу код выше в отдельную функцию и вызываю её: Среднее время выполнения - 565мс

С чем это может быть связанно помогите разобраться пожалуйста...

[SSerge]

какой FPC убогий и прочие восхваление PABC, дохожу до страницы №8

они там в "документе" если и сравнивают с fpc, то с версией примерно 0.9

Среднее время выполнения - 565мс

не под отладчиком ли?

[pro_berserk]

они там в "документе" если и сравнивают с fpc, то с версией примерно 0.9

В документе указано FPC 3.0, а там как на самом деле, кто его знает... У меня стоит FPC 3.0.2

не под отладчиком ли?

Отладкой не пользовался, вообще ни чего не делал, режим компиляции Default

[SSerge]

Кста, если хочется ада, угара и трэша, сравнивайте их на работе строковых операций, особенно касающихся извлечения отдельных символов, их перестановки и т.д. Если ABC использует строковые библиотеки .NET, у него есть все шансы выиграть в РАЗЫ.

[pro_berserk]

Кста, если хочется ада, угара и трэша, сравнивайте их на работе строковых операций, особенно касающихся извлечения отдельных символов, их перестановки и т.д. Если ABC использует строковые библиотеки .NET, у него есть все шансы выиграть в РАЗЫ.

У меня в общем то и нет иллюзий по поводу производительности FPC, на то много разных факторов. Не понятно другое, почему пару строк, по сути ни на что не влияющих, все таки влияют, Вдвое увеличивая скорость выполнения, как так то?

[SSerge]

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

{$mode objfpc}
uses sysutils;


var i,j,n:integer;
    s:double;
    tm,tm2:TTimeStamp;
begin
  tm:=DateTimeToTimeStamp(now);
  n := 10000;
  s := 0.0;
  for i:=1 to n do
    for j:=1 to n do
      s += 1.0/(i*j);
  tm2:=DateTimeToTimeStamp(now);
  writeln(tm2.time-tm.time);
end.


Result: 638..640

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

{$mode objfpc}
Uses sysutils;


var i,j,n:integer;
    s:double;
    tm,tm2:TTimeStamp;

function Milliseconds:LongInt;
begin
  result:=DateTimeToTimeStamp(now).time-tm.time;
end;

begin
  tm:=DateTimeToTimeStamp(now);
  n := 10000;
  s := 0.0;
  for i:=1 to n do
    for j:=1 to n do
      s += 1.0/(i*j);
  writeln(Milliseconds);
end.



Result:=638..646

32-х битный линукс, Free Pascal Compiler version 3.1.1 [2017/08/13] for i386

[MysticCoder]

Получаю среднее время выполнения - 265мс
Выношу код выше в отдельную функцию и вызываю её: Среднее время выполнения - 565мс

С чем это может быть связанно помогите разобраться пожалуйста...

кидай полный код первого и второго варианта без сокращений типа "Выношу код выше в отдельную функцию" ну и результаты соответственно, а то вдруг у тебя эта отдельная функция в незагруженной с диска библиотеке лежит, или выносишь криво...

[pro_berserk]

Result:=638..646
32-х битный линукс, Free Pascal Compiler version 3.1.1 [2017/08/13] for i386

Windows 7 x64, FPC version 3.0.2 [2017/02/27] for x86_x64-win64-win32/win64
С Вашим кодом результат примерно тот же 565..580
А вот если сделать так:

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

var cur_t,ml,StartTime:TDateTime;
begin
  StartTime:=Time;
  n := 10000;
  s := 0.0;
  for i:=1 to n do
    for j:=1 to n do
      s += 1.0/(i*j);
   cur_t:=Time;
   ml:= cur_t-StartTime;
   WriteLn('Milliseconds: ',IntToStr(DateTimeToTimeStamp(ml).Time) );
  end;


Вся программа Result=277..297

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

program Project1;
uses
   Sysutils;

var cur_t,ml,StartTime:TDateTime;
    i,j,n:integer;
    s:double;
begin
  StartTime:=Time;
  n := 10000;
  s := 0.0;
  for i:=1 to n do
    for j:=1 to n do
      s += 1.0/(i*j);
   cur_t:=Time;
   ml:= cur_t-StartTime;
   WriteLn('Milliseconds: ',IntToStr(DateTimeToTimeStamp(ml).Time) );
   Readln;
end.

С вынесенной функцией: 560..590

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

program Project1;
uses
   Sysutils;

var cur_t,ml,StartTime:TDateTime;
    i,j,n:integer;
    s:double;

function Milliseconds:LongInt;
begin
  cur_t:=Time;
  ml:=cur_t-StartTime;
  Result:=DateTimeToTimeStamp(ml).Time;
end;
begin
  StartTime:=Time;
  n := 10000;
  s := 0.0;
  for i:=1 to n do
    for j:=1 to n do
      s += 1.0/(i*j);
   Writeln(Milliseconds);
   Readln;
end.

Специально делаю кучу переменных, для меня так нагляднее...

[SSerge]

Вся программа

ваш код дал 639..642 на той же машине и компиляторе

[Лекс Айрин]

Слишком хорошо и не получится.. Результат примерно одинаковый и, имхо, разница чисто в том, что PABC, заточен под одну систему, а fpc под несколько, поэтому в нем нет возможности использовать более быстрые, но менее кросс-платформенные варианты кода. И, если уж на то пошло, попробуй поиграться с оптимизацией.

Не понятно другое, почему пару строк, по сути ни на что не влияющих, все таки влияют, Вдвое увеличивая скорость выполнения, как так то?

Реализация вложенных циклов сама по себе очень корявая и не только в паскале, но и в других языках. Это связано с тем, что у процессора только один счетчик циклов. Плюс, периодический сброс очереди выполнения программ. (при "тике" цикла, вызове функции, в условном переходе... ), плюс, периодическая подкачка данных в кеши процессора. По возможности, компилятор это все компенсирует, но не всегда получается.

[MysticCoder]

С вынесенной функцией: 560..590

замени вызов Writeln(Milliseconds); на MyWriteln(Milliseconds);

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

procedure MyWriteLN(a : longint);
begin
  writeln(a);
end;       

и протесть еще раз. если поставишь бряк на Writeln(Milliseconds), нажмешь Ctrl-Alt-D, то увидишь, что перед тем как вызвать Milliseconds вызывается еще какая то функция от Writeln. Она то видимо и тормозит.

[pro_berserk]

и протесть еще раз. если поставишь бряк на Writeln(Milliseconds), нажмешь Ctrl-Alt-D, то увидишь, что перед тем как вызвать Milliseconds вызывается еще какая то функция от Writeln. Она то видимо и тормозит.

Признаться честно я хоть по образованию и программист, но как то в жизни не сложилось, поэтому занимаюсь этим делом больше любительски.
Разъясните пожалуйста куда смотреть? Я что то не заметил лишних вызовов.

[MysticCoder]

и протесть еще раз. если поставишь бряк на Writeln(Milliseconds), нажмешь Ctrl-Alt-D, то увидишь, что перед тем как вызвать Milliseconds вызывается еще какая то функция от Writeln. Она то видимо и тормозит.

Признаться честно я хоть по образованию и программист, но как то в жизни не сложилось, поэтому занимаюсь этим делом больше любительски.
Разъясните пожалуйста куда смотреть? Я что то не заметил лишних вызовов.

Лишних вызовов нет, потому что смотришь MyWriteln, посмотри Writeln.

Добавлено спустя 6 минут 16 секунд:
вообще если уж время замерять под виндой, то почему бы не пользоваться функцией NtQueryPerfomanceCounter совместно с NtQueryPerfomanceFrequency?
все ею меряют.

[pro_berserk]

Лишних вызовов нет, потому что смотришь MyWriteln, посмотри Writeln.

Я правильно понял, что callq , это и есть вызов некой лишней fpc_get_output?

вообще если уж время замерять под виндой, то почему бы не пользоваться функцией NtQueryPerfomanceCounter совместно с NtQueryPerfomanceFrequency?
все ею меряют.

Так цели и не было, что то замерять. Цель понять почему у меня из-за добавления в алгоритм, операции вычитания двух дат, меняется скорость выполнения циклов вдвое, при чем в лучшую сторону. 560мс против 260мс. Вот что не понятно...

[MysticCoder]

Я правильно понял, что callq , это и есть вызов некой лишней fpc_get_output?

да, оно и есть.

во втором случае так же идет вызов процедуры, на что тратится еще чуток времени, на подготовку стека и чего то еще. можно её сделать inline; будет быстрее.
ну это в теории, в данном случае вряд ли это "чуток времени" занимает больше 1 мс.