[PATCH 163/203] Introduce ada_pos_operation

Tom Tromey
2021-01-01T21:49:26Z

This adds class ada_pos_operation, a new typedef that implements
OP_ATR_POS.

gdb/ChangeLog
2021-01-01 Tom Tromey <tom@tromey.com>

* ada-lang.c (ada_pos_atr): No longer static.
* ada-exp.h (ada_pos_operation): New typedef.
---
gdb/ChangeLog | 5 +++++
gdb/ada-exp.h | 5 +++++
gdb/ada-lang.c | 2 +-
3 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/gdb/ada-exp.h b/gdb/ada-exp.h
index f3808935f99..07744c1c8ea 100644
--- a/gdb/ada-exp.h
+++ b/gdb/ada-exp.h
@@ -65,6 +65,10 @@ extern struct value *ada_binop_minmax (struct type *expect_type,
enum noside noside, enum exp_opcode op,
struct value *arg1,
struct value *arg2);
+extern struct value *ada_pos_atr (struct type *expect_type,
+ struct expression *exp,
+ enum noside noside, enum exp_opcode op,
+ struct value *arg);

namespace expr
{
@@ -135,6 +139,7 @@ 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>;
+using ada_pos_operation = unop_operation<OP_ATR_POS, ada_pos_atr>;

/* The in-range operation, given a type. */
class ada_unop_range_operation
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 4a83e9f57a5..2f7eb354e4d 100644
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -8960,7 +8960,7 @@ pos_atr (struct value *arg)
return *result;
}

-static struct value *
+struct value *
ada_pos_atr (struct type *expect_type,
struct expression *exp,
enum noside noside, enum exp_opcode op,
--
2.26.2