paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 20:59: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
This commit is contained in:
florian 2022-01-02 21:33:01 +01:00
parent 2a93e65511
commit 435f3a9fe2
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

@ -963,7 +963,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