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

fix #196 - breakpoint always inserted if BP registry contains... 

...a ref to an unsaved document
This commit is contained in:
Basile Burg 2017-10-28 09:36:22 +02:00
parent d8c60b41a5
commit 38b651f404
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ce_gdb.pas
View File

@ -1416,15 +1416,21 @@ begin
fDoc := document; fDoc := document;
if fGdbState = gsNone then if fGdbState = gsNone then
updateDebugeeOptionsEditor; updateDebugeeOptionsEditor;
if (fDoc.fileName <> '<new document>') then
begin
fSynchronizingBreakpoints:= true; fSynchronizingBreakpoints:= true;
if fSynchronizedDocuments.IndexOf(document.fileName) = -1 then if fSynchronizedDocuments.IndexOf(document.fileName) = -1 then
begin
fSynchronizedDocuments.Add(document.fileName);
for i:= 0 to fBreakPoints.count-1 do for i:= 0 to fBreakPoints.count-1 do
begin begin
b := fBreakPoints.item[i]; b := fBreakPoints.item[i];
if b.filename = fDoc.fileName then if b.filename = fDoc.fileName then
fDoc.addBreakpoint(b.line); fDoc.addBreakpoint(b.line);
end; end;
end;
fSynchronizingBreakpoints:= false; fSynchronizingBreakpoints:= false;
end;
end; end;
procedure TCEGdbWidget.docChanged(document: TCESynMemo); procedure TCEGdbWidget.docChanged(document: TCESynMemo);