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

Debugger: Ensure correct thread id in history entries

Browse Source 
git-svn-id: trunk@56252 -
This commit is contained in:
martin 2017-10-31 19:21:03 +00:00
parent 040dbb8a1e
commit 009303069f
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 begin
FList.Add(AThread.CreateCopy); FList.Add(AThread.CreateCopy);
if FList.Count = 1 then if FList.Count = 1 then
FCurrentThreadId := AThread.ThreadId; FCurrentThreadId := AThread.ThreadId; // TODO: this should never be needed?
end; end;
procedure TThreads.Remove(AThread: TThreadEntry); procedure TThreads.Remove(AThread: TThreadEntry);

2
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

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