paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 23:03:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: fix reading dwarf for arrays with several indexes (written as multiple bounds in the same TAG_array). E.g. as done by llvm.

Browse Source
This commit is contained in:
Martin 2024-05-19 11:15:40 +02:00
parent c8962f2243
commit c33f507472
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fpdbgdwarf.pas
View File

@ -4021,7 +4021,7 @@ end;
procedure TFpValueDwarfArray.DoGetBounds;
var
t: TFpSymbol;
t,t2: TFpSymbol;
c: Integer;
i: Integer;
begin
@ -4035,8 +4035,8 @@ begin
end;
SetLength(FBounds, c);
for i := 0 to c -1 do begin
t := t.NestedSymbol[i];
if not t.GetValueBounds(self, FBounds[i][0], FBounds[i][1]) then
t2 := t.NestedSymbol[i];
if not t2.GetValueBounds(self, FBounds[i][0], FBounds[i][1]) then
Include(FEvalFlags, efBoundsUnavail)
end;
end;