diff options
| author | Daniel Jacobowitz <drow@false.org> | 2007-06-13 17:11:09 +0000 |
|---|---|---|
| committer | Daniel Jacobowitz <drow@false.org> | 2007-06-13 17:11:09 +0000 |
| commit | 67f3407ffbf8f43d93f0c9b2d7e26e767ca5fb53 (patch) | |
| tree | 0a1b075540de2218e0658eb768f0e57eec77e49a /gdb/ada-lang.c | |
| parent | 0caa462c1636049cfb05fb44f1fd104c65e6d1f7 (diff) | |
| download | binutils-gdb-67f3407ffbf8f43d93f0c9b2d7e26e767ca5fb53.tar.gz | |
* expression.h (enum exp_opcode): Document a register name for
OP_REGISTER.
* parse.c (write_dollar_variable): Write the register name for
OP_REGISTER.
(operator_length_standard): Expect the register name following
OP_REGISTER.
* ada-lang.c (resolve_subexp): Likewise.
* ax-gdb.c (gen_expr): Likewise.
* eval.c (evaluate_subexp_standard): Likewise.
* expprint.c (print_subexp_standard, dump_subexp_body_standard):
Likewise.
* tracepoint.c (encode_actions): Likewise.
Diffstat (limited to 'gdb/ada-lang.c')
| -rw-r--r-- | gdb/ada-lang.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 26eb64561a6..068a6ed7fc8 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -2710,7 +2710,6 @@ resolve_subexp (struct expression **expp, int *pos, int deprocedure_p, case OP_TYPE: case OP_BOOL: case OP_LAST: - case OP_REGISTER: case OP_INTERNALVAR: *pos += 3; break; @@ -2720,6 +2719,10 @@ resolve_subexp (struct expression **expp, int *pos, int deprocedure_p, nargs = 1; break; + case OP_REGISTER: + *pos += 4 + BYTES_TO_EXP_ELEM (exp->elts[pc + 1].longconst + 1); + break; + case STRUCTOP_STRUCT: *pos += 4 + BYTES_TO_EXP_ELEM (exp->elts[pc + 1].longconst + 1); nargs = 1; |