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

LazDebuggerFp: fix debugln

Browse Source 
git-svn-id: trunk@61837 -
This commit is contained in:
martin 2019-09-08 19:03:06 +00:00
parent 3254177a33
commit 736f8b32fa
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

@ -839,7 +839,7 @@ begin
inherited DoStateChange(AOldState); inherited DoStateChange(AOldState);
if Debugger.State in [dsPause, dsInternalPause] then if Debugger.State in [dsPause, dsInternalPause] then
begin begin
if FDelayedRemoveBreakpointList.Count>0 then if FDelayedRemoveBreakpointList.Count>0 then begin
debuglnEnter(DBG_BREAKPOINTS, ['TFPBreakpoints.DoStateChange REMOVE DELAYED']); debuglnEnter(DBG_BREAKPOINTS, ['TFPBreakpoints.DoStateChange REMOVE DELAYED']);
for i := FDelayedRemoveBreakpointList.Count-1 downto 0 do for i := FDelayedRemoveBreakpointList.Count-1 downto 0 do
begin begin
@ -850,6 +850,7 @@ begin
FDelayedRemoveBreakpointList.Delete(i); FDelayedRemoveBreakpointList.Delete(i);
end; end;
debuglnExit(DBG_BREAKPOINTS, ['<< TFPBreakpoints.DoStateChange REMOVE DELAYED ' ]); debuglnExit(DBG_BREAKPOINTS, ['<< TFPBreakpoints.DoStateChange REMOVE DELAYED ' ]);
end;
end; end;
end; end;