Browse Source

* Fake some types when running under FPDOC

git-svn-id: trunk@31034 -
michael 10 years ago
parent
commit
bb7e0f645f
1 changed files with 10 additions and 0 deletions
  1. 10 0
      rtl/objpas/math.pp

+ 10 - 0
rtl/objpas/math.pp

@@ -50,6 +50,16 @@
 unit math;
 unit math;
 interface
 interface
 
 
+{$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;
+
+{$ENDIF}
+
 {$ifndef FPUNONE}
 {$ifndef FPUNONE}
     uses
     uses
        sysutils;
        sysutils;