git-svn-id: trunk@6019 -
@@ -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;
-
-function GetSSECSR : dword;
- stmxcsr _w
- result:=_w;
function GetRoundMode: TFPURoundingMode;
begin
{$ifdef win64}