paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 03:48:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger: Ensure correct thread id in history entries

Browse Source 
git-svn-id: branches/fixes_1_8@56301 -
This commit is contained in:
mattias 2017-11-06 10:22:43 +00:00
parent 94a1b6749b
commit d7e60bdbcb
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/debuggerintf/dbgintfdebuggerbase.pp
View File

@ -2445,7 +2445,7 @@ procedure TThreads.Add(AThread: TThreadEntry);
begin
FList.Add(AThread.CreateCopy);
if FList.Count = 1 then
FCurrentThreadId := AThread.ThreadId;
FCurrentThreadId := AThread.ThreadId; // TODO: this should never be needed?
end;
procedure TThreads.Remove(AThread: TThreadEntry);

2
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -3122,8 +3122,8 @@ begin
for i := 0 to Cmd.Count - 1 do
CurrentThreads.Add(Cmd.Threads[i]);
CurrentThreads.SetValidity(ddsValid);
CurrentThreads.CurrentThreadId := Cmd.CurrentThreadId;
CurrentThreads.SetValidity(ddsValid);
Debugger.FCurrentThreadId := CurrentThreads.CurrentThreadId;
Debugger.FCurrentThreadIdValid := True;
end;