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

FpDebug: fix crash in stack after "watch eval" call. Don't clear stack data.

Browse Source
This commit is contained in:
Martin 2022-09-09 22:56:08 +02:00
parent 126dd815cd
commit 0bdae9fa28
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fpdbgcontroller.pas
View File

@ -1711,7 +1711,10 @@ begin
if MaybeDetach then
exit;
FCurrentProcess.ThreadsClearCallStack;
// Do not clear callstack of threads: TDbgControllerCallRoutineCmd is considered remaining in pause.
// TODO: if the IP of another thread changes, send notifications
if (FCommand = nil) or not (FCommand is TDbgControllerCallRoutineCmd) then
FCurrentProcess.ThreadsClearCallStack;
if Assigned(FOnThreadBeforeProcessLoop) then
FOnThreadBeforeProcessLoop(Self);