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

FpDebug: Fixed mem leak.

Browse Source
This commit is contained in:
Martin 2021-09-26 16:02:26 +02:00
parent b7ab9549a6
commit 0a2bc87781
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

@ -3646,6 +3646,7 @@ var
n: Integer;
CU: TDwarfCompilationUnit;
MinMaxSet: boolean;
InfoEntry: TDwarfInformationEntry;
begin
Result := nil;
for n := 0 to FCompilationUnits.Count - 1 do
@ -3660,7 +3661,9 @@ begin
if not CU.Valid then // implies FCompUnitScope is ok
break;
Result := Cu.DwarfSymbolClassMap.CreateUnitSymbol(CU, TDwarfInformationEntry.Create(CU, CU.FCompUnitScope), Self);
InfoEntry := TDwarfInformationEntry.Create(CU, CU.FCompUnitScope);
Result := Cu.DwarfSymbolClassMap.CreateUnitSymbol(CU, InfoEntry, Self);
InfoEntry.ReleaseReference;
break;
end;
end;