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

FpDebug: Fix pause on linux

Browse Source 
git-svn-id: trunk@63067 -
This commit is contained in:
martin 2020-04-24 20:08:20 +00:00
parent bb08a7b8cb
commit 3370955c2b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fpdbgcontroller.pas
View File

@ -1365,13 +1365,14 @@ begin
deBreakpoint: deBreakpoint:
begin begin
// If there is no breakpoint AND no pause-request then this is a deferred, allready handled pause request // If there is no breakpoint AND no pause-request then this is a deferred, allready handled pause request
continue := (FCurrentProcess.CurrentBreakpoint = nil) and (CurWatch = nil) and (not HasPauseRequest); continue := (FCurrentProcess.CurrentBreakpoint = nil) and (CurWatch = nil);
if (not continue) and assigned(OnHitBreakpointEvent) then begin if (not continue) and assigned(OnHitBreakpointEvent) then begin
if (CurWatch <> nil) then if (CurWatch <> nil) then
OnHitBreakpointEvent(continue, CurWatch); OnHitBreakpointEvent(continue, CurWatch);
if assigned(FCurrentProcess.CurrentBreakpoint) then if assigned(FCurrentProcess.CurrentBreakpoint) then
OnHitBreakpointEvent(continue, FCurrentProcess.CurrentBreakpoint); OnHitBreakpointEvent(continue, FCurrentProcess.CurrentBreakpoint);
HasPauseRequest := False; if not continue then
HasPauseRequest := False;
end; end;
end; end;
deExitProcess: deExitProcess: