diff options
author | Tom Tromey <tom@tromey.com> | 2021-03-08 07:27:57 -0700 |
---|---|---|
committer | Tom Tromey <tom@tromey.com> | 2021-03-08 07:28:28 -0700 |
commit | 7c15d377deefea39bac6ce710d803cc23cbe19c9 (patch) | |
tree | 49eec625122c2468d7b4a9c904b943aeefa5b306 | |
parent | 5019124b1ddc3839bd8ccba08819b11c0151e8a9 (diff) | |
download | gdb-7c15d377deefea39bac6ce710d803cc23cbe19c9.zip gdb-7c15d377deefea39bac6ce710d803cc23cbe19c9.tar.gz gdb-7c15d377deefea39bac6ce710d803cc23cbe19c9.tar.bz2 |
Implement some Ada unary operations
This implements a few Ada unary operations, using the existing
unop_operation template class.
gdb/ChangeLog
2021-03-08 Tom Tromey <tom@tromey.com>
* ada-lang.c (ada_unop_neg, ada_atr_tag, ada_atr_size, ada_abs):
No longer static.
* ada-exp.h (ada_neg_operation, ada_atr_tag_operation)
(ada_atr_size_operation, ada_abs_operation): New typedefs.
-rw-r--r-- | gdb/ChangeLog | 7 | ||||
-rw-r--r-- | gdb/ada-exp.h | 22 | ||||
-rw-r--r-- | gdb/ada-lang.c | 8 |
3 files changed, 33 insertions, 4 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index f91477a..08a9627 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,12 @@ 2021-03-08 Tom Tromey <tom@tromey.com> + * ada-lang.c (ada_unop_neg, ada_atr_tag, ada_atr_size, ada_abs): + No longer static. + * ada-exp.h (ada_neg_operation, ada_atr_tag_operation) + (ada_atr_size_operation, ada_abs_operation): New typedefs. + +2021-03-08 Tom Tromey <tom@tromey.com> + * expop.h (class logical_and_operation) (class logical_or_operation): New. * eval.c (logical_and_operation::evaluate) diff --git a/gdb/ada-exp.h b/gdb/ada-exp.h index 17a04ea..8f114b3 100644 --- a/gdb/ada-exp.h +++ b/gdb/ada-exp.h @@ -22,6 +22,23 @@ #include "expop.h" +extern struct value *ada_unop_neg (struct type *expect_type, + struct expression *exp, + enum noside noside, enum exp_opcode op, + struct value *arg1); +extern struct value *ada_atr_tag (struct type *expect_type, + struct expression *exp, + enum noside noside, enum exp_opcode op, + struct value *arg1); +extern struct value *ada_atr_size (struct type *expect_type, + struct expression *exp, + enum noside noside, enum exp_opcode op, + struct value *arg1); +extern struct value *ada_abs (struct type *expect_type, + struct expression *exp, + enum noside noside, enum exp_opcode op, + struct value *arg1); + namespace expr { @@ -87,6 +104,11 @@ public: { return TERNOP_IN_RANGE; } }; +using ada_neg_operation = unop_operation<UNOP_NEG, ada_unop_neg>; +using ada_atr_tag_operation = unop_operation<OP_ATR_TAG, ada_atr_tag>; +using ada_atr_size_operation = unop_operation<OP_ATR_SIZE, ada_atr_size>; +using ada_abs_operation = unop_operation<UNOP_ABS, ada_abs>; + } /* namespace expr */ #endif /* ADA_EXP_H */ diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index dd88466..ed691f5 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -9964,7 +9964,7 @@ eval_ternop_in_range (struct type *expect_type, struct expression *exp, /* A helper function for UNOP_NEG. */ -static value * +value * ada_unop_neg (struct type *expect_type, struct expression *exp, enum noside noside, enum exp_opcode op, @@ -10015,7 +10015,7 @@ ada_unop_in_range (struct type *expect_type, /* A helper function for OP_ATR_TAG. */ -static value * +value * ada_atr_tag (struct type *expect_type, struct expression *exp, enum noside noside, enum exp_opcode op, @@ -10029,7 +10029,7 @@ ada_atr_tag (struct type *expect_type, /* A helper function for OP_ATR_SIZE. */ -static value * +value * ada_atr_size (struct type *expect_type, struct expression *exp, enum noside noside, enum exp_opcode op, @@ -10054,7 +10054,7 @@ ada_atr_size (struct type *expect_type, /* A helper function for UNOP_ABS. */ -static value * +value * ada_abs (struct type *expect_type, struct expression *exp, enum noside noside, enum exp_opcode op, |