Просмотр исходного кода

Use pascal code for LLVM fpc_sqr_real, because fmultp instruction is not accepted by llvm

git-svn-id: trunk@47555 -
pierre 4 лет назад
Родитель
Сommit
40b7af1025
1 измененных файлов с 2 добавлено и 5 удалено
  1. 2 5
      rtl/x86_64/math.inc

+ 2 - 5
rtl/x86_64/math.inc

@@ -126,11 +126,8 @@ const
       runerror(207);
       result:=0;
 {$else not cpullvm}
-    assembler;
-    asm
-      fldt d
-      fldt %st(0)
-      fmult
+    begin
+      fpc_sqr_real:=d*d;
 {$endif not cpullvm}
     end;
     {$endif FPC_SYSTEM_HAS_SQR}