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

LazDebuggerFp: fix asm-step-over wrongly stops at finally block in nested code. Issue #41226

Browse Source
This commit is contained in:
Martin 2024-11-06 13:48:37 +01:00
parent 5111f33390
commit 929c9e68ca
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3188,7 +3188,7 @@ begin
Eax := CurrentThread.RegisterValueList.FindRegisterByDwarfIndex(0).NumValue;
FAddressFrameListSehW32Finally.RemoveOutOfScopeFrames(EAX, FBreakPoints[bplSehW32Finally]);
if (ACurCommand is TDbgControllerLineStepBaseCmd) and
if (ACurCommand is TDbgControllerHiddenBreakStepBaseCmd) and
not CheckCommandFinishesInFrame(Eax)
then
exit;
@ -3299,7 +3299,7 @@ begin
if (not CurrentProcess.ReadAddress(R8 + 160, Base)) or (Base = 0) then // RPB at finally
exit;
if ( (FState = esIgnoredRaise) or (ACurCommand is TDbgControllerLineStepBaseCmd) ) and
if ( (FState = esIgnoredRaise) or (ACurCommand is TDbgControllerHiddenBreakStepBaseCmd) ) and
not CheckCommandFinishesInFrame(Base)
then
exit;
@ -3410,7 +3410,7 @@ begin
FBreakPoints[bplSehW64Finally].RemoveAddress(PC);
// At the start of a finally the BasePointer is in RCX // reg 2
if (ACurCommand is TDbgControllerLineStepBaseCmd) and
if (ACurCommand is TDbgControllerHiddenBreakStepBaseCmd) and
not CheckCommandFinishesInFrame(CurrentThread.RegisterValueList.FindRegisterByDwarfIndex(2).NumValue)
then
exit;