paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 18:59:08 +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

1
components/lazdebuggers/lazdebugtestbase/ttestdbgexecuteables.pas
View File

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