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

FpDebug: further fix reading pty for console window.

Browse Source 
(cherry picked from commit e9099ab0e8)
This commit is contained in:
Martin 2024-02-13 22:31:11 +01:00
parent e44532f395
commit 972e988e00
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

@ -3424,8 +3424,9 @@ begin
AThread := TFpWaitForConsoleOutputThread(FConsoleOutputThread);
FConsoleOutputThread := nil;
AThread.Terminate;
AThread.DoHasConsoleOutput(0);
AThread.WaitFor;
sleep(50);
AThread.DoHasConsoleOutput(0);
AThread.Free;
end;