diff options
author | Jim Blandy <jimb@codesourcery.com> | 2000-03-28 23:04:13 +0000 |
---|---|---|
committer | Jim Blandy <jimb@codesourcery.com> | 2000-03-28 23:04:13 +0000 |
commit | 5f69b9ad2b00bf955c098b3a824a44dc3292a6de (patch) | |
tree | 212e6a48b1c4b01600c865d7c57bee028a7d6373 | |
parent | 8f62a079f97e111e736335f95f67c46ff701c5f6 (diff) | |
download | gdb-5f69b9ad2b00bf955c098b3a824a44dc3292a6de.tar.gz |
Handle the fact that there are holes in the register numbering.
* regwin.itb (RegWin::init_reg_display_vars): Ask gdb_regnames to
provide the register numbers, too; don't just assume that the Nth
element is register N.
-rw-r--r-- | gdb/gdbtk/library/regwin.itb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gdb/gdbtk/library/regwin.itb b/gdb/gdbtk/library/regwin.itb index 2515498c06e..02f1d472153 100644 --- a/gdb/gdbtk/library/regwin.itb +++ b/gdb/gdbtk/library/regwin.itb @@ -185,22 +185,22 @@ body RegWin::build_win {} { body RegWin::init_reg_display_vars {args} { global reg_display max_regs set reg_display_list {} - set regnames [gdb_regnames] + set regnames [gdb_regnames -numbers] set i 1 - set rn 0 foreach r $regnames { - set reg_display($rn,name) $r - set format [pref getd gdb/reg/$r-format] + set name [lindex $r 0] + set rn [lindex $r 1] + set reg_display($rn,name) $name + set format [pref getd gdb/reg/$name-format] if {$format == ""} { set format x } set reg_display($rn,format) $format - if {$args != "" && [pref getd gdb/reg/$r] == "no"} { + if {$args != "" && [pref getd gdb/reg/$name] == "no"} { set reg_display($rn,line) 0 } else { set reg_display($rn,line) $i lappend reg_display_list $rn incr i } - incr rn } set num_regs [expr {$i - 1}] set max_regs $rn |