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

DBG: Fix stackframe for exceptions (fix for rev 30699 #1d566ba504)

Browse Source 
git-svn-id: trunk@30702 -
This commit is contained in:
martin 2011-05-12 19:30:17 +00:00
parent 84bb0408ff
commit ab031a532f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/gdbmidebugger.pp
View File

@ -4269,7 +4269,7 @@ begin
end;
finally
List.Free;
TGDBMICallstack(FTheDebugger.CallStack).DoThreadChanged; // update the current-index
FTheDebugger.CallStack.CurrentCallStackList.EntriesForThreads[FTheDebugger.FCurrentThreadId].CurrentIndex := FTheDebugger.FCurrentStackFrame;
end;
end;