paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 19:29: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 TNativeIntHelper = Type Helper for NativeInt
public public
const const
{$IFDEF CPU64BITS} MaxValue = High(NativeInt);
MaxValue = 9223372036854775807; MinValue = Low(NativeUInt);
MinValue = -9223372036854775808;
{$ELSE !CPU64BITS}
MaxValue = 2147483647;
MinValue = -2147483648;
{$ENDIF CPU64BITS}
Public Public
Class Function Parse(const AString: string): NativeInt; inline; static; Class Function Parse(const AString: string): NativeInt; inline; static;
Class Function Size: Integer; inline; static; Class Function Size: Integer; inline; static;
@ -547,11 +542,7 @@ Type
TNativeUIntHelper = Type Helper for NativeUInt TNativeUIntHelper = Type Helper for NativeUInt
public public
const const
{$IFDEF CPU64BITS} MaxValue = High(NativeUInt);
MaxValue = 18446744073709551615;
{$ELSE !CPU64BITS}
MaxValue = 4294967295;
{$ENDIF CPU64BITS}
MinValue = 0; MinValue = 0;
Public Public
Class Function Parse(const AString: string): NativeUInt; inline; static; Class Function Parse(const AString: string): NativeUInt; inline; static;