diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2009-06-23 16:37:19 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2009-06-23 16:37:19 +0000 |
| commit | 4b27a62068e668a3388d810ac078edadc5ff8822 (patch) | |
| tree | 8f2bdbad9b4dc60daa8957f9eed8df34430d8f7c /gdb/ada-lang.c | |
| parent | 69de3c6af9e2484e4ac27d2a79fa2abb25b552d9 (diff) | |
| download | gdb-4b27a62068e668a3388d810ac078edadc5ff8822.zip gdb-4b27a62068e668a3388d810ac078edadc5ff8822.tar.gz gdb-4b27a62068e668a3388d810ac078edadc5ff8822.tar.bz2 | |
* ada-lang.c (evaluate_subexp): Delete. Use the version from eval.c.
(evaluate_subexp_type): Reimplement using evaluate_subexp.
* value.h (evaluate_subexp): Add declaration.
* eval.c (evaluate_subexp): Make non-static.
* objc-lang.c (print_object_command): Use evaluate_subexp.
Diffstat (limited to 'gdb/ada-lang.c')
| -rw-r--r-- | gdb/ada-lang.c | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 02c7821..a1fa364 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -157,9 +157,6 @@ static struct symbol *find_old_style_renaming_symbol (const char *, static struct type *ada_lookup_struct_elt_type (struct type *, char *, int, int, int *); -static struct value *evaluate_subexp (struct type *, struct expression *, - int *, enum noside); - static struct value *evaluate_subexp_type (struct expression *, int *); static int is_dynamic_field (struct type *, int); @@ -7730,14 +7727,6 @@ ada_enum_name (const char *name) } } -static struct value * -evaluate_subexp (struct type *expect_type, struct expression *exp, int *pos, - enum noside noside) -{ - return (*exp->language_defn->la_exp_desc->evaluate_exp) - (expect_type, exp, pos, noside); -} - /* Evaluate the subexpression of EXP starting at *POS as for evaluate_type, updating *POS to point just past the evaluated expression. */ @@ -7745,8 +7734,7 @@ evaluate_subexp (struct type *expect_type, struct expression *exp, int *pos, static struct value * evaluate_subexp_type (struct expression *exp, int *pos) { - return (*exp->language_defn->la_exp_desc->evaluate_exp) - (NULL_TYPE, exp, pos, EVAL_AVOID_SIDE_EFFECTS); + return evaluate_subexp (NULL_TYPE, exp, pos, EVAL_AVOID_SIDE_EFFECTS); } /* If VAL is wrapped in an aligner or subtype wrapper, return the |