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

FpDebug: Do not choke on unsupported third-party Dwarf extensions

Browse Source 
git-svn-id: trunk@65129 -
This commit is contained in:
joost 2021-05-24 22:06:59 +00:00
parent 4f16d7a5d5
commit c136e832f9
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpdebug/fpdbgdwarf.pas
View File

@ -611,6 +611,8 @@ type
procedure Init; override;
end;
TFpSymbolDwarfThirdPartyExtension = class(TFpSymbolDwarf)
end;
{ TFpSymbolDwarfType }
@ -1183,6 +1185,8 @@ begin
//
DW_TAG_compile_unit: Result := TFpSymbolDwarfUnit;
DW_TAG_lo_user
..DW_TAG_hi_user: Result := TFpSymbolDwarfThirdPartyExtension;
else
Result := TFpSymbolDwarf;
end;
@ -3925,7 +3929,8 @@ var
sym: TFpSymbol;
begin
sym := GetNestedSymbolExByName(AIndex, OuterSym);
if sym <> nil then begin
// Ignore third-party extensions that are not supported
if (sym <> nil) and not (sym is TFpSymbolDwarfThirdPartyExtension) then begin
assert(sym is TFpSymbolDwarfData, 'TFpSymbolDwarf.GetNestedValueByName: sym is TFpSymbolDwarfData');
Result := TFpValueDwarf(sym.Value);
if Result <> nil then