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

FpDebug: fix missing refcount / possible dangling pointer for TypeSymbol

Browse Source
This commit is contained in:
Martin 2024-07-20 13:41:16 +02:00
parent 9352e5a40b
commit 66378dafd9
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpdebug/fpdbgdwarf.pas
View File

@ -2212,6 +2212,8 @@ end;
constructor TFpValueDwarf.Create(ADwarfTypeSymbol: TFpSymbolDwarfType);
begin
FTypeSymbol := ADwarfTypeSymbol;
if FTypeSymbol <> nil then
FTypeSymbol.AddReference;
inherited Create;
end;
@ -2220,6 +2222,7 @@ begin
FTypeCastSourceValue.ReleaseReference{$IFDEF WITH_REFCOUNT_DEBUG}(@FTypeCastSourceValue, ClassName+'.FTypeCastSourceValue'){$ENDIF};
FStructureValue.ReleaseReference{$IFDEF WITH_REFCOUNT_DEBUG}(@FStructureValue, 'TDbgDwarfSymbolValue'){$ENDIF};
FDataSymbol.ReleaseReference{$IFDEF WITH_REFCOUNT_DEBUG}(@FDataSymbol, ClassName+'.FDataSymbol'){$ENDIF};
FTypeSymbol.ReleaseReference;
inherited Destroy;
end;