paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 12:50:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #38063, corner case in Remove() range checking

Browse Source 
git-svn-id: trunk@47392 -
This commit is contained in:
michael 2020-11-12 09:27:00 +00:00
parent 257ef24a1e
commit 4a38d1b34e
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/objpas/sysutils/syssb.inc
View File

@ -532,7 +532,7 @@ begin
CheckNegative(RemLength,'RemLength'); CheckNegative(RemLength,'RemLength');
CheckRange(StartIndex,0,Length); CheckRange(StartIndex,0,Length);
MoveIndex:=StartIndex+RemLength; MoveIndex:=StartIndex+RemLength;
CheckRange(MoveIndex,0,Length-1); CheckRange(MoveIndex,0,Length);
if (Length-Moveindex)>0 then if (Length-Moveindex)>0 then
Move(FData[MoveIndex],FData[StartIndex],(Length-MoveIndex)*SizeOf(SBChar)); Move(FData[MoveIndex],FData[StartIndex],(Length-MoveIndex)*SizeOf(SBChar));
Length:=Length-RemLength; Length:=Length-RemLength;