paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 17:58:15 +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; procedure Init; override;
end; end;
TFpSymbolDwarfThirdPartyExtension = class(TFpSymbolDwarf)
end;
{ TFpSymbolDwarfType } { TFpSymbolDwarfType }
@ -1183,6 +1185,8 @@ begin
// //
DW_TAG_compile_unit: Result := TFpSymbolDwarfUnit; DW_TAG_compile_unit: Result := TFpSymbolDwarfUnit;
DW_TAG_lo_user
..DW_TAG_hi_user: Result := TFpSymbolDwarfThirdPartyExtension;
else else
Result := TFpSymbolDwarf; Result := TFpSymbolDwarf;
end; end;
@ -3925,7 +3929,8 @@ var
sym: TFpSymbol; sym: TFpSymbol;
begin begin
sym := GetNestedSymbolExByName(AIndex, OuterSym); 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'); assert(sym is TFpSymbolDwarfData, 'TFpSymbolDwarf.GetNestedValueByName: sym is TFpSymbolDwarfData');
Result := TFpValueDwarf(sym.Value); Result := TFpValueDwarf(sym.Value);
if Result <> nil then if Result <> nil then