diff options
| -rw-r--r-- | gdb/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/ada-exp.h | 27 |
2 files changed, 33 insertions, 0 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index f34ce4b..62c71b7 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,11 @@ 2021-03-08 Tom Tromey <tom@tromey.com> + * ada-exp.h (ada_bitwise_operation): New template class. + (ada_bitwise_and_operation, ada_bitwise_ior_operation) + (ada_bitwise_xor_operation): New typedefs. + +2021-03-08 Tom Tromey <tom@tromey.com> + * ada-lang.c (ada_equal_binop): No longer static. * ada-exp.h (class ada_binop_equal_operation): New. diff --git a/gdb/ada-exp.h b/gdb/ada-exp.h index 3091323..d8f18b9 100644 --- a/gdb/ada-exp.h +++ b/gdb/ada-exp.h @@ -186,6 +186,33 @@ public: { return std::get<0> (m_storage); } }; +/* Bitwise operators for Ada. */ +template<enum exp_opcode OP> +class ada_bitwise_operation + : public maybe_constant_operation<operation_up, operation_up> +{ +public: + + using maybe_constant_operation::maybe_constant_operation; + + value *evaluate (struct type *expect_type, + struct expression *exp, + enum noside noside) override + { + value *lhs = std::get<0> (m_storage)->evaluate (nullptr, exp, noside); + value *rhs = std::get<1> (m_storage)->evaluate (nullptr, exp, noside); + value *result = eval_op_binary (expect_type, exp, noside, OP, lhs, rhs); + return value_cast (value_type (lhs), result); + } + + enum exp_opcode opcode () const override + { return OP; } +}; + +using ada_bitwise_and_operation = ada_bitwise_operation<BINOP_BITWISE_AND>; +using ada_bitwise_ior_operation = ada_bitwise_operation<BINOP_BITWISE_IOR>; +using ada_bitwise_xor_operation = ada_bitwise_operation<BINOP_BITWISE_XOR>; + } /* namespace expr */ #endif /* ADA_EXP_H */ |