espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-28 15:18:37 +08:00
Code Issues Packages Projects Releases Wiki Activity

* gdbtk.tcl: Add button to control mixed source disassembly.

Browse Source 
* Use text widgets in expr window.  The give me more control over
	layout.
	* Add auto-updating of exprs in expression window.
	* Handle expressions out of scope a bit better.
	* Make selected window pop up to the top when invoked via the
	menubar.
	* Make copyright message have raised relief.
This commit is contained in:
Stu Grossman
1995-01-12 02:10:05 +00:00
parent 724498fdc0
commit 280c564c76
2 changed files with 95 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
gdb/ChangeLog
View File

@ -1,5 +1,14 @@
Wed Jan 11 17:06:55 1995 Stu Grossman (grossman@cygnus.com) Wed Jan 11 17:06:55 1995 Stu Grossman (grossman@cygnus.com)
* gdbtk.tcl: Add button to control mixed source disassembly.
* Use text widgets in expr window. The give me more control over
layout.
* Add auto-updating of exprs in expression window.
* Handle expressions out of scope a bit better.
* Make selected window pop up to the top when invoked via the
menubar.
* Make copyright message have raised relief.
* gdbtk.c (gdbtk_init): Improve handling for errors in gdbtk.tcl * gdbtk.c (gdbtk_init): Improve handling for errors in gdbtk.tcl
during startup. during startup.

132
gdb/gdbtk.tcl
View File

