paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 07:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFp: remove int3 when conditional breakpoint is getting disabled/inactive. (used to wait until condition was true)

Browse Source
This commit is contained in:
Martin 2023-01-09 17:08:14 +01:00
parent e90e3d0637
commit d31003464a
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -333,7 +333,7 @@ type
*)
FWorkerThreadId: TThreadID;
FEvalWorkItem: TFpThreadWorkerCmdEval;
FQuickPause, FPauseForEvent, FInternalPauseForEvent, FSendingEvents: boolean;
FQuickPause, FRunQuickPauseTasks, FPauseForEvent, FInternalPauseForEvent, FSendingEvents: boolean;
FExceptionStepper: TFpDebugExceptionStepping;
FConsoleOutputThread: TThread;
// Helper vars to run in debug-thread
@ -2000,7 +2000,7 @@ begin
FSetBreakFlag:=true;
Changed;
end
else if not enabled and FIsSet then
else if (not enabled) and FIsSet then
begin
FResetBreakFlag:=true;
Changed;
@ -2025,8 +2025,13 @@ begin
else if not Enabled and FIsSet then
FResetBreakFlag := True;
end
else if (ADebugger.State = dsRun) and (Enabled and not FIsSet) then
ADebugger.QuickPause;
else if (ADebugger.State = dsRun) then begin
if Enabled and (not FIsSet) then
ADebugger.QuickPause
else
if (not Enabled) and FIsSet then
ADebugger.FRunQuickPauseTasks := True;
end;
inherited;
end;
@ -3725,6 +3730,7 @@ begin
if (not AMoreHitEventsPending) and (FPauseForEvent or FInternalPauseForEvent) then begin
FQuickPause := False; // Ok, because we will SetState => RunQuickPauseTasks is not needed
FRunQuickPauseTasks := False;
if FPauseForEvent then
&continue := False; // Only continue, if ALL events did say to continue
@ -4098,9 +4104,13 @@ end;
procedure TFpDebugDebugger.RunQuickPauseTasks(AForce: Boolean);
begin
if AForce or
FQuickPause
FQuickPause or
FRunQuickPauseTasks
then
TFPBreakpoints(Breakpoints).DoStateChange(dsRun);
FRunQuickPauseTasks :=false;
// FQuickPause will be reset by caller
end;
procedure TFpDebugDebugger.DoRelease;