aboutsummaryrefslogtreecommitdiff
path: root/gdb/ada-lang.c
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/ada-lang.c')
-rw-r--r--gdb/ada-lang.c18
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)