espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-30 00:52:16 +08:00
Code Issues Packages Projects Releases Wiki Activity

Introduce classes for Fortran bound intrinsics

Browse Source 
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  <tom@tromey.com>

	* 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.
This commit is contained in:
Tom Tromey
2021-03-08 07:27:57 -07:00
parent 2f98abe174
commit 58a76c7264
3 changed files with 73 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
gdb/f-lang.c
View File

@ -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. */