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

* properly define Min/Max values of Native*Int helpers, resolves #33543

Browse Source 
git-svn-id: trunk@38664 -
This commit is contained in:
florian 2018-04-02 21:31:23 +00:00
parent 25c5ee2fc3
commit add418db0e
1 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/objpas/sysutils/syshelph.inc
View File

@ -522,13 +522,8 @@ Type
TNativeIntHelper = Type Helper for NativeInt
public
const
{$IFDEF CPU64BITS}
MaxValue = 9223372036854775807;
MinValue = -9223372036854775808;
{$ELSE !CPU64BITS}
MaxValue = 2147483647;
MinValue = -2147483648;
{$ENDIF CPU64BITS}
MaxValue = High(NativeInt);
MinValue = Low(NativeUInt);
Public
Class Function Parse(const AString: string): NativeInt; inline; static;
Class Function Size: Integer; inline; static;
@ -547,11 +542,7 @@ Type
TNativeUIntHelper = Type Helper for NativeUInt
public
const
{$IFDEF CPU64BITS}
MaxValue = 18446744073709551615;
{$ELSE !CPU64BITS}
MaxValue = 4294967295;
{$ENDIF CPU64BITS}
MaxValue = High(NativeUInt);
MinValue = 0;
Public
Class Function Parse(const AString: string): NativeUInt; inline; static;