mirror of https://gitlab.com/basile.b/dexed.git
gdb com, ignored signal handler, state was not reset to running
This commit is contained in:
parent
bce4699819
commit
b668c02f4a
|
@ -475,6 +475,7 @@ type
|
||||||
fLastLine: string;
|
fLastLine: string;
|
||||||
fCommandProcessed: boolean;
|
fCommandProcessed: boolean;
|
||||||
fDebugeeOptions: TCEDebugeeOptions;
|
fDebugeeOptions: TCEDebugeeOptions;
|
||||||
|
procedure continueDebugging;
|
||||||
procedure waitCommandProcessed;
|
procedure waitCommandProcessed;
|
||||||
procedure clearDisplays;
|
procedure clearDisplays;
|
||||||
procedure updateMenu;
|
procedure updateMenu;
|
||||||
|
@ -2175,7 +2176,10 @@ begin
|
||||||
signame := val.AsString;
|
signame := val.AsString;
|
||||||
if (fOptions.ignoredSignals.Count <> 0) and
|
if (fOptions.ignoredSignals.Count <> 0) and
|
||||||
(fOptions.ignoredSignals.IndexOf(signame) <> -1) then
|
(fOptions.ignoredSignals.IndexOf(signame) <> -1) then
|
||||||
|
begin
|
||||||
|
continueDebugging;
|
||||||
exit;
|
exit;
|
||||||
|
end;
|
||||||
if fJson.findAny('signal-meaning', val) then
|
if fJson.findAny('signal-meaning', val) then
|
||||||
sigmean := val.AsString;
|
sigmean := val.AsString;
|
||||||
if fJson.findObject('frame', obj) then
|
if fJson.findObject('frame', obj) then
|
||||||
|
@ -2530,12 +2534,7 @@ begin
|
||||||
gdbCommand(cmd, @gdboutJsonize);
|
gdbCommand(cmd, @gdboutJsonize);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TCEGdbWidget.btnStartClick(Sender: TObject);
|
procedure TCEGdbWidget.continueDebugging;
|
||||||
begin
|
|
||||||
startDebugging;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TCEGdbWidget.btnContClick(Sender: TObject);
|
|
||||||
begin
|
begin
|
||||||
gdbCommand('-exec-continue --all', @gdboutJsonize);
|
gdbCommand('-exec-continue --all', @gdboutJsonize);
|
||||||
if assigned(fGdb) and fgdb.Running then
|
if assigned(fGdb) and fgdb.Running then
|
||||||
|
@ -2545,6 +2544,16 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TCEGdbWidget.btnStartClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
startDebugging;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TCEGdbWidget.btnContClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
continueDebugging;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TCEGdbWidget.btnVariablesClick(Sender: TObject);
|
procedure TCEGdbWidget.btnVariablesClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
infoVariables;
|
infoVariables;
|
||||||
|
|
Loading…
Reference in New Issue