|
@@ -56,10 +56,6 @@ interface
|
|
|
sysutils;
|
|
|
|
|
|
{$IFDEF FPDOC_MATH}
|
|
|
-{$DEFINE FPC_HAS_TYPE_SINGLE}
|
|
|
-{$DEFINE FPC_HAS_TYPE_DOUBLE}
|
|
|
-{$DEFINE FPC_HAS_TYPE_EXTENDED}
|
|
|
-{$DEFINE FPC_HAS_TYPE_COMP}
|
|
|
Type
|
|
|
Float = MaxFloatType;
|
|
|
|
|
@@ -158,6 +154,17 @@ Const
|
|
|
NegInfinity = -1.0/0.0;
|
|
|
{$pop}
|
|
|
|
|
|
+
|
|
|
+{$IFDEF FPDOC_MATH}
|
|
|
+
|
|
|
+// This must be after the above defines.
|
|
|
+
|
|
|
+{$DEFINE FPC_HAS_TYPE_SINGLE}
|
|
|
+{$DEFINE FPC_HAS_TYPE_DOUBLE}
|
|
|
+{$DEFINE FPC_HAS_TYPE_EXTENDED}
|
|
|
+{$DEFINE FPC_HAS_TYPE_COMP}
|
|
|
+{$ENDIF}
|
|
|
+
|
|
|
{ Min/max determination }
|
|
|
function MinIntValue(const Data: array of Integer): Integer;
|
|
|
function MaxIntValue(const Data: array of Integer): Integer;
|