paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r46763 into '.':

Browse Source 
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 -
This commit is contained in:
marco 2020-09-13 12:38:53 +00:00
parent c9b4a1eec0
commit 782ecf6c32
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/objpas/math.pp
View File

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