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

Debugger GDBMI: Fix thread context for finding correct frame

Browse Source 
git-svn-id: trunk@60273 -
This commit is contained in:
martin 2019-02-01 22:51:44 +00:00
parent 5692512684
commit 54f21f7efa
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

@ -6168,8 +6168,8 @@ begin
if Reason = 'end-stepping-range' if Reason = 'end-stepping-range'
then begin then begin
SetDebuggerState(dsPause); SetDebuggerState(dsPause);
ProcessFrame(List.Values['frame'], False); ProcessFrame(List.Values['frame'], False);
Exit; Exit;
end; end;
@ -10974,6 +10974,7 @@ begin
List := TGDBMINameValueList.Create(''); List := TGDBMINameValueList.Create('');
try try
CurContext := FContext; CurContext := FContext;
FContext.ThreadContext := ccUseGlobal;
FContext.StackContext := ccUseLocal; FContext.StackContext := ccUseLocal;
repeat repeat
FContext.StackFrame := Result; FContext.StackFrame := Result;