paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 04:30:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use v*csr instructions if they are available

Browse Source
This commit is contained in:
florian 2022-03-23 21:53:14 +01:00
parent fbf68af605
commit 652e75f8ec
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/x86_64/math.inc
View File

@ -72,8 +72,12 @@ const
procedure SetMXCSR(w : dword);
begin
defaultmxcsr:=w;
asm
asm
{$ifdef FPUX86_HAS_AVXUNIT}
vldmxcsr w
{$else FPUX86_HAS_AVXUNIT}
ldmxcsr w
{$endif FPUX86_HAS_AVXUNIT}
end;
end;
@ -82,7 +86,11 @@ const
var
_w : dword;
asm
{$ifdef FPUX86_HAS_AVXUNIT}
vstmxcsr _w
{$else FPUX86_HAS_AVXUNIT}
stmxcsr _w
{$endif FPUX86_HAS_AVXUNIT}
movl _w,%eax
end;