Глюки System.Round в win64

[Сквозняк]

Имеется такой бенчмарк

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

var
Q2,W2: LONGINT;
Q3:BYTE;

CONST
KUKIS_X=120;
KUKIS_Y=141;
LAZA=141;
LAZA2=14;

BEGIN
Q3:=1;
W2:=ROUND(141);
W2:=ROUND(123456789);
Q2:=W2-ROUND(KUKIS_Y*13);
Q2:=Q2-ROUND(KUKIS_X*Q3);
Q2:=Q2-ROUND(141*Q3);     //ГЛЮЧИТ
Q2:=Q2-ROUND(KUKIS_Y*Q3); //ГЛЮЧИТ
Q2:=ROUND(LAZA*Q3);       //ГЛЮЧИТ
Q2:=ROUND(LAZA2*Q3);
Q2:=W2-ROUND(KUKIS_X*Q3);
Q2:=W2-ROUND(KUKIS_Y*13);
END.
 

Собираю его так

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

wine cmd.exe /c "C:\lazarus-1.4.4-fpc-2.6.4-win64\fpc\2.6.4\bin\x86_64-win64\fpc.exe -FuC:\lazarus-1.4.4-fpc-2.6.4-win64\fpc\2.6.4\units\x86_64-win64\*" 1.pp

и получаю такую ругань:

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

Free Pascal Compiler version 2.6.4 [2015/10/04] for x86_64
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Win64 for x64
Compiling 1.pp
1.pp(17,8) Error: Can't determine which overloaded function to call
1.pp(18,8) Error: Can't determine which overloaded function to call
1.pp(19,5) Error: Can't determine which overloaded function to call
1.pp(25) Fatal: There were 3 errors compiling module, stopping
Fatal: Compilation aborted
Error: C:\lazarus-1.4.4-fpc-2.6.4-win64\fpc\2.6.4\bin\x86_64-win64\ppcx64.exe returned an error exitcode (normal if you did not specify a source file to be compiled)

2.6.4 win64 компилятор как-то болезненно реагирует на перемножение константы и числа со значением 141 при вызове функции. Что здесь не так и исправлено ли это на более новых версиях компилятора?

[Vadim]

Сквозняк
3.0.4. в Линуксе никаких ошибок не выдаёт.
А компилировать обязательно нужно именно таким, крайне извращенским, способом?

[Сквозняк]

Так в линуксе и у меня ошибок не выдавало, и в вин 32 тоже всё нормально было. Тоже таким способом собирал, только компилятор был из 32 битного лазаруса. А как стал собирать код для платформы вин 64, так эта ошибка и вылезла. Удалось засунуть её в коротенький код. Его можно ещё укоротить - там самые главные строки помечены. Сначала думал что компилятор реагирует на ключевое слово верхний "кукиш", записанное транслитом. Но оказалось, что цифры там важнее. У меня в линуксе сборка для win64 только таким способом сейчас настроена, про то, как будет проходить сборка в реальной винде или виртуалке - не в курсе. Пока удалось воспроизвести только через сборку через вайн лазарусным компилятором.

[Vadim]

Сквозняк
Ага, понятно...
Сейчас попробовал уже в винде компилить 64-ех разрядным FPC 3.0.4 - вылезла та же ошибка.

[Снег Север]

Если написать типа
Q2:=Q2-ROUND(Integer(141*Q3));
то всё в порядке.
Не знаю баг ли это или фича.

[Vadim]

Снег Север
Это непонятно что...
Если написать вот так:

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

var
    Q2: LONGINT;
    Q3:BYTE;

CONST
    KUKIS_Y=LONGINT(141);

BEGIN
    Q3:=1;
    Q2:=Q2-ROUND(KUKIS_Y*Q3); //ГЛЮЧИЛО когда-то...
END.

то тоже не глючит...

[Сквозняк]

Если это работает и на новых компиляторах, то надо писать письмо счастья в багтрекер
https://bugs.freepascal.org/view.php?id=36133

[Vadim]

Сквозняк
Надо чтобы написал кто-то, кто владеет английским в объёме больше чем "Fuck you, very much!"...

[Сквозняк]

Увы, таковые молчат.