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

remote debug: fix reading response. Issue #0026664

Browse Source 
git-svn-id: trunk@47147 -
This commit is contained in:
martin 2014-12-09 01:13:55 +00:00
parent 2006ddcda1
commit 1523492244
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -2656,9 +2656,13 @@ begin
if FTheDebugger.FAsyncModeEnabled and FGotStopped then begin
// There should not be a "(gdb) ",
// but some versions print it, as they run none async, after accepting "run &"
S := FTheDebugger.ReadLine(50);
if (S <> '(gdb) ') then continue; // since no command was sent, we can loop
break;
S := FTheDebugger.ReadLine(True, 50);
if FTheDebugger.ReadLineTimedOut then break;
if (S = '(gdb) ') then begin
FTheDebugger.ReadLine(50); // read the extra "(gdb) "
break;
end;
// since no command was sent, we can loop
end;
end;