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

LazDebuggerFp: remove duplicated code

Browse Source 
git-svn-id: trunk@64241 -
This commit is contained in:
martin 2020-12-19 17:06:32 +00:00
parent 78af663741
commit 557173a500
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1904,14 +1904,6 @@ begin
Exit; Exit;
end; end;
if Monitor = nil then exit;
if CurrentThreads = nil then exit;
if Debugger = nil then Exit;
if not (Debugger.State in [dsPause{, dsInternalPause}]) then begin // Make sure we have threads first // this can be removed, once threads are KEPT between pauses
CurrentThreads.Clear;
exit;
end;
WorkItem := TFpThreadWorkerThreads.Create(TFpDebugDebugger(Debugger)); WorkItem := TFpThreadWorkerThreads.Create(TFpDebugDebugger(Debugger));
TFpDebugDebugger(Debugger).FWorkQueue.PushItem(WorkItem); TFpDebugDebugger(Debugger).FWorkQueue.PushItem(WorkItem);
FThreadWorkers.Add(WorkItem); FThreadWorkers.Add(WorkItem);