paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 06:02:07 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: branches/fixes_3_0@31040 -
This commit is contained in:
michael 2015-06-13 16:58:24 +00:00
parent 2fabf97f59
commit 0bf989a26e
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/inc/system.fpd
View File

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

14
rtl/objpas/math.pp
View File

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