paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 05:38:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEDebugger: fixed crashes when manipulating breakpoints in BreakPoints dialog, patch by Martin

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-07-29 16:19:30 +03:00
parent 63bee05d67
commit 5652e05efd
1 changed files with 5 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/packages/idedebugger/breakpointsdlg.pp
View File

@ -43,7 +43,8 @@ uses
{$ifdef Windows} ActiveX, {$else} laz.FakeActiveX, {$endif}
DbgIntfDebuggerBase, DbgIntfMiscClasses, BaseDebugManager,
IdeDebuggerStringConstants, DebuggerTreeView, breakpointgroupframe,
IdeDebuggerOpts, IdeIntfStrConsts, SrcEditorIntf, laz.VirtualTrees;
IdeDebuggerOpts, IdeIntfStrConsts, SrcEditorIntf, laz.VirtualTrees,
LazDebuggerIntf;
type
TBreakPointsDlgState = (
@ -850,11 +851,9 @@ begin
mtConfirmation,[mbYes,mbCancel],0)<>mrYes
then exit;
VNode := tvBreakPoints.GetFirstNoInit;
while VNode <> nil do
for VNode in tvBreakPoints.NoInitItemNodes do
begin
CurBreakPoint:=TIDEBreakPoint(tvBreakPoints.NodeItem[VNode]);
VNode := tvBreakPoints.GetNextNoInit(VNode);
if CompareFilenames(CurBreakPoint.Source,Filename)=0
then ReleaseRefAndNil(CurBreakPoint);
end;
@ -923,11 +922,9 @@ begin
mtConfirmation,[mbYes,mbCancel],0)<>mrYes
then exit;
VNode := tvBreakPoints.GetFirstNoInit;
while VNode <> nil do
for VNode in tvBreakPoints.NoInitItemNodes do
begin
CurBreakPoint:=TIDEBreakPoint(tvBreakPoints.NodeItem[VNode]);
VNode := tvBreakPoints.GetNextNoInit(VNode);
CurBreakPoint.ReleaseReference;
end;
finally
@ -1588,11 +1585,9 @@ begin
else begin
tvBreakPoints.BeginUpdate;
try
VNode := tvBreakPoints.GetFirstSelected;
while VNode <> nil do
for VNode in tvBreakPoints.SelectedItemNodes do
begin
CurBreakPoint:=TIDEBreakPoint(tvBreakPoints.NodeItem[VNode]);
VNode := tvBreakPoints.GetNextSelected(VNode);
CurBreakPoint.ReleaseReference;
end;
finally