paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 16:47:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

DBG: Fixed IDE hang, introduced in rev 37809 #1b6c227bd8 "Thread window: update while running"

Browse Source 
git-svn-id: trunk@37813 -
This commit is contained in:
martin 2012-06-28 10:43:27 +00:00
parent f834ac76ce
commit 788a19edd4
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
debugger/gdbmidebugger.pp
View File

@ -1616,6 +1616,11 @@ var
S := S + ','; S := S + ',';
while s <> '' do begin while s <> '' do begin
i := StrToIntDef(GetPart('', ',', s), -1); i := StrToIntDef(GetPart('', ',', s), -1);
if (s <> '') and (s[1] = ',') then delete(s, 1, 1)
else begin
debugln('GDBMI: Error parsing threads');
break
end;
if i < 0 then Continue; if i < 0 then Continue;
t := ct.EntryById[i]; t := ct.EntryById[i];
if t <> nil then if t <> nil then
@ -10239,6 +10244,11 @@ var
S := S + ','; S := S + ',';
while s <> '' do begin while s <> '' do begin
i := StrToIntDef(GetPart('', ',', s), -1); i := StrToIntDef(GetPart('', ',', s), -1);
if (s <> '') and (s[1] = ',') then delete(s, 1, 1)
else begin
debugln('GDBMI: Error parsing threads');
break
end;
if i < 0 then Continue; if i < 0 then Continue;
t := ct.EntryById[i]; t := ct.EntryById[i];
if t <> nil then if t <> nil then