--- Merging r46763 into '.':

U    rtl/objpas/math.pp
--- Recording mergeinfo for merge of r46763 into '.':
 U   .

# revisions: 46763
r46763 | michael | 2020-09-04 17:19:28 +0200 (Fri, 04 Sep 2020) | 1 line
Changed paths:
   M /trunk/rtl/objpas/math.pp

* Fix defines for fpdoc

git-svn-id: branches/fixes_3_2@46861 -

rtl/objpas/math.pp

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