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

fix #71 - add "Run until instruction" to gdb commander asm view

This commit is contained in:
Basile Burg 2021-09-15 03:19:34 +02:00
parent 0fd5ca5461
commit 0679140ef9
3 changed files with 62 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@ -7,6 +7,7 @@
- DUB projects: added support for the _syntax_ build type. (#83) - DUB projects: added support for the _syntax_ build type. (#83)
- GDB commander: arguments of the _Debugee Options_ can be temporarily deactivated by prepending `//`. - GDB commander: arguments of the _Debugee Options_ can be temporarily deactivated by prepending `//`.
- GDB commander: add an option allowing to set the path to the gdb binary. (#73) - GDB commander: add an option allowing to set the path to the gdb binary. (#73)
- GDB commander: the context menu of the ASM view allows to resume execution until the selected instruction. (#71)
- Search results: use GNU style messages. (#84) - Search results: use GNU style messages. (#84)
## Bugs fixed ## Bugs fixed

72
src/u_gdb.lfm
View File

@ -20,28 +20,28 @@ inherited GdbWidget: TGdbWidget
ClientWidth = 672 ClientWidth = 672
object Panel1: TPanel[0] object Panel1: TPanel[0]
Left = 0 Left = 0
Height = 387 Height = 385
Top = 205 Top = 205
Width = 672 Width = 672
Align = alClient Align = alClient
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 387 ClientHeight = 385
ClientWidth = 672 ClientWidth = 672
TabOrder = 0 TabOrder = 0
object GroupBox3: TGroupBox object GroupBox3: TGroupBox
Left = 0 Left = 0
Height = 181 Height = 179
Top = 206 Top = 206
Width = 672 Width = 672
Align = alClient Align = alClient
Caption = 'CPU' Caption = 'CPU'
ClientHeight = 162 ClientHeight = 160
ClientWidth = 668 ClientWidth = 668
TabOrder = 0 TabOrder = 0
object cpuViewer: TTIPropertyGrid object cpuViewer: TTIPropertyGrid
Left = 0 Left = 0
Height = 162 Height = 160
Hint = 'cpu registers' Hint = 'cpu registers'
Top = 0 Top = 0
Width = 668 Width = 668
@ -70,9 +70,9 @@ inherited GdbWidget: TGdbWidget
Height = 200 Height = 200
Top = 0 Top = 0
Width = 672 Width = 672
ActivePage = TabSheet3 ActivePage = TabSheet4
Align = alTop Align = alTop
TabIndex = 0 TabIndex = 1
TabOrder = 2 TabOrder = 2
OnChange = PageControl2Change OnChange = PageControl2Change
object TabSheet3: TTabSheet object TabSheet3: TTabSheet
@ -81,8 +81,8 @@ inherited GdbWidget: TGdbWidget
ClientWidth = 670 ClientWidth = 670
object lstVariables: TListView object lstVariables: TListView
Left = 2 Left = 2
Height = 141 Height = 139
Top = 30 Top = 32
Width = 666 Width = 666
Align = alClient Align = alClient
BorderSpacing.Around = 2 BorderSpacing.Around = 2
@ -90,12 +90,12 @@ inherited GdbWidget: TGdbWidget
item item
AutoSize = True AutoSize = True
Caption = 'name' Caption = 'name'
Width = 45 Width = 43
end end
item item
AutoSize = True AutoSize = True
Caption = 'value' Caption = 'value'
Width = 619 Width = 621
end> end>
GridLines = True GridLines = True
HideSelection = False HideSelection = False
@ -109,7 +109,7 @@ inherited GdbWidget: TGdbWidget
end end
object varListFlt: TListViewFilterEdit object varListFlt: TListViewFilterEdit
Left = 2 Left = 2
Height = 26 Height = 28
Hint = 'locate variables' Hint = 'locate variables'
Top = 2 Top = 2
Width = 666 Width = 666
@ -128,9 +128,9 @@ inherited GdbWidget: TGdbWidget
ClientWidth = 670 ClientWidth = 670
object lstAsm: TListView object lstAsm: TListView
Left = 2 Left = 2
Height = 161 Height = 169
Top = 2 Top = 2
Width = 507 Width = 666
Align = alClient Align = alClient
AutoSort = False AutoSort = False
AutoWidthLastColumn = True AutoWidthLastColumn = True
@ -139,11 +139,11 @@ inherited GdbWidget: TGdbWidget
item item
AutoSize = True AutoSize = True
Caption = 'address' Caption = 'address'
Width = 59 Width = 57
end end
item item
Caption = 'instruction' Caption = 'instruction'
Width = 446 Width = 607
end> end>
GridLines = True GridLines = True
HideSelection = False HideSelection = False
@ -158,19 +158,19 @@ inherited GdbWidget: TGdbWidget
end end
object Panel3: TPanel[1] object Panel3: TPanel[1]
Left = 4 Left = 4
Height = 26 Height = 28
Top = 596 Top = 594
Width = 664 Width = 664
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 26 ClientHeight = 28
ClientWidth = 664 ClientWidth = 664
TabOrder = 1 TabOrder = 1
object btnSendCom: TSpeedButton object btnSendCom: TSpeedButton
Left = 659 Left = 659
Height = 24 Height = 26
Top = 1 Top = 1
Width = 4 Width = 4
Align = alRight Align = alRight
@ -180,7 +180,7 @@ inherited GdbWidget: TGdbWidget
end end
object Edit1: TComboBox object Edit1: TComboBox
Left = 0 Left = 0
Height = 26 Height = 28
Hint = 'enter a custom GDB command or the program input with ">"' Hint = 'enter a custom GDB command or the program input with ">"'
Top = 0 Top = 0
Width = 658 Width = 658
@ -255,10 +255,10 @@ inherited GdbWidget: TGdbWidget
ClientWidth = 670 ClientWidth = 670
object lstThreads: TListView object lstThreads: TListView
Left = 0 Left = 0
Height = 169 Height = 173
Hint = 'call stack' Hint = 'call stack'
Top = 0 Top = 0
Width = 513 Width = 670
Align = alClient Align = alClient
AutoSort = False AutoSort = False
AutoWidthLastColumn = True AutoWidthLastColumn = True
@ -266,36 +266,36 @@ inherited GdbWidget: TGdbWidget
item item
AutoSize = True AutoSize = True
Caption = 'id' Caption = 'id'
Width = 20 Width = 18
end end
item item
AutoSize = True AutoSize = True
Caption = 'state' Caption = 'state'
Width = 41 Width = 39
end end
item item
AutoSize = True AutoSize = True
Caption = 'core' Caption = 'core'
Width = 36 Width = 34
end end
item item
AutoSize = True AutoSize = True
Caption = 'function' Caption = 'function'
Width = 61
end
item
AutoSize = True
Caption = 'address'
Width = 59 Width = 59
end end
item
AutoSize = True
Caption = 'address'
Width = 57
end
item item
AutoSize = True AutoSize = True
Caption = 'filename' Caption = 'filename'
Width = 65 Width = 64
end end
item item
Caption = 'line' Caption = 'line'
Width = 229 Width = 397
end> end>
GridLines = True GridLines = True
ReadOnly = True ReadOnly = True
@ -311,9 +311,9 @@ inherited GdbWidget: TGdbWidget
ClientWidth = 670 ClientWidth = 670
object dbgeeOptsEd: TTIPropertyGrid object dbgeeOptsEd: TTIPropertyGrid
Left = 2 Left = 2
Height = 161 Height = 169
Top = 2 Top = 2
Width = 507 Width = 666
Align = alClient Align = alClient
BorderSpacing.Around = 2 BorderSpacing.Around = 2
CheckboxForBoolean = True CheckboxForBoolean = True
@ -353,7 +353,7 @@ inherited GdbWidget: TGdbWidget
end end
object button4: TDexedToolButton[2] object button4: TDexedToolButton[2]
Left = 205 Left = 205
Height = 5 Height = 28
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = 'button4' Caption = 'button4'

26
src/u_gdb.pas
View File

@ -550,6 +550,7 @@ type
procedure killGdb; procedure killGdb;
procedure updateDebugeeOptionsEditor; procedure updateDebugeeOptionsEditor;
procedure deleteRedirectedIO; procedure deleteRedirectedIO;
procedure runUntilAsmInstruction(Sender: TObject);
// GDB output processors // GDB output processors
procedure gdboutQuiet(sender: TObject); procedure gdboutQuiet(sender: TObject);
procedure gdboutJsonize(sender: TObject); procedure gdboutJsonize(sender: TObject);
@ -1243,6 +1244,8 @@ end;
{$REGION Common/standard comp --------------------------------------------------} {$REGION Common/standard comp --------------------------------------------------}
constructor TGdbWidget.create(aOwner: TComponent); constructor TGdbWidget.create(aOwner: TComponent);
var
asmBreak: TMenuItem;
begin begin
inherited; inherited;
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
@ -1264,10 +1267,17 @@ begin
fSynchronizedDocuments := TStringList.Create; fSynchronizedDocuments := TStringList.Create;
TListViewCopyMenu.create(lstCallStack); TListViewCopyMenu.create(lstCallStack);
TListViewCopyMenu.create(lstAsm);
TListViewCopyMenu.create(lstVariables); TListViewCopyMenu.create(lstVariables);
TListViewCopyMenu.create(lstThreads); TListViewCopyMenu.create(lstThreads);
with TListViewCopyMenu.create(lstAsm) do
begin
asmBreak := TMenuItem.Create(self);
asmBreak.Caption:= 'Run until instruction';
asmBreak.OnClick:= @runUntilAsmInstruction;
addAdditionalItem(asmBreak);
end;
cpuViewer.DefaultItemHeight := scaleY(22, 96); cpuViewer.DefaultItemHeight := scaleY(22, 96);
dbgeeOptsEd.DefaultItemHeight:= cpuViewer.DefaultItemHeight; dbgeeOptsEd.DefaultItemHeight:= cpuViewer.DefaultItemHeight;
@ -3029,6 +3039,20 @@ begin
HintInfo^.HintStr:= i.SubItems[0]; HintInfo^.HintStr:= i.SubItems[0];
end; end;
procedure TGdbWidget.runUntilAsmInstruction(Sender: TObject);
var
a: string;
begin
if fGdbState <> TGdbState.gsPaused then
exit;
a := lstAsm.Selected.Caption;
if a.isNotEmpty then
begin
gdbCommand(format('-break-insert -t *%s', [a]) + #10);
continueDebugging();
end;
end;
procedure TGdbWidget.mnuEvalDerefClick(Sender: TObject); procedure TGdbWidget.mnuEvalDerefClick(Sender: TObject);
begin begin
fEvalKind := gekDerefSelectedVar; fEvalKind := gekDerefSelectedVar;