This is the mail archive of the gdb-patches@sources.redhat.com mailing list for the GDB project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

[patch/mi] Make register-values a list


Hello,

This one converts the output of the register values command.

	Andrew
2001-06-25  Andrew Cagney  <ac131313@redhat.com>

	* mi-main.c (mi_cmd_data_list_register_values): Output a list of
	register values.
	* gdbmi.texinfo (data-list-register-values): Update documentation.

Index: testsuite/gdb.mi/ChangeLog
2001-06-25  Andrew Cagney  <ac131313@redhat.com>

	* mi-regs.exp: Update patters matching register-values.  Outputs a
	list.

Index: mi/gdbmi.texinfo
===================================================================
RCS file: /cvs/src/src/gdb/mi/gdbmi.texinfo,v
retrieving revision 1.15
diff -p -r1.15 gdbmi.texinfo
*** gdbmi.texinfo	2001/06/25 19:02:17	1.15
--- gdbmi.texinfo	2001/06/25 20:00:11
*************** don't appear in the actual output):
*** 1326,1336 ****
  @smallexample
  (@value{GDBP})
  -data-list-register-values r 64 65
! ^done,register-values=@{@{number="64",value="0xfe00a300"@},
! @{number="65",value="0x00029002"@}@}
  (@value{GDBP})
  -data-list-register-values x
! ^done,register-values=@{@{number="0",value="0xfe0043c8"@},
  @{number="1",value="0x3fff88"@},@{number="2",value="0xfffffffe"@},
  @{number="3",value="0x0"@},@{number="4",value="0xa"@},
  @{number="5",value="0x3fff68"@},@{number="6",value="0x3fff58"@},
--- 1326,1336 ----
  @smallexample
  (@value{GDBP})
  -data-list-register-values r 64 65
! ^done,register-values=[@{number="64",value="0xfe00a300"@},
! @{number="65",value="0x00029002"@}]
  (@value{GDBP})
  -data-list-register-values x
! ^done,register-values=[@{number="0",value="0xfe0043c8"@},
  @{number="1",value="0x3fff88"@},@{number="2",value="0xfffffffe"@},
  @{number="3",value="0x0"@},@{number="4",value="0xa"@},
  @{number="5",value="0x3fff68"@},@{number="6",value="0x3fff58"@},
*************** don't appear in the actual output):
*** 1365,1371 ****
  @{number="63",value="0x0"@},@{number="64",value="0xfe00a300"@},
  @{number="65",value="0x29002"@},@{number="66",value="0x202f04b5"@},
  @{number="67",value="0xfe0043b0"@},@{number="68",value="0xfe00b3e4"@},
! @{number="69",value="0x20002b03"@}@}
  (@value{GDBP})
  @end smallexample
  
--- 1365,1371 ----
  @{number="63",value="0x0"@},@{number="64",value="0xfe00a300"@},
  @{number="65",value="0x29002"@},@{number="66",value="0x202f04b5"@},
  @{number="67",value="0xfe0043b0"@},@{number="68",value="0xfe00b3e4"@},
! @{number="69",value="0x20002b03"@}]
  (@value{GDBP})
  @end smallexample
  
Index: mi/mi-main.c
===================================================================
RCS file: /cvs/src/src/gdb/mi/mi-main.c,v
retrieving revision 1.17
diff -p -r1.17 mi-main.c
*** mi-main.c	2001/06/25 19:02:17	1.17
--- mi-main.c	2001/06/25 20:00:17
*************** mi_cmd_data_list_register_values (char *
*** 432,438 ****
        return MI_CMD_ERROR;
      }
  
!   ui_out_tuple_begin (uiout, "register-values");
  
    if (argc == 1)		/* No args, beside the format: do all the regs */
      {
--- 432,438 ----
        return MI_CMD_ERROR;
      }
  
!   ui_out_list_begin (uiout, "register-values");
  
    if (argc == 1)		/* No args, beside the format: do all the regs */
      {
*************** mi_cmd_data_list_register_values (char *
*** 475,481 ****
  	  return MI_CMD_ERROR;
  	}
      }
!   ui_out_tuple_end (uiout);
    return MI_CMD_DONE;
  }
  
--- 475,481 ----
  	  return MI_CMD_ERROR;
  	}
      }
!   ui_out_list_end (uiout);
    return MI_CMD_DONE;
  }
  
