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

Debugger, Test: don't get current location when not paused

Browse Source
This commit is contained in:
Martin 2024-03-18 15:28:27 +01:00
parent 6aa6ea6983
commit 34a5fe0392
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/lazdebugtestbase/ttestdbgexecuteables.pas
View File

@ -465,7 +465,8 @@ function TTestDbgDebugger.RunToNextPause(ACmd: TDBGCommand; ATimeOut: Integer;
AWaitForInternal: Boolean): Boolean;
begin
Result := False;
with CurLocation do DebugLnEnter('>>> RunToNextPause Starting at %s %d @ %x', [SrcFile, SrcLine, Address]);
if LazDebugger.State in [dsPause, dsInternalPause] then
with CurLocation do DebugLnEnter('>>> RunToNextPause Starting at %s %d @ %x', [SrcFile, SrcLine, Address]);
case ACmd of
dcRun: LazDebugger.Run;
dcStepOver: LazDebugger.StepOver;