Prechádzať zdrojové kódy

* more Win64 -> FPC_HAS_TYPE_EXTENDED check conversions

git-svn-id: trunk@15534 -
Jonas Maebe 15 rokov pred
rodič
commit
a302cbeff1
2 zmenil súbory, kde vykonal 5 pridanie a 5 odobranie
  1. 3 3
      rtl/inc/systemh.inc
  2. 2 2
      rtl/x86_64/math.inc

+ 3 - 3
rtl/inc/systemh.inc

@@ -123,7 +123,7 @@ Type
 {$endif CPUI386}
 
 {$ifdef CPUX86_64}
-{$ifndef WIN64}
+{$ifdef FPC_HAS_TYPE_EXTENDED}
   { win64 doesn't support the legacy fpu }
   {$define DEFAULT_EXTENDED}
   {$define SUPPORT_EXTENDED}
@@ -131,7 +131,7 @@ Type
   {$ifndef FPUNONE}
     ValReal = Extended;
   {$endif}
-{$else WIN64}
+{$else FPC_HAS_TYPE_EXTENDED}
   {$define DEFAULT_DOUBLE}
   {$ifndef FPUNONE}
     ValReal = Double;
@@ -140,7 +140,7 @@ Type
   { map comp to int64, but this doesn't mean we compile the comp support in! }
   Comp = Int64;
   PComp = ^Comp;
-{$endif WIN64}
+{$endif FPC_HAS_TYPE_EXTENDED}
 
   {$define SUPPORT_SINGLE}
   {$define SUPPORT_DOUBLE}

+ 2 - 2
rtl/x86_64/math.inc

@@ -156,7 +156,7 @@ FPC_ABSMASK_DOUBLE:
     end;
     {$endif FPC_SYSTEM_HAS_COS}
 
-{$ifndef WIN64}
+{$ifdef FPC_HAS_TYPE_EXTENDED}
     {$ifndef FPC_SYSTEM_HAS_EXP}
     {$define FPC_SYSTEM_HAS_EXP}
     function fpc_exp_real(d : ValReal) : ValReal;assembler;compilerproc;
@@ -286,4 +286,4 @@ FPC_ABSMASK_DOUBLE:
            power:=exp(ln(bas)*expo);
       end;
     {$endif FPC_SYSTEM_HAS_POWER}
-{$endif WIN64}
+{$endif FPC_HAS_TYPE_EXTENDED}