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

gdb com, ignored signal handler, state was not reset to running

This commit is contained in:
Basile Burg 2017-02-26 08:03:27 +01:00
parent bce4699819
commit b668c02f4a
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/ce_gdb.pas
View File

@ -475,6 +475,7 @@ type
fLastLine: string;
fCommandProcessed: boolean;
fDebugeeOptions: TCEDebugeeOptions;
procedure continueDebugging;
procedure waitCommandProcessed;
procedure clearDisplays;
procedure updateMenu;
@ -2175,7 +2176,10 @@ begin
signame := val.AsString;
if (fOptions.ignoredSignals.Count <> 0) and
(fOptions.ignoredSignals.IndexOf(signame) <> -1) then
exit;
begin
continueDebugging;
exit;
end;
if fJson.findAny('signal-meaning', val) then
sigmean := val.AsString;
if fJson.findObject('frame', obj) then
@ -2530,12 +2534,7 @@ begin
gdbCommand(cmd, @gdboutJsonize);
end;
procedure TCEGdbWidget.btnStartClick(Sender: TObject);
begin
startDebugging;
end;
procedure TCEGdbWidget.btnContClick(Sender: TObject);
procedure TCEGdbWidget.continueDebugging;
begin
gdbCommand('-exec-continue --all', @gdboutJsonize);
if assigned(fGdb) and fgdb.Running then
@ -2545,6 +2544,16 @@ begin
end;
end;
procedure TCEGdbWidget.btnStartClick(Sender: TObject);
begin
startDebugging;
end;
procedure TCEGdbWidget.btnContClick(Sender: TObject);
begin
continueDebugging;
end;
procedure TCEGdbWidget.btnVariablesClick(Sender: TObject);
begin
infoVariables;