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

LazDebuggerFp: fix mem leaks in logging code.

Browse Source 
git-svn-id: trunk@59511 -
This commit is contained in:
martin 2018-11-11 18:27:22 +00:00
parent 3018fb2880
commit e31e672112
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -1485,7 +1485,7 @@ begin
case AMessage.SyncLogLevel of case AMessage.SyncLogLevel of
dllDebug: DebugLn(AMessage.SyncLogMessage); dllDebug: DebugLn(AMessage.SyncLogMessage);
dllInfo: ShowMessage(AMessage.SyncLogMessage); dllInfo: ShowMessage(AMessage.SyncLogMessage);
dllError: raise exception.Create(AMessage.SyncLogMessage); dllError: MessageDlg(AMessage.SyncLogMessage, mtError, [mbOK], 0);
end; {case} end; {case}
AMessage.Free; AMessage.Free;
end; end;
@ -2006,6 +2006,7 @@ destructor TFpDebugDebugger.Destroy;
begin begin
if assigned(FFpDebugThread) then if assigned(FFpDebugThread) then
FreeDebugThread; FreeDebugThread;
DoLog();
FreeAndNil(FDbgController); FreeAndNil(FDbgController);
FreeAndNil(FPrettyPrinter); FreeAndNil(FPrettyPrinter);
FreeAndNil(FWatchEvalList); FreeAndNil(FWatchEvalList);