From: Tom Tromey <tromey@redhat.com>
Date: Wed, 15 Feb 2012 19:13:14 +0000 (+0000)
Subject: 	PR gdb/12659:
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3af2590d3ee379d7e7ad4a1019887d3983721227;p=binutils-gdb.git

	PR gdb/12659:
	* infcmd.c (registers_info): Print just the current register's
	name.
gdb/testsuite
	* gdb.base/pc-fp.exp: Add "info register" tests.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 09cb9c2b7eb..c7ee4849080 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2012-02-15  Tom Tromey  <tromey@redhat.com>
+
+	PR gdb/12659:
+	* infcmd.c (registers_info): Print just the current register's
+	name.
+
 2012-02-15  Tom Tromey  <tromey@redhat.com>
 
 	* python/py-symbol.c (sympy_value): Use _().
diff --git a/gdb/infcmd.c b/gdb/infcmd.c
index e9e3e32afea..7d929dfa1f3 100644
--- a/gdb/infcmd.c
+++ b/gdb/infcmd.c
@@ -2170,7 +2170,7 @@ registers_info (char *addr_exp, int fpregs)
 		struct value_print_options opts;
 		struct value *val = value_of_user_reg (regnum, frame);
 
-		printf_filtered ("%s: ", start);
+		printf_filtered ("%.*s: ", (int) (end - start), start);
 		get_formatted_print_options (&opts, 'x');
 		val_print_scalar_formatted (check_typedef (value_type (val)),
 					    value_contents_for_printing (val),
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index ad9f6783ecc..6e6b55d5224 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2012-02-15  Tom Tromey  <tromey@redhat.com>
+
+	* gdb.base/pc-fp.exp: Add "info register" tests.
+
 2012-02-15  Tom Tromey  <tromey@redhat.com>
 
 	* gdb.base/regs.exp: Remove.
diff --git a/gdb/testsuite/gdb.base/pc-fp.exp b/gdb/testsuite/gdb.base/pc-fp.exp
index 9d74eef3b86..f6500000d51 100644
--- a/gdb/testsuite/gdb.base/pc-fp.exp
+++ b/gdb/testsuite/gdb.base/pc-fp.exp
@@ -60,11 +60,10 @@ set valueof_fp [get_hexadecimal_valueof "\$fp" "0"]
 gdb_test "display/i \$pc" "1: x/i +\\\$pc( +|\r\n)=> ${valueof_pc}.*"
 gdb_test "display/w \$fp" "2: x/xw +\\\$fp +${valueof_fp}.*"
 
-# FIXME: cagney/2002-09-04: Should also check that ``info registers
-# $pc'' et.al.'' come back with the same value as the above displays
-# and a print --- assuming that is that people agree to such behavour.
-# Need to re-write default_print_registers_info() for it to work (and
-# such a rewrite is on the reggroups branch).
+gdb_test "info register \$pc" "${valueof_pc}.*"
+gdb_test "info register \$fp" "${valueof_fp}.*"
 
-# gdb_test "info registers \$pc" "${valueof_pc}"
-# gdb_test "info registers \$fp" "${valueof_fp}"
+# Regression test for
+# http://sourceware.org/bugzilla/show_bug.cgi?id=12659
+gdb_test "info register pc fp" \
+    "pc: ${valueof_pc}\[\r\n\]+fp: ${valueof_fp}\[\r\n\]+"