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

Fix potential overflow when incrementing 8 bit high value of res.

Browse Source
This commit is contained in:
ccrause 2022-11-05 11:19:58 +02:00
parent 9b6926c5f5
commit 031c16dd3c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/generic.inc
View File

@ -1265,7 +1265,7 @@ var
len: byte;
begin
l:=high(arr)+1;
if l>=high(res)+1 then
if l>=ObjpasInt(high(res))+1 then
l:=high(res)
else if l<0 then
l:=0;