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

* use a {$if defined()} sequence, instead of nested ifdefs for selecting the

Browse Source 
float type in unit math

git-svn-id: trunk@26265 -
This commit is contained in:
nickysn 2013-12-22 19:18:15 +00:00
parent 65d24e000f
commit 90b69184f1
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/objpas/math.pp
View File

@ -58,43 +58,37 @@ interface
{ natural size for the processor }
{ WARNING : changing float type will }
{ break all assembler code PM }
{$ifdef FPC_HAS_TYPE_FLOAT128}
{$if defined(FPC_HAS_TYPE_FLOAT128)}
type
float = float128;
const
MinFloat = MinFloat128;
MaxFloat = MaxFloat128;
{$else FPC_HAS_TYPE_FLOAT128}
{$ifdef FPC_HAS_TYPE_EXTENDED}
{$elseif defined(FPC_HAS_TYPE_EXTENDED)}
type
float = extended;
const
MinFloat = MinExtended;
MaxFloat = MaxExtended;
{$else FPC_HAS_TYPE_EXTENDED}
{$ifdef FPC_HAS_TYPE_DOUBLE}
{$elseif defined(FPC_HAS_TYPE_DOUBLE)}
type
float = double;
const
MinFloat = MinDouble;
MaxFloat = MaxDouble;
{$else FPC_HAS_TYPE_DOUBLE}
{$ifdef FPC_HAS_TYPE_SINGLE}
{$elseif defined(FPC_HAS_TYPE_SINGLE)}
type
float = single;
const
MinFloat = MinSingle;
MaxFloat = MaxSingle;
{$else FPC_HAS_TYPE_SINGLE}
{$else}
{$fatal At least one floating point type must be supported}
{$endif FPC_HAS_TYPE_SINGLE}
{$endif FPC_HAS_TYPE_DOUBLE}
{$endif FPC_HAS_TYPE_EXTENDED}
{$endif FPC_HAS_TYPE_FLOAT128}
{$endif}
type
PFloat = ^Float;