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

* allow a range of Low(Longint) to High(DWord) in TryStrToInt, see also issue #39406

Browse Source 
* moved test

(cherry picked from commit 435f3a9fe2)
This commit is contained in:
florian 2022-01-02 21:33:01 +01:00 committed by marcoonthegit
parent 3828c73678
commit bbffe9e26a
2 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/sysutils/sysstr.inc
View File

@ -962,7 +962,7 @@ var
li : Int64; li : Int64;
begin begin
Val(s, li, Error); Val(s, li, Error);
TryStrToInt:=(Error=0) and (li<=High(Longint)) and (li>=Low(Longint)); TryStrToInt:=(Error=0) and (li<=High(DWord)) and (li>=Low(Longint));
if TryStrToInt then if TryStrToInt then
i:=li; i:=li;
end; end;

0
tests/webtbs/tw8177.pp → tests/test/units/sysutils/tstrtoint.pp
View File