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

FpDebug: Fix test for "step over". non-breaking breakpoints no longer cause an internal pause

Browse Source
This commit is contained in:
Martin 2023-01-08 22:57:19 +01:00
parent d99e76636d
commit 3ea1675362
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazdebuggers/lazdebuggerfp/test/teststepping.pas
View File

@ -237,7 +237,8 @@ begin
TestLocation('At AfterStepBrkDis', 'AfterStepBrkDis', -1);
// Step over a subroutine call, with a breakpoint that continues
RunToNextPauseTestInternal('', 1, dcStepOver);
// No internal pause should happen
RunToNextPauseTestInternal('', 0, dcStepOver);
AssertDebuggerState(dsPause);
TestLocation('At AfterStepBrkHitCnt', 'AfterStepBrkHitCnt', -1);
@ -468,7 +469,7 @@ begin
AssertDebuggerState(dsPause);
TestLocation('At AfterStepBrkDis', 'AfterStepBrkDis', -1);
StepInstrToNextLine('Go to AfterStepBrkHitCnt', 1);
StepInstrToNextLine('Go to AfterStepBrkHitCnt', 0);
AssertDebuggerState(dsPause);
TestLocation('At AfterStepBrkHitCnt', 'AfterStepBrkHitCnt', -1);