paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 10:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make use of x87 dependent on availability of FPC_HAS_TYPE_EXTENDED

Browse Source 
define instead of on win64

git-svn-id: trunk@15533 -
This commit is contained in:
Jonas Maebe 2010-07-07 18:59:04 +00:00
parent 574d7eb70d
commit 68ee2ca193
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/x86_64/mathu.inc
View File

@ -12,7 +12,7 @@
**********************************************************************}
{$ifndef WIN64}
{$ifdef FPC_HAS_TYPE_EXTENDED}
{$define FPC_MATH_HAS_ARCTAN2}
function arctan2(y,x : float) : float;assembler;
asm
@ -21,11 +21,11 @@ function arctan2(y,x : float) : float;assembler;
fpatan
fwait
end;
{$endif WIN64}
{$endif FPC_HAS_TYPE_EXTENDED}
function GetRoundMode: TFPURoundingMode;
begin
{$ifdef win64}
{$ifndef FPC_HAS_TYPE_EXTENDED}
Result:=TFPURoundingMode((GetSSECSR shr 13) and $3);
{$else win64}
Result:=TFPURoundingMode((Get8087CW shr 10) and $3);
@ -58,7 +58,7 @@ end;
function GetExceptionMask: TFPUExceptionMask;
begin
{$ifdef win64}
{$ifndef FPC_HAS_TYPE_EXTENDED}
Result:=TFPUExceptionMask((GetSSECSR shr 7) and $3f);
{$else win64}
Result:=TFPUExceptionMask(dword(Get8087CW and $3F));