From: Andrew Cagney <cagney@redhat.com>
Date: Mon, 25 Jun 2001 18:34:25 +0000 (+0000)
Subject: data-list-changed-registers outputs a list of registers.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=40d5d7e983f35d344244ed0d8700e45b86b21adc;p=binutils-gdb.git

data-list-changed-registers outputs a list of registers.
---

diff --git a/gdb/mi/ChangeLog b/gdb/mi/ChangeLog
index 87c8725a4fd..0f2ab50bc2a 100644
--- a/gdb/mi/ChangeLog
+++ b/gdb/mi/ChangeLog
@@ -1,3 +1,10 @@
+2001-06-23  Andrew Cagney  <ac131313@redhat.com>
+
+	* mi-main.c (mi_cmd_data_list_changed_registers): Output a list of
+	register numbers.
+	* gdbmi.texinfo (data-list-changed-registers): Update
+	documentation.
+	
 2001-06-23  Andrew Cagney  <ac131313@redhat.com>
 
 	* gdbmi.texinfo (data-disassemble): Update documentation of
diff --git a/gdb/mi/gdbmi.texinfo b/gdb/mi/gdbmi.texinfo
index 74b774bd857..3fdad0f98b9 100644
--- a/gdb/mi/gdbmi.texinfo
+++ b/gdb/mi/gdbmi.texinfo
@@ -1234,9 +1234,9 @@ On a PPC MBX board:
 args=@{@},file="try.c",line="5"@}
 (@value{GDBP})
 -data-list-changed-registers
-^done,changed-registers=@{"0","1","2","4","5","6","7","8","9",
+^done,changed-registers=["0","1","2","4","5","6","7","8","9",
 "10","11","13","14","15","16","17","18","19","20","21","22","23",
-"24","25","26","27","28","30","31","64","65","66","67","69"@}
+"24","25","26","27","28","30","31","64","65","66","67","69"]
 (@value{GDBP})
 @end smallexample
 
diff --git a/gdb/mi/mi-main.c b/gdb/mi/mi-main.c
index 5f73ddf85f9..4ef68a720e1 100644
--- a/gdb/mi/mi-main.c
+++ b/gdb/mi/mi-main.c
@@ -323,7 +323,7 @@ mi_cmd_data_list_changed_registers (char *command, char **argv, int argc)
 
   numregs = NUM_REGS;
 
-  ui_out_tuple_begin (uiout, "changed-registers");
+  ui_out_list_begin (uiout, "changed-registers");
 
   if (argc == 0)		/* No args, just do all the regs */
     {
@@ -372,7 +372,7 @@ mi_cmd_data_list_changed_registers (char *command, char **argv, int argc)
 	  return MI_CMD_ERROR;
 	}
     }
-  ui_out_tuple_end (uiout);
+  ui_out_list_end (uiout);
   return MI_CMD_DONE;
 }
 
diff --git a/gdb/testsuite/gdb.mi/ChangeLog b/gdb/testsuite/gdb.mi/ChangeLog
index 5258a384d31..d6a11623242 100644
--- a/gdb/testsuite/gdb.mi/ChangeLog
+++ b/gdb/testsuite/gdb.mi/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-25  Andrew Cagney  <ac131313@redhat.com>
+
+	* mi-regs.exp: Update patterns matching changed-registers.  Now
+	outputs a list.
+
 2001-06-23  Andrew Cagney  <ac131313@redhat.com>
 
 	* ChangeLog-mi: Rename to ChangeLog.
diff --git a/gdb/testsuite/gdb.mi/mi-regs.exp b/gdb/testsuite/gdb.mi/mi-regs.exp
index b4b01410276..9a60f8de22b 100644
--- a/gdb/testsuite/gdb.mi/mi-regs.exp
+++ b/gdb/testsuite/gdb.mi/mi-regs.exp
@@ -160,7 +160,7 @@ proc sparc_register_tests { } {
     # Don't know how useful this test is
 
     mi_gdb_test "002-data-list-changed-registers" \
-	    "002\\^done,changed-registers=\{\"1\",\"9\",\"10\",\"11\",\"12\",\"13\",\"14\",\"15\",\"16\",\"23\",\"24\",\"25\",\"26\",\"27\",\"28\",\"30\",\"31\",\"65\",\"68\",\"69\"\}" \
+	    "002\\^done,changed-registers=\\\[\"1\",\"9\",\"10\",\"11\",\"12\",\"13\",\"14\",\"15\",\"16\",\"23\",\"24\",\"25\",\"26\",\"27\",\"28\",\"30\",\"31\",\"65\",\"68\",\"69\"\\\]" \
 	    "list changed registers"
 }