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

FpDebug: fix :flatten intrinsic, if first value is array. Don't add a data address without adding an item.

Browse Source
This commit is contained in:
Martin 2024-10-08 10:43:54 +02:00
parent 386bd90d76
commit 8f683d316c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpdebug/fppascalparser.pas
View File

@ -3221,6 +3221,7 @@ var
TmpNew: TFpValue;
LBnd: Int64;
begin
// Seen.Add(DA, -2 - FList.Count); // array seen
LBnd := ACurrentVal.OrdLowBound;
Cnt := ACurrentVal.MemberCount;
if Cnt > 1 then begin
@ -3531,14 +3532,14 @@ begin
Seen.Capacity := 256;
TpSym := FirstVal.TypeInfo;
try
DA := FirstVal.DataAddress;
Seen.Add(DA);
if (FirstVal.Kind = skArray) then begin
FlattenArray(FirstVal, nil, 0, -1, '', Max(1, ExpandArrayDepth));
end
else begin
DA := FirstVal.DataAddress;
Seen.Add(DA, 0);
InternalAdd(FirstVal, 0, -1, '');
if not IsReadableLoc(DA) then
exit;
if IsError(ExpressionData.Error) then