diff options
| -rw-r--r-- | gdb/ChangeLog | 7 | ||||
| -rw-r--r-- | gdb/ada-lang.c | 18 | ||||
| -rw-r--r-- | gdb/language.c | 2 |
3 files changed, 27 insertions, 0 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 75db191..157745f 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,10 @@ +2007-12-27 Paul Hilfinger <hilfinger@adacore.com> + + * ada-lang.c (ada_evaluate_subexp): Add cases for BINOP_LOGICAL_AND, + BINOP_LOGICAL_OR, UNOP_LOGICAL_NOT, BINOP_BITWISE_IOR, + BINOP_BITWISE_XOR, BINOP_BITWISE_AND. + * language.c (lang_bool_type): Add Ada case. + 2007-12-26 Joel Brobecker <brobecker@adacore.com> * dwarf2read.c (read_base_type): Fix obvious &&/|| confusion. diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index c2b7d1f..116839b 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -8151,6 +8151,24 @@ ada_evaluate_subexp (struct type *expect_type, struct expression *exp, else return value_neg (arg1); + case BINOP_LOGICAL_AND: + case BINOP_LOGICAL_OR: + case UNOP_LOGICAL_NOT: + *pos -= 1; + return value_cast (LA_BOOL_TYPE, + evaluate_subexp_standard (expect_type, exp, + pos, noside)); + + case BINOP_BITWISE_AND: + case BINOP_BITWISE_IOR: + case BINOP_BITWISE_XOR: + arg1 = evaluate_subexp (NULL_TYPE, exp, pos, EVAL_AVOID_SIDE_EFFECTS); + *pos = pc; + return value_cast (value_type (arg1), + evaluate_subexp_standard (expect_type, exp, + pos, noside)); + + case OP_VAR_VALUE: *pos -= 1; if (noside == EVAL_SKIP) diff --git a/gdb/language.c b/gdb/language.c index 84a095f..3355475 100644 --- a/gdb/language.c +++ b/gdb/language.c @@ -801,6 +801,7 @@ lang_bool_type (void) return builtin_type_f_logical_s2; case language_cplus: case language_pascal: + case language_ada: if (current_language->la_language==language_cplus) {sym = lookup_symbol ("bool", NULL, VAR_DOMAIN, NULL, NULL);} else @@ -821,6 +822,7 @@ lang_bool_type (void) return type; } return java_boolean_type; + default: return builtin_type_int; } |