This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[patch/mi] Make register-values a list
- To: gdb-patches at sources dot redhat dot com
- Subject: [patch/mi] Make register-values a list
- From: Andrew Cagney <ac131313 at cygnus dot com>
- Date: Mon, 25 Jun 2001 16:07:59 -0400
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