Browse Source

* make use of x87 dependent on availability of FPC_HAS_TYPE_EXTENDED
define instead of on win64

git-svn-id: trunk@15533 -

Jonas Maebe 15 years ago
parent
commit
68ee2ca193
1 changed files with 4 additions and 4 deletions
  1. 4 4
      rtl/x86_64/mathu.inc

+ 4 - 4
rtl/x86_64/mathu.inc

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