Browse Source

* use system unit for SSECSR setter and getter

git-svn-id: trunk@6019 -
florian 18 years ago
parent
commit
a94a681603
1 changed files with 0 additions and 22 deletions
  1. 0 22
      rtl/x86_64/mathu.inc

+ 0 - 22
rtl/x86_64/mathu.inc

@@ -23,28 +23,6 @@ function arctan2(y,x : float) : float;assembler;
   end;
 {$endif WIN64}
 
-procedure SetSSECSR(w : dword);
-  var
-    _w : dword;
-  begin
-    _w:=w;
-    asm
-      ldmxcsr _w
-    end;
-  end;
-
-
-function GetSSECSR : dword;
-  var
-    _w : dword;
-  begin
-    asm
-      stmxcsr _w
-    end;
-    result:=_w;
-  end;
-
-
 function GetRoundMode: TFPURoundingMode;
 begin
 {$ifdef win64}