From: Jim Blandy <jimb@codesourcery.com>
Date: Tue, 28 Mar 2000 23:04:13 +0000 (+0000)
Subject: Handle the fact that there are holes in the register numbering.
X-Git-Tag: binutils-2_10-branchpoint~32
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=5f69b9ad2b00bf955c098b3a824a44dc3292a6de;p=pf3gnuchains%2Fpf3gnuchains4x.git

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.
---

diff --git a/gdb/gdbtk/library/regwin.itb b/gdb/gdbtk/library/regwin.itb
index 2515498c06..02f1d47215 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