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

MovQ + Shr → PExtrW.

Browse Source
This commit is contained in:
Rika Ichinose 2024-02-15 07:16:50 +03:00 committed by FPK
parent e5b47310c8
commit 2d6294eb26
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/x86_64/math.inc
View File

@ -389,8 +389,7 @@ const
{$define FPC_SYSTEM_HAS_INT}
function fpc_int_real(d : ValReal) : ValReal;compilerproc; assembler; nostackframe;
asm
movq %xmm0, %rax
shr $48, %rax
pextrw $3, %xmm0, %eax { eax = d[48:63] }
and $0x7ff0,%ax
cmp $0x4330,%ax
jge .L0
@ -422,9 +421,8 @@ const
asm
{ Windows defines %xmm4 and %xmm5 as first non-parameter volatile registers;
on SYSV systems all are considered as such, so use %xmm4 }
movq %xmm0, %rax
pextrw $3, %xmm0, %eax { eax = d[48:63] }
movapd %xmm0, %xmm4
shr $48, %rax
and $0x7ff0,%ax
cmp $0x4330,%ax
jge .L0