Browse Source

--- Merging r31034 into '.':
C rtl/objpas/math.pp
--- Recording mergeinfo for merge of r31034 into '.':
U .
Summary of conflicts:
Text conflicts: 1

# revisions: 31034

git-svn-id: branches/fixes_3_0@31276 -

marco 10 years ago
parent
commit
f6f3ef904e
1 changed files with 9 additions and 0 deletions
  1. 9 0
      rtl/objpas/math.pp

+ 9 - 0
rtl/objpas/math.pp

@@ -50,6 +50,15 @@
 unit math;
 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}
     uses