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

* use system unit for SSECSR setter and getter

Browse Source 
git-svn-id: trunk@6019 -
This commit is contained in:
florian 2007-01-17 08:08:49 +00:00
parent cc73d6e147
commit a94a681603
1 changed files with 0 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/x86_64/mathu.inc
View File

@ -23,28 +23,6 @@ function arctan2(y,x : float) : float;assembler;
end; end;
{$endif WIN64} {$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; function GetRoundMode: TFPURoundingMode;
begin begin
{$ifdef win64} {$ifdef win64}