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

FpDebug: Fixed IDE hang on linux. ExecuteInDebugThread can be called recursive (e.g., by MemReader)

Browse Source 
git-svn-id: trunk@62491 -
This commit is contained in:
martin 2020-01-04 18:23:06 +00:00
parent 5301fa49cb
commit 6cc8e56bdc
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2783,6 +2783,11 @@ end;
procedure TFpDebugDebugger.ExecuteInDebugThread(AMethod: TFpDbgAsyncMethod); procedure TFpDebugDebugger.ExecuteInDebugThread(AMethod: TFpDbgAsyncMethod);
begin begin
if ThreadID = FFpDebugThread.ThreadID then begin
AMethod();
exit;
end;
assert(not assigned(FFpDebugThread.AsyncMethod)); assert(not assigned(FFpDebugThread.AsyncMethod));
FFpDebugThread.AsyncMethod:=AMethod; FFpDebugThread.AsyncMethod:=AMethod;
RTLeventSetEvent(FFpDebugThread.StartDebugLoopEvent); RTLeventSetEvent(FFpDebugThread.StartDebugLoopEvent);