paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-07 03:58:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix integer overflow not being detected. Issue #39406

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-10-17 12:44:44 +02:00
parent ee10850a57
commit 1e74c418ae
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -960,10 +960,14 @@ begin
end; end;
function TryStrToInt(const s: string; out i : Longint) : boolean; function TryStrToInt(const s: string; out i : Longint) : boolean;
var Error : word; var
Error : word;
li : Int64;
begin begin
Val(s, i, Error); Val(s, li, Error);
TryStrToInt:=Error=0 TryStrToInt:=(Error=0) and (li<=High(Longint)) and (li>=Low(Longint));
if TryStrToInt then
i:=li;
end; end;
{ StrToInt converts the string S to an integer value, { StrToInt converts the string S to an integer value,