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

* more Win64 -> FPC_HAS_TYPE_EXTENDED check conversions

Browse Source 
git-svn-id: trunk@15534 -
This commit is contained in:
Jonas Maebe 2010-07-07 19:02:18 +00:00
parent 68ee2ca193
commit a302cbeff1
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/systemh.inc
View File

@ -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}

4
rtl/x86_64/math.inc
View File

@ -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}