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

FpDebug: fix memleak if no loader for file format is found

Browse Source 
git-svn-id: trunk@59563 -
This commit is contained in:
martin 2018-11-16 20:30:20 +00:00
parent ed7752d089
commit 129c834748
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgloader.pp
View File

@ -196,6 +196,7 @@ begin
FFileName := AFileName;
FFileLoader := TDbgFileLoader.Create(AFileName);
FImgReader := GetImageReader(FFileLoader, ADebugMap, True);
if FImgReader = nil then FreeAndNil(FFileLoader);
end;
procedure TDbgImageLoader.ParseSymbolTable(AFpSymbolInfo: TfpSymbolList);
@ -209,6 +210,7 @@ constructor TDbgImageLoader.Create(AFileHandle: THandle; ADebugMap: TObject = ni
begin
FFileLoader := TDbgFileLoader.Create(AFileHandle);
FImgReader := GetImageReader(FFileLoader, ADebugMap, True);
if FImgReader = nil then FreeAndNil(FFileLoader);
end;
{$endif}