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

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

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

10
gdb/ChangeLog
View File

@ -1,12 +1,18 @@
start-sanitize-gdbtk 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.c (get_register): Support for printing raw formats.
* gdbtk.tcl: Add hint for using debug_interface. * gdbtk.tcl: Add hint for using debug_interface.
(center_window, add_breakpoint_frame, delete_breakpoint_frame): (center_window, add_breakpoint_frame, delete_breakpoint_frame):
Enclose arg in braces for consistency. Enclose arg in braces for consistency.
(create_registers_window, populate_reg_window, update_registers): (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. (init_reg_info): New function.
(recompute_reg_display_list): Reset reg_display_list, start (recompute_reg_display_list): Reset reg_display_list, start
register display lines at line 2. register display lines at line 2.

21
gdb/gdbtk.tcl
View File

@ -1766,6 +1766,13 @@ proc reg_config_menu {} {
# #
proc create_registers_window {} { 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. # 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 .reg.menubar.view.menu delete 0 last
# Natural menu item # 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 \ -variable reg_format_natural(enable) -onvalue on -offvalue off \
-command {update_registers redraw} -command {update_registers redraw}
# Decimal menu item # 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 \ -variable reg_format_decimal(enable) -onvalue on -offvalue off \
-command {update_registers redraw} -command {update_registers redraw}
# Hex menu item # 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 \ -variable reg_format_hex(enable) -onvalue on -offvalue off \
-command {update_registers redraw} -command {update_registers redraw}
# Octal menu item # 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 \ -variable reg_format_octal(enable) -onvalue on -offvalue off \
-command {update_registers redraw} -command {update_registers redraw}
# Binary menu item # 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 \ -variable reg_format_binary(enable) -onvalue on -offvalue off \
-command {update_registers redraw} -command {update_registers redraw}
# Unsigned menu item # 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 \ -variable reg_format_unsigned(enable) -onvalue on -offvalue off \
-command {update_registers redraw} -command {update_registers redraw}
# Raw menu item # 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 \ -variable reg_format_raw(enable) -onvalue on -offvalue off \
-command {update_registers redraw} -command {update_registers redraw}