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

gdb commander, save and reload custom eval kind between sessions

This commit is contained in:
Basile Burg 2020-01-29 23:27:04 +01:00
parent f26a7b9305
commit ab343f3e38
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/u_gdb.pas
View File

@ -290,6 +290,8 @@ type
TDlangBreakpoints = set of TDlangBreakpoint;
TGdbEvalKind = (gekSelectedVar, gekDerefSelectedVar, gekCustom);
TDebugOptionsBase = class(TWritableLfmTextComponent)
private
fAutoDisassemble: boolean;
@ -310,6 +312,7 @@ type
fStopAllThreadsOnBreak: boolean;
fHideCpuView: boolean;
fDlangBreakpoints: TDlangBreakpoints;
fCurrentEvalKind: TGdbEvalKind;
procedure setIgnoredSignals(value: TStringList);
procedure setCommandsHistory(value: TStringList);
procedure setCustomEvalHistory(value: TStringList);
@ -325,6 +328,7 @@ type
property autoGetThreads: boolean read fAutoGetThreads write fAutoGetThreads;
property commandsHistory: TStringList read fCommandsHistory write setCommandsHistory;
property coreBreakingSymbols: TDlangBreakpoints read fDlangBreakpoints write fDlangBreakpoints;
property currentEvalKind: TGdbEvalKind read fCurrentEvalKind write fCurrentEvalKind;
property customEvalHistory: TStringList read fCustomEvalHistory write setCustomEvalHistory;
property hideCpuView: boolean read fHideCpuView write fHideCpuView default false;
property ignoredSignals: TStringList read fIgnoredSignals write setIgnoredSignals;
@ -403,8 +407,6 @@ type
property projectByFile[const fname: string]: TDebugeeOption read getProjectByFile; default;
end;
TGdbEvalKind = (gekSelectedVar, gekDerefSelectedVar, gekCustom);
{ TGdbWidget }
TGdbWidget = class(TDexedWidget, IProjectObserver, IDocumentObserver, IDebugger)
btnContinue: TDexedToolButton;
@ -760,6 +762,7 @@ begin
fCommandsHistory.Assign(src.fCommandsHistory);
fShortcuts.assign(src.fShortcuts);
fKeepRedirectedStreams := src.fKeepRedirectedStreams;
fCurrentEvalKind := src.fCurrentEvalKind;
end
else inherited;
end;
@ -1273,6 +1276,7 @@ destructor TGdbWidget.destroy;
begin
fInput.free;
fOutput.Free;
fOptions.fCurrentEvalKind:=fEvalKind;
fOptions.commandsHistory.Assign(edit1.Items);
fOptions.Free;
fLog.Free;
@ -1426,6 +1430,13 @@ begin
itm.Bitmap.Assign(bmp);
itm.ImageIndex:= fMenu.GetImageList.Add(bmp, nil);
fEvalKind:= fOptions.fCurrentEvalKind;
case fEvalKind of
TGdbEvalKind.gekSelectedVar : mnuEvalSelected.Click();
TGdbEvalKind.gekDerefSelectedVar: mnuEvalDeref.Click();
TGdbEvalKind.gekCustom : mnuEvalCustom.Click();
end;
bmp.Free;
end;