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

gdb commander, place results of custm eval in the variable list 

it's not anymore required to inspect the raw gdbmi output to see them
This commit is contained in:
Basile Burg 2020-01-29 23:55:14 +01:00
parent ab343f3e38
commit 70e85ed84e
1 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/u_gdb.pas
View File

@ -501,6 +501,7 @@ type
fSubj: TDebugObserverSubject;
fDoc: TDexedMemo;
fDbgRunnable: boolean;
fCatchCustomEval: boolean;
fProj: ICommonProject;
fJson: TJsonObject;
fLog: TStringList;
@ -2231,6 +2232,30 @@ var
fFpuRaw: array[0..9] of Byte absolute fFpuExtended;
begin
if fCatchCustomEval then
begin
fCatchCustomEval := false;
if fJson.findAny('value', val) then
begin
case fEvalKind of
TGdbEvalKind.gekSelectedVar:
lstVariables.AddItem(format('reevaluation of `%s`', [fLastEvalStuff]), nil);
TGdbEvalKind.gekDerefSelectedVar:
lstVariables.AddItem(format('dereference of `*(%s)`', [fLastEvalStuff]), nil);
TGdbEvalKind.gekCustom:
lstVariables.AddItem(format('evaluation of `%s`', [fLastEvalStuff]), nil);
end;
with lstVariables.Items[lstVariables.Items.Count-1] do
begin
SubItems.Add(val.AsString);
MakeVisible(false);
Selected:=true;
end;
end
else dlgOkInfo(format('it was not possible to evaluate '#10#9'`%s`', [fLastEvalStuff]));
exit;
end;
if fJson.findAny('reason', val) then
begin
reason := val.AsString;
@ -2666,7 +2691,8 @@ end;
procedure TGdbWidget.evalStuff(const stuff: string);
begin
fLastEvalStuff := stuff;
gdbCommand('-data-evaluate-expression "' + stuff + '"');
fCatchCustomEval := true;
gdbCommand('-data-evaluate-expression "' + stuff + '"', @gdboutJsonize);
end;
procedure TGdbWidget.continueDebugging;