Index: testsuite/gdb.mi/mi-regs.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.mi/mi-regs.exp,v
retrieving revision 1.6
diff -p -r1.6 mi-regs.exp
*** mi-regs.exp	2001/06/25 19:02:18	1.6
--- mi-regs.exp	2001/06/25 20:00:18
*************** proc sparc_register_tests { } {
*** 120,152 ****
  	    "list register names"
  
      mi_gdb_test "222-data-list-register-values x" \
! 	    "222\\^done,register-values=\{\{number=\"0\",value=\"$hex\"\}.*\{number=\"71\",value=\"$hex\"\}\}" \
  	    "register values x"
  
      mi_gdb_test "333-data-list-register-values f" \
! 	    "333\\^done,register-values=\{\{number=\"0\",value=\"$float\"\},\{number=\"1\",value=\"$float\"\},.*\{number=\"71\",value=\"$float\"\}\}" \
  	    "register values f"
  
      mi_gdb_test "444-data-list-register-values d" \
! 	    "444\\^done,register-values=\{\{number=\"0\",value=\"$decimal\"\}.*\{number=\"71\",value=\"$decimal\"\}\}" \
  	    "register values d"
  
      mi_gdb_test "555-data-list-register-values o" \
! 	    "555\\^done,register-values=\{\{number=\"0\",value=\"$octal\"\}.*\{number=\"71\",value=\"$octal\"\}\}" \
  	    "register values o"
  
      mi_gdb_test "666-data-list-register-values t" \
! 	    "666\\^done,register-values=\{\{number=\"0\",value=\"$binary\"\}.*\{number=\"71\",value=\"$binary\"\}\}" \
  	    "register values t"
  
      # On the sparc, registers 0-31 are int, 32-63 float, 64-71 int
  
      mi_gdb_test "777-data-list-register-values N" \
! 	    "777\\^done,register-values=\{\{number=\"0\",value=\"$decimal\"\}.*\{number=\"31\",value=\"$decimal\"\},\{number=\"32\",value=\"$float\"\}.*\{number=\"63\",value=\"$float\"\},\{number=\"64\",value=\"$decimal\"\}.*\{number=\"71\",value=\"$decimal\"\}\}" \
  	    "register values N"
  
      mi_gdb_test "888-data-list-register-values r" \
! 	    "888\\^done,register-values=\{\{number=\"0\",value=\"$hex\"\}.*\{number=\"71\",value=\"$hex\"\}\}" \
  	    "register values r"
  
      mi_gdb_test "999-data-list-register-names 68 69 70 71" \
--- 120,152 ----
  	    "list register names"
  
      mi_gdb_test "222-data-list-register-values x" \
! 	    "222\\^done,register-values=\\\[\{number=\"0\",value=\"$hex\"\}.*\{number=\"71\",value=\"$hex\"\}\\\]" \
  	    "register values x"
  
      mi_gdb_test "333-data-list-register-values f" \
! 	    "333\\^done,register-values=\\\[\{number=\"0\",value=\"$float\"\},\{number=\"1\",value=\"$float\"\},.*\{number=\"71\",value=\"$float\"\}\\\]" \
  	    "register values f"
  
      mi_gdb_test "444-data-list-register-values d" \
! 	    "444\\^done,register-values=\\\[\{number=\"0\",value=\"$decimal\"\}.*\{number=\"71\",value=\"$decimal\"\}\\\]" \
  	    "register values d"
  
      mi_gdb_test "555-data-list-register-values o" \
! 	    "555\\^done,register-values=\\\[\{number=\"0\",value=\"$octal\"\}.*\{number=\"71\",value=\"$octal\"\}\\\]" \
  	    "register values o"
  
      mi_gdb_test "666-data-list-register-values t" \
! 	    "666\\^done,register-values=\\\[\{number=\"0\",value=\"$binary\"\}.*\{number=\"71\",value=\"$binary\"\}\\\]" \
  	    "register values t"
  
      # On the sparc, registers 0-31 are int, 32-63 float, 64-71 int
  
      mi_gdb_test "777-data-list-register-values N" \
! 	    "777\\^done,register-values=\\\[\{number=\"0\",value=\"$decimal\"\}.*\{number=\"31\",value=\"$decimal\"\},\{number=\"32\",value=\"$float\"\}.*\{number=\"63\",value=\"$float\"\},\{number=\"64\",value=\"$decimal\"\}.*\{number=\"71\",value=\"$decimal\"\}\\\]" \
  	    "register values N"
  
      mi_gdb_test "888-data-list-register-values r" \
! 	    "888\\^done,register-values=\\\[\{number=\"0\",value=\"$hex\"\}.*\{number=\"71\",value=\"$hex\"\}\\\]" \
  	    "register values r"
  
      mi_gdb_test "999-data-list-register-names 68 69 70 71" \
*************** proc sparc_register_tests { } {
*** 154,160 ****
  	    "list names of some regs"
  
      mi_gdb_test "001-data-list-register-values x 68 69 70 71" \
! 	    "001\\^done,register-values=\{\{number=\"68\",value=\"$hex\"\},\{number=\"69\",value=\"$hex\"\},\{number=\"70\",value=\"$hex\"\},\{number=\"71\",value=\"$hex\"\}\}" \
  	    "list values of some regs"
  
      # Don't know how useful this test is
--- 154,160 ----
  	    "list names of some regs"
  
      mi_gdb_test "001-data-list-register-values x 68 69 70 71" \
! 	    "001\\^done,register-values=\\\[\{number=\"68\",value=\"$hex\"\},\{number=\"69\",value=\"$hex\"\},\{number=\"70\",value=\"$hex\"\},\{number=\"71\",value=\"$hex\"\}\\\]" \
  	    "list values of some regs"
  
      # Don't know how useful this test is

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]