mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2025-01-30 12:44:10 +08:00
Introduce ada_binop_exp_operation
This adds class ada_binop_exp_operation, which implements BINOP_EXP for Ada. gdb/ChangeLog 2021-03-08 Tom Tromey <tom@tromey.com> * ada-lang.c (ada_binop_exp): No longer static. * ada-exp.h (ada_binop_exp_operation): New typedef.
This commit is contained in:
parent
9e99f48f27
commit
065ec8268d
@ -1,3 +1,8 @@
|
||||
2021-03-08 Tom Tromey <tom@tromey.com>
|
||||
|
||||
* ada-lang.c (ada_binop_exp): No longer static.
|
||||
* ada-exp.h (ada_binop_exp_operation): New typedef.
|
||||
|
||||
2021-03-08 Tom Tromey <tom@tromey.com>
|
||||
|
||||
* ada-lang.c (ada_val_atr): No longer static.
|
||||
|
@ -71,7 +71,10 @@ extern struct value *ada_pos_atr (struct type *expect_type,
|
||||
struct value *arg);
|
||||
extern struct value *ada_val_atr (enum noside noside, struct type *type,
|
||||
struct value *arg);
|
||||
|
||||
extern struct value *ada_binop_exp (struct type *expect_type,
|
||||
struct expression *exp,
|
||||
enum noside noside, enum exp_opcode op,
|
||||
struct value *arg1, struct value *arg2);
|
||||
|
||||
namespace expr
|
||||
{
|
||||
@ -189,6 +192,8 @@ using ada_binop_mod_operation = binop_operation<BINOP_MOD, ada_mult_binop>;
|
||||
using ada_binop_min_operation = binop_operation<OP_ATR_MIN, ada_binop_minmax>;
|
||||
using ada_binop_max_operation = binop_operation<OP_ATR_MAX, ada_binop_minmax>;
|
||||
|
||||
using ada_binop_exp_operation = binop_operation<BINOP_EXP, ada_binop_exp>;
|
||||
|
||||
/* Implement the equal and not-equal operations for Ada. */
|
||||
class ada_binop_equal_operation
|
||||
: public tuple_holding_operation<enum exp_opcode, operation_up, operation_up>
|
||||
|
@ -10416,7 +10416,7 @@ ada_binop_minmax (struct type *expect_type,
|
||||
|
||||
/* A helper function for BINOP_EXP. */
|
||||
|
||||
static struct value *
|
||||
struct value *
|
||||
ada_binop_exp (struct type *expect_type,
|
||||
struct expression *exp,
|
||||
enum noside noside, enum exp_opcode op,
|
||||
|
Loading…
Reference in New Issue
Block a user