forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix #157 - after a gdb session breakpoints deleted from gutter not signaled

This commit is contained in:
Basile Burg 2017-08-16 10:39:13 +02:00
parent 387b2afc81
commit dae1d4c430
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
2 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/ce_gdb.pas
View File

@ -242,8 +242,8 @@ type
destructor destroy; override;
function count: integer;
procedure clearFile(const fname: string);
procedure deleteItem(const fname: string; line: integer; kind: TBreakPointKind);
procedure addItem(const fname: string; line: integer; kind: TBreakPointKind);
function deleteItem(const fname: string; line: integer; kind: TBreakPointKind): boolean;
function addItem(const fname: string; line: integer; kind: TBreakPointKind): boolean;
property item[index: integer]: TPersistentBreakPoint read getItem; default;
end;
@ -810,29 +810,33 @@ begin
end;
end;
procedure TPersistentBreakPoints.addItem(const fname: string; line: integer; kind: TBreakPointKind);
function TPersistentBreakPoints.addItem(const fname: string; line: integer; kind: TBreakPointKind): boolean;
var
b: TPersistentBreakPoint;
begin
result := false;
if not find(fname, line, kind) then
begin
b := TPersistentBreakPoint(fItems.Add);
b.filename:=fname;
b.line:=line;
b.kind:=kind;
result := true;
end;
end;
procedure TPersistentBreakPoints.deleteItem(const fname: string; line: integer; kind: TBreakPointKind);
function TPersistentBreakPoints.deleteItem(const fname: string; line: integer; kind: TBreakPointKind): boolean;
var
i: integer;
b: TPersistentBreakPoint;
begin
result := false;
for i := fItems.Count-1 downto 0 do
begin
b := item[i];
if (b.filename = fname) and (b.line = line) and (b.kind = kind) then
begin
result := true;
fItems.Delete(i);
break;
end;
@ -1483,10 +1487,11 @@ procedure TCEGdbWidget.addBreakPoint(const fname: string; line: integer;
kind: TBreakPointKind = bpkBreak);
var
r: boolean;
a: boolean = false;
begin
if assigned(fBreakPoints) then
fBreakPoints.addItem(fname, line, kind);
if fGdb.isNil or not fGdb.Running then
a := fBreakPoints.addItem(fname, line, kind);
if not a or fGdb.isNil or not fGdb.Running then
exit;
r := fGdbState = gsRunning;
if r then
@ -1509,10 +1514,11 @@ procedure TCEGdbWidget.removeBreakPoint(const fname: string; line: integer;
kind: TBreakPointKind = bpkBreak);
var
r: boolean;
d: boolean = false;
begin
if assigned(fBreakPoints) then
fBreakPoints.deleteItem(fname, line, kind);
if fGdb.isNil or not fGdb.Running then
d := fBreakPoints.deleteItem(fname, line, kind);
if not d or fGdb.isNil or not fGdb.Running then
exit;
r := fGdbState = gsRunning;
if r then

1
src/ce_synmemo.pas
View File

@ -3372,7 +3372,6 @@ end;
procedure TCESynMemo.debugStop;
begin
fDebugger := nil;
removeDebugTimeMarks;
end;