paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-04 11:04:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

GDBMI Debugger: clean up / merge identical code blocks for thread start/stop detection

Browse Source 
git-svn-id: trunk@57191 -
This commit is contained in:
martin 2018-01-30 17:15:12 +00:00
parent 2f11742c8d
commit 8b1b8ff0df
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -7663,7 +7663,7 @@ var
t: TThreadEntry;
begin
EventText := GetPart(['='], [','], Line, False, False);
case StringCase(EventText, [
x := StringCase(EventText, [
'thread-created', 'thread-exited',
'shlibs-added',
'library-loaded',
@ -7674,7 +7674,8 @@ begin
'thread-created',
'thread-exited',
'breakpoint-modified'
], False, False) of
], False, False);
case x of
0,1: begin
i := StrToIntDef(GetPart(',id="', '"', Line, False, False), -1);
if (i > 0) and (Threads.CurrentThreads <> nil)