paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 11:59:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: fix incorrect loop over members "Count - 1" in variant-normalizer

Browse Source
This commit is contained in:
Martin 2023-04-02 20:35:00 +02:00
parent 0d415cb235
commit 0045ad70a6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazdebuggers/lazdebuggerfp/fpdebugfpcconvvariantnormalizer.pas
View File

@ -192,7 +192,7 @@ begin
discr := vtype.AsInteger;
try
for i := 0 to m.MemberCount do begin
for i := 0 to m.MemberCount - 1 do begin
m2 := m.Member[i];
try
if (m2 <> nil) and