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

LazDebuggerFp: Fixed step-out over finally. Do not stop in finally block.

Browse Source 
(cherry picked from commit 480b0fd02d)
This commit is contained in:
Martin 2021-12-06 16:03:20 +01:00
parent 7ddcb99119
commit b2129c5faa
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -2559,7 +2559,8 @@ begin
R8 := CurrentThread.RegisterValueList.FindRegisterByDwarfIndex(8).NumValue;
if (not CurrentProcess.ReadAddress(R8 + 160, Base)) or (Base = 0) then // RPB at finally
exit;
if (FState = esIgnoredRaise) and
if ( (FState = esIgnoredRaise) or (ACurCommand is TDbgControllerLineStepBaseCmd) ) and
not CheckCommandFinishesInFrame(Base)
then
exit;