Ассемблер в паскале

[vada]

Перевожу старый проект на 64-х разрядную платформу. Есть такая функция

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

function ArcTan2(Const y,x : Double) : Double; assembler;
asm
  FLD Y
  FLD X
  FPATAN
  FWAIT
end;


Компилятор говорит что я не прав

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

tools.pas (134,3) Error: Asm: [fld xmmreg] invalid combination of opcode and operands


Писал эту функцию лет 15-20 назад с тех пор ассемблером не пользовался. Ну и не помню ничего. Порылся по форумам про asm 64, но ничего толкового кроме как:

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

function ArcTan2(Const y,x : Double) : Double; assembler;
asm
  FLD   QWORD PTR Y
  FLD   QWORD PTR X
  FPATAN
  FWAIT
end;


Ну тоже самое. Компилятор ругается.
Знатоки ассемблера, подскажите что не так.

[ElectroGuard]

В 64х режиме нужно использовать XMM.

[runewalsh]

В исходниках FPC под x64 то же самое, только fldt вместо fld. Компилировать не пробовал, есличо.

[Vadim]

vada
Некоторые команды ассемблера в 64-ёх битном режиме заблокированы. В 32-ух работают, а в 64-ёх - нет. Как-то сталкивался с таким. Проверьте на всякий случай.

[zub]

>>лет 15-20 назад
выкидывай ее нафиг, uses math и вперед

[vada]

выкидывай ее нафиг, uses math и вперед

Так и сделал. Спасибо! Правда там еще есть чуток ассемблерный вставок. Все в топку!!!!!

[zub]

>>Все в топку!!!!!
Без иронии, в 99% ассемблер можно выкинуть (темболее 20ти летней давности) без видимых потерь в производительности и с выиграшом в поддержке
Недавно сталкивался с наколенной поддержкой юникода полностью написаной на асемблере... хорошо что сейчас не 20лет назад))

[ElectroGuard]

Верное решение.

[Дож]

Отмечу, что Math очень жирный (+40KB).

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

-rwxrwxrwx   1 user     group       84480 Oct 20 06:54 with_math.exe
-rwxrwxrwx   1 user     group       41472 Oct 20 06:56 without_math.exe


with_math.pas

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

{$MODE OBJFPC}
uses
  math;
begin
  Writeln(ArcTan2(4, 5));
end.


without_math.pas

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

{$MODE OBJFPC}

function ArcTan2(Y, X: Single): Single;
begin
    if (x=0) then
      begin
        if y=0 then
          Result:=0.0
        else if y>0 then
          Result:=pi/2
        else if y<0 then
          Result:=-pi/2;
      end
    else
      Result:=ArcTan(y/x);
    if x<0.0 then
      Result:=Result+pi;
    if Result>pi then
      Result:=Result-2*pi;
end;

begin
  Writeln(ArcTan2(4, 5));
end.


[LearnMagic]

Знатоки ассемблера, подскажите что не так.

Не сильный знаток, но возможно поможет
{$ASMMODE INTEL}