diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2007-12-28 06:13:51 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2007-12-28 06:13:51 +0000 |
| commit | 2330c6c69c988335412d95a42bf0f44eea9ad967 (patch) | |
| tree | 60fa7af5aed8c7cacf54bd4a79c3b941941de6a6 /gdb/ada-lang.c | |
| parent | a6017fbaa57654299420b8ffd0e28a5842fe6be8 (diff) | |
| download | gdb-2330c6c69c988335412d95a42bf0f44eea9ad967.zip gdb-2330c6c69c988335412d95a42bf0f44eea9ad967.tar.gz gdb-2330c6c69c988335412d95a42bf0f44eea9ad967.tar.bz2 | |
* 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.
Diffstat (limited to 'gdb/ada-lang.c')
| -rw-r--r-- | gdb/ada-lang.c | 18 |
1 files changed, 18 insertions, 0 deletions
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) |