From 58a76c72648ce1e70bbba8320547a5c4353c48a3 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Mon, 8 Mar 2021 07:27:57 -0700 Subject: Introduce classes for Fortran bound intrinsics This adds class fortran_bound_1arg and fortran_bound_2arg, to implement the Fortran lbound and ubound intrinsics. gdb/ChangeLog 2021-03-08 Tom Tromey * f-lang.c (fortran_bound_1arg::evaluate) (fortran_bound_2arg::evaluate): New methods. * f-exp.h (class fortran_bound_1arg, class fortran_bound_2arg): New. --- gdb/f-lang.c | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) (limited to 'gdb/f-lang.c') diff --git a/gdb/f-lang.c b/gdb/f-lang.c index 6f7217d..dcd7c48 100644 --- a/gdb/f-lang.c +++ b/gdb/f-lang.c @@ -1865,6 +1865,40 @@ fortran_undetermined::evaluate (struct type *expect_type, } } +value * +fortran_bound_1arg::evaluate (struct type *expect_type, + struct expression *exp, + enum noside noside) +{ + bool lbound_p = std::get<0> (m_storage) == FORTRAN_LBOUND; + value *arg1 = std::get<1> (m_storage)->evaluate (nullptr, exp, noside); + fortran_require_array (value_type (arg1), lbound_p); + return fortran_bounds_all_dims (lbound_p, exp->gdbarch, arg1); +} + +value * +fortran_bound_2arg::evaluate (struct type *expect_type, + struct expression *exp, + enum noside noside) +{ + bool lbound_p = std::get<0> (m_storage) == FORTRAN_LBOUND; + value *arg1 = std::get<1> (m_storage)->evaluate (nullptr, exp, noside); + fortran_require_array (value_type (arg1), lbound_p); + + /* User asked for the bounds of a specific dimension of the array. */ + value *arg2 = std::get<2> (m_storage)->evaluate (nullptr, exp, noside); + struct type *type = check_typedef (value_type (arg2)); + if (type->code () != TYPE_CODE_INT) + { + if (lbound_p) + error (_("LBOUND second argument should be an integer")); + else + error (_("UBOUND second argument should be an integer")); + } + + return fortran_bounds_for_dimension (lbound_p, exp->gdbarch, arg1, arg2); +} + } /* namespace expr */ /* Special expression lengths for Fortran. */ -- cgit v1.1