diff options
author | Tom Tromey <tromey@adacore.com> | 2024-02-29 12:07:28 -0700 |
---|---|---|
committer | Tom Tromey <tromey@adacore.com> | 2024-03-18 08:32:14 -0600 |
commit | 38ad466f704412ea23fa149e5310f0a6948f3e77 (patch) | |
tree | d30d92b9411deae717b0d8020ee047fe25b9d295 /gdb/ada-exp.h | |
parent | 1dd09e7f70d51eba4e2d9787959f07319c909110 (diff) | |
download | gdb-38ad466f704412ea23fa149e5310f0a6948f3e77.zip gdb-38ad466f704412ea23fa149e5310f0a6948f3e77.tar.gz gdb-38ad466f704412ea23fa149e5310f0a6948f3e77.tar.bz2 |
Remove some unnecessary Ada expression code
ada_bitwise_operation differs from the "usual" bitwise operations only
in that it calls value_cast at the end. However, because gdb is
generally fairly lax about integer types, and because (perhaps oddly)
C-style binary promotion is done here anyway, it seems to me that this
code isn't needed.
Diffstat (limited to 'gdb/ada-exp.h')
-rw-r--r-- | gdb/ada-exp.h | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/gdb/ada-exp.h b/gdb/ada-exp.h index 1d8615b..9abdd6f 100644 --- a/gdb/ada-exp.h +++ b/gdb/ada-exp.h @@ -286,33 +286,6 @@ 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 (lhs->type (), 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>; - /* Ada array- or string-slice operation. */ class ada_ternop_slice_operation : public maybe_constant_operation<operation_up, operation_up, operation_up>, |