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

close #201 - show the lines nbr in the GDB commander view of the call stack

This commit is contained in:
Basile Burg 2017-11-16 21:56:13 +01:00
parent 0edff226cb
commit a99c2f0312
2 changed files with 38 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
src/ce_gdb.lfm
View File

@ -34,15 +34,15 @@ inherited CEGdbWidget: TCEGdbWidget
Width = 517 Width = 517
Align = alClient Align = alClient
Caption = 'CPU' Caption = 'CPU'
ClientHeight = 149 ClientHeight = 161
ClientWidth = 513 ClientWidth = 515
TabOrder = 0 TabOrder = 0
object cpuViewer: TTIPropertyGrid object cpuViewer: TTIPropertyGrid
Left = 0 Left = 0
Height = 149 Height = 161
Hint = 'cpu registers' Hint = 'cpu registers'
Top = 0 Top = 0
Width = 513 Width = 515
Align = alClient Align = alClient
CheckboxForBoolean = True CheckboxForBoolean = True
DefaultValueFont.Color = clWindowText DefaultValueFont.Color = clWindowText
@ -75,13 +75,13 @@ inherited CEGdbWidget: TCEGdbWidget
OnChange = PageControl2Change OnChange = PageControl2Change
object TabSheet3: TTabSheet object TabSheet3: TTabSheet
Caption = 'Variables' Caption = 'Variables'
ClientHeight = 164 ClientHeight = 173
ClientWidth = 509 ClientWidth = 515
object lstVariables: TListView object lstVariables: TListView
Left = 2 Left = 2
Height = 138 Height = 139
Top = 24 Top = 32
Width = 505 Width = 511
Align = alClient Align = alClient
AutoWidthLastColumn = True AutoWidthLastColumn = True
BorderSpacing.Around = 2 BorderSpacing.Around = 2
@ -89,11 +89,11 @@ inherited CEGdbWidget: TCEGdbWidget
item item
AutoSize = True AutoSize = True
Caption = 'name' Caption = 'name'
Width = 46 Width = 53
end end
item item
Caption = 'value' Caption = 'value'
Width = 455 Width = 456
end> end>
GridLines = True GridLines = True
HideSelection = False HideSelection = False
@ -106,10 +106,10 @@ inherited CEGdbWidget: TCEGdbWidget
end end
object varListFlt: TListViewFilterEdit object varListFlt: TListViewFilterEdit
Left = 2 Left = 2
Height = 20 Height = 28
Hint = 'locate variables' Hint = 'locate variables'
Top = 2 Top = 2
Width = 505 Width = 511
ButtonWidth = 24 ButtonWidth = 24
NumGlyphs = 1 NumGlyphs = 1
Align = alTop Align = alTop
@ -121,8 +121,8 @@ inherited CEGdbWidget: TCEGdbWidget
end end
object TabSheet4: TTabSheet object TabSheet4: TTabSheet
Caption = 'Assembler' Caption = 'Assembler'
ClientHeight = 164 ClientHeight = 173
ClientWidth = 509 ClientWidth = 515
object lstAsm: TListView object lstAsm: TListView
Left = 2 Left = 2
Height = 160 Height = 160
@ -136,7 +136,7 @@ inherited CEGdbWidget: TCEGdbWidget
item item
AutoSize = True AutoSize = True
Caption = 'address' Caption = 'address'
Width = 59 Width = 67
end end
item item
Caption = 'instruction' Caption = 'instruction'
@ -209,31 +209,34 @@ inherited CEGdbWidget: TCEGdbWidget
TabOrder = 3 TabOrder = 3
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Call stack' Caption = 'Call stack'
ClientHeight = 164 ClientHeight = 173
ClientWidth = 509 ClientWidth = 515
object lstCallStack: TListView object lstCallStack: TListView
Left = 0 Left = 0
Height = 164 Height = 173
Hint = 'call stack' Hint = 'call stack'
Top = 0 Top = 0
Width = 509 Width = 515
Align = alClient Align = alClient
AutoSort = False AutoSort = False
AutoWidthLastColumn = True AutoWidthLastColumn = True
Columns = < Columns = <
item item
AutoSize = True
Caption = 'function' Caption = 'function'
Width = 62 Width = 1
end end
item item
AutoSize = True AutoSize = True
Caption = 'address' Caption = 'address'
Width = 59 Width = 67
end end
item item
Caption = 'filename' Caption = 'filename'
Width = 384 Width = 100
end
item
Caption = 'line'
Width = 345
end> end>
GridLines = True GridLines = True
ReadOnly = True ReadOnly = True
@ -245,8 +248,8 @@ inherited CEGdbWidget: TCEGdbWidget
end end
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = 'Thread list' Caption = 'Thread list'
ClientHeight = 164 ClientHeight = 173
ClientWidth = 509 ClientWidth = 515
object lstThreads: TListView object lstThreads: TListView
Left = 0 Left = 0
Height = 164 Height = 164
@ -260,32 +263,32 @@ inherited CEGdbWidget: TCEGdbWidget
item item
AutoSize = True AutoSize = True
Caption = 'id' Caption = 'id'
Width = 23 Width = 28
end end
item item
AutoSize = True AutoSize = True
Caption = 'state' Caption = 'state'
Width = 42 Width = 49
end end
item item
AutoSize = True AutoSize = True
Caption = 'core' Caption = 'core'
Width = 38 Width = 44
end end
item item
AutoSize = True AutoSize = True
Caption = 'function' Caption = 'function'
Width = 62 Width = 69
end end
item item
AutoSize = True AutoSize = True
Caption = 'address' Caption = 'address'
Width = 59 Width = 67
end end
item item
AutoSize = True AutoSize = True
Caption = 'filename' Caption = 'filename'
Width = 64 Width = 73
end end
item item
Caption = 'line' Caption = 'line'
@ -301,8 +304,8 @@ inherited CEGdbWidget: TCEGdbWidget
end end
object TabSheet5: TTabSheet object TabSheet5: TTabSheet
Caption = 'Debugee options' Caption = 'Debugee options'
ClientHeight = 164 ClientHeight = 173
ClientWidth = 509 ClientWidth = 515
object dbgeeOptsEd: TTIPropertyGrid object dbgeeOptsEd: TTIPropertyGrid
Left = 2 Left = 2
Height = 160 Height = 160

1
src/ce_gdb.pas
View File

@ -896,6 +896,7 @@ begin
litm.SubItems.Add(format('0x%.8X', [sitm.address])); litm.SubItems.Add(format('0x%.8X', [sitm.address]));
{$ENDIF} {$ENDIF}
litm.SubItems.Add(shortenPath(sitm.filename)); litm.SubItems.Add(shortenPath(sitm.filename));
litm.SubItems.Add(sitm.line.ToString);
litm.Data:=sitm; litm.Data:=sitm;
end; end;
end; end;