paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 21:20:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFp: Fixed updating breakpoint-state

Browse Source 
git-svn-id: trunk@64976 -
This commit is contained in:
martin 2021-04-12 03:44:39 +00:00
parent 058e8264fa
commit 07bdec6e7c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -511,6 +511,7 @@ type
procedure DoStateChange(const AOldState: TDBGState); override;
procedure DoEnableChange; override;
procedure DoChanged; override;
property Validity: TValidState write SetValid;
public
destructor Destroy; override;
end;
@ -1013,9 +1014,9 @@ begin
assert(FDbgBreakPoint.FInternalBreakpoint = nil, 'TFpThreadWorkerBreakPointSetUpdate.UpdateBrkPoint_DecRef: FDbgBreakPoint.FInternalBreakpoint = nil');
FDbgBreakPoint.FInternalBreakpoint := InternalBreakpoint;
if not assigned(InternalBreakpoint) then
FDbgBreakPoint.SetPendingToValid(vsInvalid) // pending?
FDbgBreakPoint.Validity := vsInvalid // pending?
else
FDbgBreakPoint.SetPendingToValid(vsValid);
FDbgBreakPoint.Validity := vsValid;
end;
UnQueue_DecRef;
@ -1594,6 +1595,7 @@ begin
FThreadWorker := TFpThreadWorkerBreakPointSetUpdate.Create(TFpDebugDebugger(Debugger), Self);
TFpDebugDebugger(Debugger).FWorkQueue.PushItem(FThreadWorker);
FValid := vsUnknown;
FIsSet:=true;
debuglnExit(DBG_BREAKPOINTS, ['<< TFPBreakpoint.SetBreak ' ]);
end;