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

DBG: do not set temporary stack = -1 in thread changing. This may cause errors

Browse Source 
git-svn-id: trunk@37440 -
This commit is contained in:
martin 2012-05-27 22:59:11 +00:00
parent 44b364786b
commit dce6409cc1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/gdbmidebugger.pp
View File

@ -8885,8 +8885,8 @@ begin
exit;
end;
TGDBMIDebugger(Debugger).FCurrentStackFrame := -1;
TGDBMIDebugger(Debugger).FInternalStackFrame := -1;
TGDBMIDebugger(Debugger).FCurrentStackFrame := 0;
TGDBMIDebugger(Debugger).FInternalStackFrame := 0;
tid := Debugger.Threads.Monitor.CurrentThreads.CurrentThreadId;
cs := TCurrentCallStack(CurrentCallStackList.EntriesForThreads[tid]);
idx := cs.CurrentIndex; // CURRENT