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

fpdebug: Fixed mem-leak and do not show threads when not running

Browse Source 
git-svn-id: trunk@58161 -
This commit is contained in:
joost 2018-06-06 21:13:16 +00:00
parent cf440de910
commit 52df2b872b
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -345,7 +345,12 @@ begin
if Monitor = nil then exit; if Monitor = nil then exit;
if CurrentThreads = nil then exit; if CurrentThreads = nil then exit;
if Debugger = nil then Exit;
CurrentThreads.Clear; CurrentThreads.Clear;
if not (Debugger.State in [dsPause, dsInternalPause, dsRun]) then Exit;
ThreadArray := TFpDebugDebugger(Debugger).FDbgController.CurrentProcess.GetThreadArray; ThreadArray := TFpDebugDebugger(Debugger).FDbgController.CurrentProcess.GetThreadArray;
for i := 0 to high(ThreadArray) do for i := 0 to high(ThreadArray) do
begin begin
@ -378,7 +383,11 @@ begin
ThreadArray[i].ID, ThreadArray[i].ID,
'Thread ' + IntToStr(ThreadArray[i].ID), 'Thread ' + IntToStr(ThreadArray[i].ID),
State); State);
CurrentThreads.Add(ThreadEntry); try
CurrentThreads.Add(ThreadEntry);
finally
ThreadEntry.Free;
end;
end; end;
CurrentThreads.CurrentThreadId := TFpDebugDebugger(Debugger).FDbgController.CurrentThread.ID; CurrentThreads.CurrentThreadId := TFpDebugDebugger(Debugger).FDbgController.CurrentThread.ID;