paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 16:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* improve TFPSList.Delete as proposed by Alexey Torgashin, resolves #40718

Browse Source
This commit is contained in:
florian 2024-03-29 14:28:54 +01:00
parent 56d84c9283
commit 9a32c00070
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/fgl.pp
View File

@ -607,7 +607,7 @@ begin
there. Otherwise, we could accidentally have there a copy of some item
on the list, and accidentally Deref it too soon.
See http://bugs.freepascal.org/view.php?id=20005. }
FillChar(InternalItems[FCount]^, (FCapacity+1-FCount) * FItemSize, #0);
FillChar(InternalItems[FCount]^, FItemSize, #0);
end;
procedure TFPSList.DeleteRange(IndexFrom, IndexTo : Integer);