* Merge revisions 31037,31036,31035,31034,31033 from trunk

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

rtl/inc/system.fpd

@@ -75,6 +75,7 @@ Procedure ReadStr(Const S : String; Args : Arguments);
 Procedure Pack(Const A : UnpackedArrayType; StartIndex : TIndexType; Out Z : PackedArrayType);
 Procedure UnPack(Const Z : PackedArrayType; Out A : UnpackedArrayType; StartIndex : TIndexType);
 Function Slice(Const A : ArrayType; ACount : Integer) : ArrayType2;
+Function TypeInfo(Const T : AnyType) : Pointer;
  
 {$IFNDEF GO32V2}
 Var

rtl/objpas/math.pp

@@ -50,10 +50,24 @@
 unit math;
 interface
 
+
 {$ifndef FPUNONE}
     uses
        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;
+
+Const
+  MinFloat = 0;
+  MaxFloat = 0;
+{$ENDIF}
+
     { Ranges of the IEEE floating point types, including denormals }
 {$ifdef FPC_HAS_TYPE_SINGLE}
     const