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

FpDebug: fix ":flatten" with embedded "[0..n]" slice in display mapping expression.

Browse Source 
(cherry picked from commit 0b1bcf35de)
This commit is contained in:
Martin 2025-05-24 09:41:22 +02:00
parent 5d41a0a20f
commit b542a0f991
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fppascalparser.pas
View File

@ -3229,7 +3229,11 @@ var
DisplayVal.AddReference;
end
else
begin
AMapExpr.BeginNeedCopy;
DisplayVal := EvalExression(AMapExpr, ACurrentVal, OrigVal, False, ACurDepth, ACurKeyIdx, ACurKey);
AMapExpr.EndNeedCopy;
end;
if (DisplayVal <> nil) then begin
ResIdx := InternalAdd(DisplayVal, ACurDepth, ACurKeyIdx, ACurKey);