paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 04:17:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Dwarfviewer, do not parse after unknown OP.

Browse Source
This commit is contained in:
Martin 2022-09-23 20:29:17 +02:00
parent 3ebada48d3
commit 78caaf4fc2
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/test/dwarfviewer/unit1.pas
View File

@ -473,8 +473,11 @@ var
DW_OP_lo_user..DW_OP_hi_user: begin
Result := Result + 'DW_OP_user, ' + IntToStr(AData^);
end;
else
else begin
Result := Result + 'Unknown DW_OP_' + IntToStr(AData^);
result := Result + ' RemainCnt:' + IntToStr(MaxData - AData);
break;
end
end;
Inc(AData);
//Result := Result +' / ';