paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 04:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@47555 -
This commit is contained in:
pierre 2020-11-24 13:57:06 +00:00
parent e4e1ea586c
commit 40b7af1025
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/x86_64/math.inc
View File

@ -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}