Browse Source

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

git-svn-id: trunk@47555 -
pierre 4 years ago
parent
commit
40b7af1025
1 changed files with 2 additions and 5 deletions
  1. 2 5
      rtl/x86_64/math.inc

+ 2 - 5
rtl/x86_64/math.inc

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