paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 14:00:18 +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);
if Debugger.State in [dsPause, dsInternalPause] then
begin
if FDelayedRemoveBreakpointList.Count>0 then
if FDelayedRemoveBreakpointList.Count>0 then begin
debuglnEnter(DBG_BREAKPOINTS, ['TFPBreakpoints.DoStateChange REMOVE DELAYED']);
for i := FDelayedRemoveBreakpointList.Count-1 downto 0 do
begin
@ -852,6 +852,7 @@ begin
debuglnExit(DBG_BREAKPOINTS, ['<< TFPBreakpoints.DoStateChange REMOVE DELAYED ' ]);
end;
end;
end;
procedure TFPBreakpoints.AddBreakpointToDelayedRemoveList(ABreakpoint: FpDbgClasses.TFpInternalBreakpoint);
begin