@ -10,6 +10,7 @@ set current_output_win .cmd.text
set cfunc NIL set cfunc NIL
set line_numbers 1 set line_numbers 1
set breakpoint_file(-1) {[garbage]} set breakpoint_file(-1) {[garbage]}
set disassemble_with_source nosource
#option add *Foreground Black #option add *Foreground Black
#option add *Background White #option add *Background White
@ -729,14 +730,15 @@ proc add_expr {expr} {
checkbutton $e.update -text " " -relief flat \ checkbutton $e.update -text " " -relief flat \
-variable expr_update_list($expr_num) -variable expr_update_list($expr_num)
message $e.expr -text $expr -aspect 200 text $e.expr -width 20 -height 1
$e.expr insert 0.0 $expr
bind $e.expr <1> "update_expr $expr_num" bind $e.expr <1> "update_expr $expr_num"
message $e.val -aspect 200 text $e.val -width 20 -height 1
update_expr $expr_num update_expr $expr_num
pack $e.update -side left -anchor nw pack $e.update -side left -anchor nw
pack $e.expr $e.val -side left -expand yes -anchor w pack $e.expr $e.val -side left -expand yes -fill x
pack $e -side top -fill x -anchor w pack $e -side top -fill x -anchor w
} }
@ -761,6 +763,7 @@ proc delete_expr {} {
proc update_expr {expr_num} { proc update_expr {expr_num} {
global delete_expr_flag global delete_expr_flag
global expr_update_list
set e .expr.e${expr_num} set e .expr.e${expr_num}
@ -770,15 +773,34 @@ proc update_expr {expr_num} {
tk_butUp .expr.delete tk_butUp .expr.delete
tk_butLeave .expr.delete tk_butLeave .expr.delete
bind .expr.delete <Any-Leave> {} bind .expr.delete <Any-Leave> {}
unset expr_update_list($expr_num)
return return
} }
set expr [lindex [$e.expr configure -text] 4] set expr [$e.expr get 0.0 end]
$e.val config -text [gdb_eval $expr] $e.val delete 0.0 end
if [catch "gdb_eval $expr" val] {
} else {
$e.val insert 0.0 $val
}
}
proc update_exprs {} {
global expr_update_list
foreach expr_num [array names expr_update_list] {
if $expr_update_list($expr_num) {
update_expr $expr_num
}
}
} }
proc create_expr_win {} { proc create_expr_win {} {
if [winfo exists .expr] {raise .expr ; return}
toplevel .expr toplevel .expr
wm minsize .expr 1 1 wm minsize .expr 1 1
wm title .expr Expression wm title .expr Expression
@ -832,7 +854,7 @@ proc create_expr_win {} {
# #
proc display_expression {expression} { proc display_expression {expression} {
if ![winfo exists .expr] {create_expr_win} create_expr_win
add_expr $expression add_expr $expression
} }
@ -991,6 +1013,7 @@ proc create_asm_win {funcname pc} {
global breakpoint_line global breakpoint_line
global current_output_win global current_output_win
global pclist global pclist
global disassemble_with_source
# Replace all the dirty characters in $filename with clean ones, and generate # Replace all the dirty characters in $filename with clean ones, and generate
# a unique name for the text widget. # a unique name for the text widget.
@ -1018,7 +1041,7 @@ proc create_asm_win {funcname pc} {
set temp $current_output_win set temp $current_output_win
set current_output_win $win set current_output_win $win
catch "gdb_disassemble source $pc" catch "gdb_disassemble $disassemble_with_source $pc"
set current_output_win $temp set current_output_win $temp
set numlines [$win index end] set numlines [$win index end]
@ -1041,7 +1064,6 @@ proc create_asm_win {funcname pc} {
$win insert $i.0 " " $win insert $i.0 " "
} }
# Scan though the breakpoint data base and install any destined for this file # Scan though the breakpoint data base and install any destined for this file
# foreach bpnum [array names breakpoint_file] { # foreach bpnum [array names breakpoint_file] {
@ -1212,53 +1234,64 @@ proc update_listing {linespec} {
proc create_asm_window {} { proc create_asm_window {} {
global cfunc global cfunc
if ![winfo exists .asm] { if [winfo exists .asm] {raise .asm ; return}
set cfunc *None*
set win [asm_win_name $cfunc]
build_framework .asm Assembly "*NIL*" set cfunc *None*
set win [asm_win_name $cfunc]
build_framework .asm Assembly "*NIL*"
# First, delete all the old menu entries # First, delete all the old menu entries
.asm.menubar.view.menu delete 0 last .asm.menubar.view.menu delete 0 last
.asm.text configure -yscrollcommand asmscrollproc .asm.text configure -yscrollcommand asmscrollproc
frame .asm.row1 frame .asm.row1
frame .asm.row2 frame .asm.row2
button .asm.stepi -width 6 -text Stepi \ button .asm.stepi -width 6 -text Stepi \
-command {catch {gdb_cmd stepi} ; update_ptr} -command {catch {gdb_cmd stepi} ; update_ptr}
button .asm.nexti -width 6 -text Nexti \ button .asm.nexti -width 6 -text Nexti \
-command {catch {gdb_cmd nexti} ; update_ptr} -command {catch {gdb_cmd nexti} ; update_ptr}
button .asm.continue -width 6 -text Cont \ button .asm.continue -width 6 -text Cont \
-command {catch {gdb_cmd continue} ; update_ptr} -command {catch {gdb_cmd continue} ; update_ptr}
button .asm.finish -width 6 -text Finish \ button .asm.finish -width 6 -text Finish \
-command {catch {gdb_cmd finish} ; update_ptr} -command {catch {gdb_cmd finish} ; update_ptr}
button .asm.up -width 6 -text Up -command {catch {gdb_cmd up} ; update_ptr} button .asm.up -width 6 -text Up -command {catch {gdb_cmd up} ; update_ptr}
button .asm.down -width 6 -text Down \ button .asm.down -width 6 -text Down \
-command {catch {gdb_cmd down} ; update_ptr} -command {catch {gdb_cmd down} ; update_ptr}
button .asm.bottom -width 6 -text Bottom \ button .asm.bottom -width 6 -text Bottom \
-command {catch {gdb_cmd {frame 0}} ; update_ptr} -command {catch {gdb_cmd {frame 0}} ; update_ptr}
pack .asm.stepi .asm.continue .asm.up .asm.bottom -side left -padx 3 -pady 5 -in .asm.row1 pack .asm.stepi .asm.continue .asm.up .asm.bottom -side left -padx 3 -pady 5 -in .asm.row1
pack .asm.nexti .asm.finish .asm.down -side left -padx 3 -pady 5 -in .asm.row2 pack .asm.nexti .asm.finish .asm.down -side left -padx 3 -pady 5 -in .asm.row2
pack .asm.row2 .asm.row1 -side bottom -anchor w -before .asm.info pack .asm.row2 .asm.row1 -side bottom -anchor w -before .asm.info
update update
update_assembly [gdb_loc] update_assembly [gdb_loc]
# We do this update_assembly to get the proper value of disassemble-from-exec. # We do this update_assembly to get the proper value of disassemble-from-exec.
# exec file menu item # exec file menu item
.asm.menubar.view.menu add radiobutton -label "Exec file" \ .asm.menubar.view.menu add radiobutton -label "Exec file" \
-variable disassemble-from-exec -value 1 -variable disassemble-from-exec -value 1
# target memory menu item # target memory menu item
.asm.menubar.view.menu add radiobutton -label "Target memory" \ .asm.menubar.view.menu add radiobutton -label "Target memory" \
-variable disassemble-from-exec -value 0 -variable disassemble-from-exec -value 0
}
# Disassemble with source
.asm.menubar.view.menu add checkbutton -label "Source" \
-variable disassemble_with_source -onvalue source \
-offvalue nosource -command {
foreach asm [info command .asm.func_*] {
destroy $asm
}
set cfunc NIL
update_assembly [gdb_loc]
}
} }
proc reg_config_menu {} { proc reg_config_menu {} {
@ -1333,7 +1366,7 @@ proc reg_config_menu {} {
proc create_registers_window {} { proc create_registers_window {} {
global reg_format global reg_format
if [winfo exists .reg] return if [winfo exists .reg] {raise .reg ; return}
# Create an initial register display list consisting of all registers # Create an initial register display list consisting of all registers
@ -1634,6 +1667,9 @@ proc update_ptr {} {
if [winfo exists .reg] { if [winfo exists .reg] {
update_registers changed update_registers changed
} }
if [winfo exists .expr] {
update_exprs
}
} }
# Make toplevel window disappear # Make toplevel window disappear
@ -1747,10 +1783,10 @@ proc build_framework {win {title GDBtk} {label {}}} {
menu ${win}.menubar.window.menu menu ${win}.menubar.window.menu
${win}.menubar.window.menu add command -label Command \ ${win}.menubar.window.menu add command -label Command \
-command {echo Command} -command create_command_window
${win}.menubar.window.menu add separator ${win}.menubar.window.menu add separator
${win}.menubar.window.menu add command -label Source \ ${win}.menubar.window.menu add command -label Source \
-command {echo Source} -command {create_source_window ; update_ptr}
${win}.menubar.window.menu add command -label Assembly \ ${win}.menubar.window.menu add command -label Assembly \
-command {create_asm_window ; update_ptr} -command {create_asm_window ; update_ptr}
${win}.menubar.window.menu add separator ${win}.menubar.window.menu add separator
@ -1759,9 +1795,9 @@ proc build_framework {win {title GDBtk} {label {}}} {
${win}.menubar.window.menu add command -label Expressions \ ${win}.menubar.window.menu add command -label Expressions \
-command {create_expr_win ; update_ptr} -command {create_expr_win ; update_ptr}
${win}.menubar.window.menu add separator # ${win}.menubar.window.menu add separator
${win}.menubar.window.menu add command -label Files \ # ${win}.menubar.window.menu add command -label Files \
-command { not_implemented_yet "files window" } # -command { not_implemented_yet "files window" }
menubutton ${win}.menubar.help -padx 12 -text Help \ menubutton ${win}.menubar.help -padx 12 -text Help \
-menu ${win}.menubar.help.menu -underline 0 -menu ${win}.menubar.help.menu -underline 0
@ -1805,6 +1841,8 @@ proc create_source_window {} {
global wins global wins
global cfile global cfile
if [winfo exists .src] {raise .src ; return}
build_framework .src Source "*No file*" build_framework .src Source "*No file*"
# First, delete all the old view menu entries # First, delete all the old view menu entries
@ -1873,6 +1911,8 @@ proc create_source_window {} {
proc create_command_window {} { proc create_command_window {} {
global command_line global command_line
if [winfo exists .cmd] {raise .cmd ; return}
build_framework .cmd Command "* Command Buffer *" build_framework .cmd Command "* Command Buffer *"
set command_line {} set command_line {}
@ -2602,7 +2642,7 @@ set current_output_win .t
gdb_cmd "show version" gdb_cmd "show version"
set current_output_win $temp set current_output_win $temp
message .c.m -text [.t get 0.0 end] -aspect 500 message .c.m -text [.t get 0.0 end] -aspect 500 -relief raised
destroy .t destroy .t
pack .c.m pack .c.m
bind .c.m <Leave> {destroy .c} bind .c.m <Leave> {destroy .c}