@@ -42,6 +42,10 @@ extern struct value *ada_unop_in_range (struct type *expect_type,
struct expression *exp,
enum noside noside, enum exp_opcode op,
struct value *arg1, struct type *type);
+extern struct value *ada_mult_binop (struct type *expect_type,
+ struct expression *exp,
+ enum noside noside, enum exp_opcode op,
+ struct value *arg1, struct value *arg2);
namespace expr
{
@@ -150,6 +154,11 @@ class ada_binop_addsub_operation
{ return std::get<0> (m_storage); }
};
+using ada_binop_mul_operation = binop_operation<BINOP_MUL, ada_mult_binop>;
+using ada_binop_div_operation = binop_operation<BINOP_DIV, ada_mult_binop>;
+using ada_binop_rem_operation = binop_operation<BINOP_REM, ada_mult_binop>;
+using ada_binop_mod_operation = binop_operation<BINOP_MOD, ada_mult_binop>;
+
} /* namespace expr */
#endif /* ADA_EXP_H */
@@ -10273,7 +10273,7 @@ ada_abs (struct type *expect_type,
/* A helper function for BINOP_MUL. */
-static value *
+value *
ada_mult_binop (struct type *expect_type,
struct expression *exp,
enum noside noside, enum exp_opcode op,