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

#97, add itf method called on dbg resume

This commit is contained in:
Basile Burg 2016-12-01 06:08:18 +01:00
parent d9216222ac
commit e79eeaecb1
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
3 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/ce_dbgitf.pas
View File

@ -47,6 +47,8 @@ type
out line: integer; out kind: TBreakPointKind);
// a break happens when code in fname at line is executed.
procedure debugBreak(const fname: string; line: integer; reason: TCEDebugBreakReason);
// debugging continue
procedure debugContinue;
end;
(**
@ -57,6 +59,7 @@ type
// TCEDebugObserverSubject primitives
procedure subjDebugStart(subj: TCEDebugObserverSubject; dbg: ICEDebugger);
procedure subjDebugStop(subj: TCEDebugObserverSubject);
procedure subjDebugContinue(subj: TCEDebugObserverSubject);
procedure subjDebugBreak(subj: TCEDebugObserverSubject; const fname: string;
line: integer; reason: TCEDebugBreakReason);
@ -88,5 +91,13 @@ begin
(subj.observers[i] as ICEDebugObserver).debugBreak(fname, line, reason);
end;
procedure subjDebugContinue(subj: TCEDebugObserverSubject);
var
i: integer;
begin
for i:= 0 to subj.observersCount-1 do
(subj.observers[i] as ICEDebugObserver).debugContinue;
end;
end.

3
src/ce_gdb.pas
View File

@ -2249,7 +2249,10 @@ procedure TCEGdbWidget.btnContClick(Sender: TObject);
begin
gdbCommand('-exec-continue --all', @gdboutJsonize);
if assigned(fGdb) and fgdb.Running then
begin
setState(gsRunning);
subjDebugContinue(fSubj);
end;
end;
procedure TCEGdbWidget.btnVariablesClick(Sender: TObject);

6
src/ce_synmemo.pas
View File

@ -219,6 +219,7 @@ type
function findBreakPoint(line: integer): boolean;
procedure debugStart(debugger: ICEDebugger);
procedure debugStop;
procedure debugContinue;
function debugQueryBpCount: integer;
procedure debugQueryBreakPoint(const index: integer; out fname: string; out line: integer; out kind: TBreakPointKind);
procedure debugBreak(const fname: string; line: integer; reason: TCEDebugBreakReason);
@ -2651,6 +2652,11 @@ begin
removeDebugTimeMarks;
end;
procedure TCESynMemo.debugContinue;
begin
removeDebugTimeMarks;
end;
function TCESynMemo.debugQueryBpCount: integer;
begin
exit(fBreakPoints.Count);