OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

* gdbtk.tcl (create_register_windows): Include missing '$'s. 

Add global declarations for various reg_format_* variables.
This commit is contained in:
Fred Fish 1996-06-21 18:09:27 +00:00
parent 96926bf0f6
commit ab5c0a12f9
2 changed files with 22 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gdb/ChangeLog
View File

@ -1,12 +1,18 @@
start-sanitize-gdbtk
Fri Jun 21 09:46:47 1996 Fred Fish <fnf@fishfood.ninemoons.com>
Fri Jun 21 11:04:47 1996 Fred Fish <fnf@cygnus.com>
* gdbtk.tcl (create_register_windows): Include missing '$'s.
Add global declarations for various reg_format_* variables.
Fri Jun 21 09:46:47 1996 Fred Fish <fnf@cygnus.com>
* gdbtk.c (get_register): Support for printing raw formats.
* gdbtk.tcl: Add hint for using debug_interface.
(center_window, add_breakpoint_frame, delete_breakpoint_frame):
Enclose arg in braces for consistency.
(create_registers_window, populate_reg_window, update_registers):
Major rewrite to support displaying multiple formats in the register window.
Major rewrite to support displaying multiple formats in the register
window.
(init_reg_info): New function.
(recompute_reg_display_list): Reset reg_display_list, start
register display lines at line 2.

21
gdb/gdbtk.tcl
View File

@ -1766,6 +1766,13 @@ proc reg_config_menu {} {
#
proc create_registers_window {} {
global reg_format_natural
global reg_format_decimal
global reg_format_hex
global reg_format_octal
global reg_format_raw
global reg_format_binary
global reg_format_unsigned
# If we already have a register window, just use that one.
@ -1782,37 +1789,37 @@ proc create_registers_window {} {
.reg.menubar.view.menu delete 0 last
# Natural menu item
.reg.menubar.view.menu add checkbutton -label reg_format_natural(label) \
.reg.menubar.view.menu add checkbutton -label $reg_format_natural(label) \
-variable reg_format_natural(enable) -onvalue on -offvalue off \
-command {update_registers redraw}
# Decimal menu item
.reg.menubar.view.menu add checkbutton -label reg_format_decimal(label) \
.reg.menubar.view.menu add checkbutton -label $reg_format_decimal(label) \
-variable reg_format_decimal(enable) -onvalue on -offvalue off \
-command {update_registers redraw}
# Hex menu item
.reg.menubar.view.menu add checkbutton -label reg_format_hex(label) \
.reg.menubar.view.menu add checkbutton -label $reg_format_hex(label) \
-variable reg_format_hex(enable) -onvalue on -offvalue off \
-command {update_registers redraw}
# Octal menu item
.reg.menubar.view.menu add checkbutton -label reg_format_octal(label) \
.reg.menubar.view.menu add checkbutton -label $reg_format_octal(label) \
-variable reg_format_octal(enable) -onvalue on -offvalue off \
-command {update_registers redraw}
# Binary menu item
.reg.menubar.view.menu add checkbutton -label reg_format_binary(label) \
.reg.menubar.view.menu add checkbutton -label $reg_format_binary(label) \
-variable reg_format_binary(enable) -onvalue on -offvalue off \
-command {update_registers redraw}
# Unsigned menu item
.reg.menubar.view.menu add checkbutton -label reg_format_unsigned(label) \
.reg.menubar.view.menu add checkbutton -label $reg_format_unsigned(label) \
-variable reg_format_unsigned(enable) -onvalue on -offvalue off \
-command {update_registers redraw}
# Raw menu item
.reg.menubar.view.menu add checkbutton -label reg_format_raw(label) \
.reg.menubar.view.menu add checkbutton -label $reg_format_raw(label) \
-variable reg_format_raw(enable) -onvalue on -offvalue off \
-command {update_registers redraw}