paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 13:34:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug in ValSignedInt (it accepted some values slightly larger than

Browse Source 
high(cardinal) such as 4294967297) (merged)
This commit is contained in:
Jonas Maebe 2001-07-04 12:02:14 +00:00
parent 95824b0c4f
commit 417d6849a8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/sstrings.inc
View File

@ -396,7 +396,7 @@ begin
Temp := Temp*ValUInt(base); Temp := Temp*ValUInt(base);
If (u >= base) or If (u >= base) or
((base = 10) and ((base = 10) and
(MaxSIntValue-temp+ord(negative) < u)) or (ValUInt(MaxSIntValue-u+ord(negative)) < Temp)) or
((base <> 10) and ((base <> 10) and
(ValUInt(MaxUIntValue-Temp) < u)) or (ValUInt(MaxUIntValue-Temp) < u)) or
(prev > maxValue) Then (prev > maxValue) Then
@ -573,7 +573,11 @@ end;
{ {
$Log$ $Log$
Revision 1.12 2001-06-04 11:43:51 peter Revision 1.13 2001-07-04 12:02:14 jonas
* fixed bug in ValSignedInt (it accepted some values slightly larger than
high(cardinal) such as 4294967297) (merged)
Revision 1.12 2001/06/04 11:43:51 peter
* Formal const to var fixes * Formal const to var fixes
* Hexstr(int64) added * Hexstr(int64) added