Jelajahi Sumber

* use v*csr instructions if they are available

florian 3 tahun lalu
induk
melakukan
652e75f8ec
1 mengubah file dengan 9 tambahan dan 1 penghapusan
  1. 9 1
      rtl/x86_64/math.inc

+ 9 - 1
rtl/x86_64/math.inc

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