paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 07:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: Add safeguard/error-checks to TDwarfInformationEntry.PrepareAbbrev / PrepareAbbrevData. Issue #41459

Browse Source 
(cherry picked from commit 0530a14bd5)
This commit is contained in:
Martin 2025-02-23 23:34:06 +01:00
parent f277ec9c9f
commit c7825f845b
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/fpdbgdwarfdataclasses.pas
View File

@ -2732,7 +2732,7 @@ end;
procedure TDwarfInformationEntry.PrepareAbbrev;
begin
if dieAbbrevValid in FFlags then
if (dieAbbrevValid in FFlags) or (FInformationEntry = nil) then
exit;
FInformationData := FCompUnit.FAbbrevList.FindLe128bFromPointer(FInformationEntry, FAbbrev);
Include(FFlags, dieAbbrevValid);
@ -2747,6 +2747,9 @@ function TDwarfInformationEntry.PrepareAbbrevData: Boolean;
var
AbbrList: TDwarfAbbrevList;
begin
if FInformationEntry = nil then
exit(False);
Result := FAbbrevData <> nil;
if dieAbbrevDataValid in FFlags then
exit;