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

fix #440 - CPU subwindow of the debugger should be removable

This commit is contained in:
Basile Burg 2019-02-07 02:56:29 +01:00
parent 75bced5d65
commit 148463c25d
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/u_gdb.pas
View File

@ -308,6 +308,7 @@ type
fAsmSyntax: TAsmSyntax;
fKeepRedirectedStreams: boolean;
fStopAllThreadsOnBreak: boolean;
fHideCpuView: boolean;
fDlangBreakpoints: TDlangBreakpoints;
procedure setIgnoredSignals(value: TStringList);
procedure setCommandsHistory(value: TStringList);
@ -325,6 +326,7 @@ type
property commandsHistory: TStringList read fCommandsHistory write setCommandsHistory;
property coreBreakingSymbols: TDlangBreakpoints read fDlangBreakpoints write fDlangBreakpoints;
property customEvalHistory: TStringList read fCustomEvalHistory write setCustomEvalHistory;
property hideCpuView: boolean read fHideCpuView write fHideCpuView default false;
property ignoredSignals: TStringList read fIgnoredSignals write setIgnoredSignals;
property keepRedirectedStreams: boolean read fKeepRedirectedStreams write fKeepRedirectedStreams default false;
property shortcuts: TDebugShortcuts read fShortcuts write setShortcuts;
@ -519,6 +521,7 @@ type
fLastEvalStuff: string;
fCommandProcessed: boolean;
fDebugeeOptions: TDebugeeOptions;
procedure updateCpuViewVisibility;
procedure continueDebugging;
procedure waitCommandProcessed;
procedure clearDisplays;
@ -1260,6 +1263,7 @@ begin
end;
end;
updateCpuViewVisibility;
updateMenu;
updateButtonsState;
end;
@ -1288,6 +1292,14 @@ begin
varListFlt.flat := value;
end;
procedure TGdbWidget.updateCpuViewVisibility;
begin
if not GroupBox3.Visible then
PageControl2.Align:= alClient
else
PageControl2.Align:= alTop;
end;
procedure TGdbWidget.updateMenu;
var
mnu: IMainMenu;
@ -1428,6 +1440,8 @@ end;
procedure TGdbWidget.optionsChangesApplied(sender: TObject);
begin
updateMenu;
GroupBox3.Visible := not fOptions.hideCpuView;
updateCpuViewVisibility;
end;
procedure TGdbWidget.executeFromShortcut(sender: TObject);
@ -2171,7 +2185,7 @@ procedure TGdbWidget.interpretJson;
begin
if fOptions.autoGetCallStack then
infoStack;
if fOptions.autoGetRegisters then
if fOptions.autoGetRegisters and not fOptions.hideCpuView then
infoRegs;
if fOptions.autoGetVariables then
infoVariables;
@ -2341,7 +2355,7 @@ begin
if fJson.findAny('msg', val) then
fMsg.message(val.AsString, nil, amcMisc, amkAuto);
if fJson.findArray('register-values', arr) then
if not fOptions.hideCpuView and fJson.findArray('register-values', arr) then
begin
for i := 0 to arr.Count-1 do
begin
@ -2605,6 +2619,8 @@ end;
procedure TGdbWidget.infoRegs;
begin
if fOptions.hideCpuView then
exit;
disableEditor;
gdbCommand('-data-list-register-values r', @gdboutJsonize);
end;