From 03070ee9c77877655051c073cf060585f7cb2ff2 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Mon, 8 Mar 2021 07:27:57 -0700 Subject: Introduce ada_wrapped_operation This adds class ada_wrapped_operation, which is used to wrap some generic operations with a bit of Ada-specific handling. This corresponds to the old "default" case in ada_evaluate_subexp. gdb/ChangeLog 2021-03-08 Tom Tromey * ada-lang.c (ada_wrapped_operation::evaluate): New method. * ada-exp.h: New file. --- gdb/ada-exp.h | 47 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100644 gdb/ada-exp.h (limited to 'gdb/ada-exp.h') diff --git a/gdb/ada-exp.h b/gdb/ada-exp.h new file mode 100644 index 0000000..3f780dc --- /dev/null +++ b/gdb/ada-exp.h @@ -0,0 +1,47 @@ +/* Definitions for Ada expressions + + Copyright (C) 2020 Free Software Foundation, Inc. + + This file is part of GDB. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . */ + +#ifndef ADA_EXP_H +#define ADA_EXP_H + +#include "expop.h" + +namespace expr +{ + +/* In Ada, some generic operations must be wrapped with a handler that + handles some Ada-specific type conversions. */ +class ada_wrapped_operation + : public tuple_holding_operation +{ +public: + + using tuple_holding_operation::tuple_holding_operation; + + value *evaluate (struct type *expect_type, + struct expression *exp, + enum noside noside) override; + + enum exp_opcode opcode () const override + { return std::get<0> (m_storage)->opcode (); } +}; + +} /* namespace expr */ + +#endif /* ADA_EXP_H */ -- cgit v1.1