diff options
author | Michael Snyder <msnyder@vmware.com> | 2011-02-27 20:57:16 +0000 |
---|---|---|
committer | Michael Snyder <msnyder@vmware.com> | 2011-02-27 20:57:16 +0000 |
commit | 3bd0f5efd1910d53733ff9962deee99d7e45d1de (patch) | |
tree | f3f77fd22027a884f5bc951c09d9988eae80f4a3 /gdb | |
parent | af62414197efc46568bd459473b4a22da42d2132 (diff) | |
download | fsf-binutils-gdb-3bd0f5efd1910d53733ff9962deee99d7e45d1de.zip fsf-binutils-gdb-3bd0f5efd1910d53733ff9962deee99d7e45d1de.tar.gz fsf-binutils-gdb-3bd0f5efd1910d53733ff9962deee99d7e45d1de.tar.bz2 |
2011-02-24 Michael Snyder <msnyder@vmware.com>
* value.c (value_from_history_ref): New function.
* value.h (value_from_history_ref): Export.
* cli/cli-utils.c (get_number_trailer): Use value_from_history_ref
to parse value history references.
* cli/cli-utils.h (get_number_trailer): Update comment.
2011-02-24 Michael Snyder <msnyder@vmware.com>
* gdb.base/break.exp: Add tests for delete breakpoints using
convenience variables and value history references.
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/ChangeLog | 24 | ||||
-rw-r--r-- | gdb/cli/cli-utils.c | 54 | ||||
-rw-r--r-- | gdb/cli/cli-utils.h | 4 | ||||
-rw-r--r-- | gdb/doc/ChangeLog | 2 | ||||
-rw-r--r-- | gdb/testsuite/ChangeLog | 13 | ||||
-rw-r--r-- | gdb/testsuite/gdb.base/break.exp | 123 | ||||
-rw-r--r-- | gdb/value.c | 55 | ||||
-rw-r--r-- | gdb/value.h | 1 |
8 files changed, 241 insertions, 35 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index f8ccb33..ab012b2 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,21 @@ 2011-02-27 Michael Snyder <msnyder@vmware.com> + * value.c (value_from_history_ref): New function. + * value.h (value_from_history_ref): Export. + * cli/cli-utils.c (get_number_trailer): Use value_from_history_ref + to parse value history references. + * cli/cli-utils.h (get_number_trailer): Update comment. + +2011-02-27 Michael Snyder <msnyder@vmware.com> + + * inferior.c (detach_inferior_command): Use get_number_or_range. + (kill_inferior_command): Ditto. + (remove_inferior_command): Ditto. + (initialize_inferiors): Make command names plural. + Update help strings. + +2011-02-27 Michael Snyder <msnyder@vmware.com> + * darwin-nat-info.c: Fix comment typo. * dwarf2expr.h: Ditto. * fbsd-nat.c: Ditto. @@ -78,14 +94,6 @@ 2011-02-25 Michael Snyder <msnyder@vmware.com> - * inferior.c (detach_inferior_command): Use get_number_or_range. - (kill_inferior_command): Ditto. - (remove_inferior_command): Ditto. - (initialize_inferiors): Make command names plural. - Update help strings. - -2011-02-25 Michael Snyder <msnyder@vmware.com> - * inferior.c (print_inferior): Accept a string instead of an int for requested_inferiors, and use get_number_or_range to parse it. (info_inferiors_command): Pass args string to print_inferior. diff --git a/gdb/cli/cli-utils.c b/gdb/cli/cli-utils.c index 34c368b..133ac53 100644 --- a/gdb/cli/cli-utils.c +++ b/gdb/cli/cli-utils.c @@ -21,14 +21,15 @@ #include "cli/cli-utils.h" #include "gdb_string.h" #include "value.h" +#include "gdb_assert.h" #include <ctype.h> /* *PP is a string denoting a number. Get the number of the. Advance *PP after the string and any trailing whitespace. - Currently the string can either be a number or "$" followed by the - name of a convenience variable. + Currently the string can either be a number, or "$" followed by the + name of a convenience variable, or ("$" or "$$") followed by digits. TRAILER is a character which can be found after the number; most commonly this is `-'. If you don't want a trailer, use \0. */ @@ -41,24 +42,39 @@ get_number_trailer (char **pp, int trailer) if (*p == '$') { - /* Make a copy of the name, so we can null-terminate it - to pass to lookup_internalvar(). */ - char *varname; - char *start = ++p; - LONGEST val; - - while (isalnum (*p) || *p == '_') - p++; - varname = (char *) alloca (p - start + 1); - strncpy (varname, start, p - start); - varname[p - start] = '\0'; - if (get_internalvar_integer (lookup_internalvar (varname), &val)) - retval = (int) val; - else + struct value *val = value_from_history_ref (p, &p); + + if (val) /* Value history reference */ { - printf_filtered (_("Convenience variable must " - "have integer value.\n")); - retval = 0; + if (TYPE_CODE (value_type (val)) == TYPE_CODE_INT) + retval = value_as_long (val); + else + { + printf_filtered (_("History value must have integer type.")); + retval = 0; + } + } + else /* Convenience variable */ + { + /* Internal variable. Make a copy of the name, so we can + null-terminate it to pass to lookup_internalvar(). */ + char *varname; + char *start = ++p; + LONGEST val; + + while (isalnum (*p) || *p == '_') + p++; + varname = (char *) alloca (p - start + 1); + strncpy (varname, start, p - start); + varname[p - start] = '\0'; + if (get_internalvar_integer (lookup_internalvar (varname), &val)) + retval = (int) val; + else + { + printf_filtered (_("Convenience variable must " + "have integer value.\n")); + retval = 0; + } } } else diff --git a/gdb/cli/cli-utils.h b/gdb/cli/cli-utils.h index 6158999..09240d0 100644 --- a/gdb/cli/cli-utils.h +++ b/gdb/cli/cli-utils.h @@ -23,8 +23,8 @@ /* *PP is a string denoting a number. Get the number of the. Advance *PP after the string and any trailing whitespace. - Currently the string can either be a number or "$" followed by the - name of a convenience variable. */ + Currently the string can either be a number, or "$" followed by the + name of a convenience variable, or ("$" or "$$") followed by digits. */ extern int get_number (char **); diff --git a/gdb/doc/ChangeLog b/gdb/doc/ChangeLog index e84de14..f1939db 100644 --- a/gdb/doc/ChangeLog +++ b/gdb/doc/ChangeLog @@ -1,4 +1,4 @@ -2011-02-25 Michael Snyder <msnyder@vmware.com> +2011-02-27 Michael Snyder <msnyder@vmware.com> * gdb.texinfo (Inferiors and Programs): Update commands to show that they can accept multiple arguments. diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 2716400..a92d0c6 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2011-02-27 Michael Snyder <msnyder@vmware.com> + + * gdb.multi/base.exp: Add test for remove-inferiors. + 2011-02-26 Joel Brobecker <brobecker@adacore.com> * gdb.python/py-frame.exp: Simplify the initialization phase @@ -5,10 +9,6 @@ 2011-02-25 Michael Snyder <msnyder@vmware.com> - * gdb.multi/base.exp: Add test for remove-inferiors. - -2011-02-25 Michael Snyder <msnyder@vmware.com> - * gdb.multi/base.exp: Add tests for info inferiors with args. 2011-02-25 Jan Kratochvil <jan.kratochvil@redhat.com> @@ -26,6 +26,11 @@ 2011-02-24 Michael Snyder <msnyder@vmware.com> + * gdb.base/break.exp: Add tests for delete breakpoints using + convenience variables and value history references. + +2011-02-24 Michael Snyder <msnyder@vmware.com> + * gdb.base/break.exp: Remove debugging 'printf' accidentally left behind in previous check-in. diff --git a/gdb/testsuite/gdb.base/break.exp b/gdb/testsuite/gdb.base/break.exp index 6e14a47..15227bc 100644 --- a/gdb/testsuite/gdb.base/break.exp +++ b/gdb/testsuite/gdb.base/break.exp @@ -236,6 +236,129 @@ gdb_test_multiple "info break 3-5" "info break 3-5" { } } +# +# Test disable/enable with arguments +# + +# Test with value history + +gdb_test "print 1" "" "" +gdb_test "print 2" "" "" +gdb_test "print 3" "" "" +gdb_test "print 4" "" "" +gdb_test "print 5" "" "" +gdb_test "print 6" "" "" + +# $2 is 2 and $$ is 5 +gdb_test_no_output "disable \$2 \$\$" "disable using history values" + +set see1 0 +set see2 0 +set see3 0 +set see4 0 +set see5 0 +set see6 0 + +gdb_test_multiple "info break" "check disable with history values" { + -re "1\[\t \]+breakpoint *keep y.* in main at .*:$main_line\[^\r\n\]*" { + set see1 1 + exp_continue + } + -re "2\[\t \]+breakpoint *keep n\[^\r\n\]* in marker2 at \[^\r\n\]*" { + set see2 1 + exp_continue + } + -re "3\[\t \]+breakpoint *keep y\[^\r\n\]*$bp_location7\[^\r\n\]*" { + set see3 1 + exp_continue + } + -re "4\[\t \]+breakpoint *keep y\[^\r\n\]*$bp_location1\[^\r\n\]*" { + set see4 1 + exp_continue + } + -re "5\[\t \]+breakpoint *keep n\[^\r\n\]*$bp_location1\[^\r\n\]*" { + set see5 1 + exp_continue + } + -re "6\[\t \]+breakpoint *keep y\[^\r\n\]*$bp_location2\[^\r\n\]*" { + set see6 1 + exp_continue + } + -re ".*$gdb_prompt $" { + if { $see1 && $see2 && $see3 && $see4 && $see5 && $see6 } then { + pass "check disable with history values" + } else { + fail "check disable with history values" + } + } +} + +gdb_test "enable" "" "" +gdb_test "set \$foo = 3" "" "" +gdb_test "set \$bar = 6" "" "" +gdb_test_no_output "disable \$foo \$bar" "disable with convenience values" + +set see1 0 +set see2 0 +set see3 0 +set see4 0 +set see5 0 +set see6 0 + +gdb_test_multiple "info break" "check disable with convenience values" { + -re "1\[\t \]+breakpoint *keep y.* in main at .*:$main_line\[^\r\n\]*" { + set see1 1 + exp_continue + } + -re "2\[\t \]+breakpoint *keep y\[^\r\n\]* in marker2 at \[^\r\n\]*" { + set see2 1 + exp_continue + } + -re "3\[\t \]+breakpoint *keep n\[^\r\n\]*$bp_location7\[^\r\n\]*" { + set see3 1 + exp_continue + } + -re "4\[\t \]+breakpoint *keep y\[^\r\n\]*$bp_location1\[^\r\n\]*" { + set see4 1 + exp_continue + } + -re "5\[\t \]+breakpoint *keep y\[^\r\n\]*$bp_location1\[^\r\n\]*" { + set see5 1 + exp_continue + } + -re "6\[\t \]+breakpoint *keep n\[^\r\n\]*$bp_location2\[^\r\n\]*" { + set see6 1 + exp_continue + } + -re ".*$gdb_prompt $" { + if { $see1 && $see2 && $see3 && $see4 && $see5 && $see6 } then { + pass "check disable with convenience values" + } else { + fail "check disable with convenience values" + } + } +} + +# test with bad values + +gdb_test "enable" "" "" +gdb_test "disable 10" "No breakpoint number 10." \ + "disable non-existent breakpoint 10" + +gdb_test "set \$baz 1.234" +gdb_test "disable \$baz" \ + "Convenience variable must have integer value.*" \ + "disable with non-integer convenience var" +gdb_test "disable \$grbx" \ + "Convenience variable must have integer value.*" \ + "disable with non-existent convenience var" +gdb_test "disable \$10" \ + "History has not yet reached .10." \ + "disable with non-existent history value" +gdb_test "disable \$1foo" \ + "Convenience variable must have integer value.*" \ + "disable with badly formed history value" + # FIXME: The rest of this test doesn't work with anything that can't # handle arguments. # Huh? There doesn't *appear* to be anything that passes arguments diff --git a/gdb/value.c b/gdb/value.c index 011b5e7..2acb1df 100644 --- a/gdb/value.c +++ b/gdb/value.c @@ -41,7 +41,7 @@ #include "cli/cli-decode.h" #include "exceptions.h" #include "python/python.h" - +#include <ctype.h> #include "tracepoint.h" /* Prototypes for exported functions. */ @@ -2991,6 +2991,59 @@ value_from_decfloat (struct type *type, const gdb_byte *dec) return val; } +/* Extract a value from the history file. Input will be of the form + $digits or $$digits. See block comment above 'write_dollar_variable' + for details. */ + +struct value * +value_from_history_ref (char *h, char **endp) +{ + int index, len; + + if (h[0] == '$') + len = 1; + else + return NULL; + + if (h[1] == '$') + len = 2; + + /* Find length of numeral string. */ + for (; isdigit (h[len]); len++) + ; + + /* Make sure numeral string is not part of an identifier. */ + if (h[len] == '_' || isalpha (h[len])) + return NULL; + + /* Now collect the index value. */ + if (h[1] == '$') + { + if (len == 2) + { + /* For some bizarre reason, "$$" is equivalent to "$$1", + rather than to "$$0" as it ought to be! */ + index = -1; + *endp += len; + } + else + index = -strtol (&h[2], endp, 10); + } + else + { + if (len == 1) + { + /* "$" is equivalent to "$0". */ + index = 0; + *endp += len; + } + else + index = strtol (&h[1], endp, 10); + } + + return access_value_history (index); +} + struct value * coerce_ref (struct value *arg) { diff --git a/gdb/value.h b/gdb/value.h index e019e56..ad90a38 100644 --- a/gdb/value.h +++ b/gdb/value.h @@ -471,6 +471,7 @@ extern struct value *value_from_pointer (struct type *type, CORE_ADDR addr); extern struct value *value_from_double (struct type *type, DOUBLEST num); extern struct value *value_from_decfloat (struct type *type, const gdb_byte *decbytes); +extern struct value *value_from_history_ref (char *, char **); extern struct value *value_at (struct type *type, CORE_ADDR addr); extern struct value *value_at_lazy (struct type *type, CORE_ADDR addr); |