diff options
| author | Nils-Christian Kempke <nils-christian.kempke@intel.com> | 2022-04-11 14:06:56 +0200 |
|---|---|---|
| committer | Nils-Christian Kempke <nils-christian.kempke@intel.com> | 2022-04-11 14:06:56 +0200 |
| commit | 891e4190ba705373eec7b374209478215fff5401 (patch) | |
| tree | 5d73fbd42f1e723066910ce02db03e4a27482c07 /gdb/std-operator.def | |
| parent | 04ba65365054e37461b4fd904ff9c00d88023b02 (diff) | |
| download | binutils-gdb-891e4190ba705373eec7b374209478215fff5401.tar.gz | |
gdb/fortran: rewrite intrinsic handling and add some missing overloads
The operators FLOOR, CEILING, CMPLX, LBOUND, UBOUND, and SIZE accept
(some only with Fortran 2003) the optional parameter KIND. This
parameter determines the kind of the associated return value. So far,
implementation of this kind parameter has been missing in GDB.
Additionally, the one argument overload for the CMPLX intrinsic function
was not yet available.
This patch adds overloads for all above mentioned functions to the
Fortran intrinsics handling in GDB.
It re-writes the intrinsic function handling section to use the helper
methods wrap_unop_intrinsic/wrap_binop_intrinsic/wrap_triop_intrinsic.
These methods define the action taken when a Fortran intrinsic function
is called with a certain amount of arguments (1/2/3). The helper methods
fortran_wrap2_kind and fortran_wrap3_kind have been added as equivalents
to the existing wrap and wrap2 methods.
After adding more overloads to the intrinsics handling, some of the
operation names were no longer accurate. E.g. UNOP_FORTRAN_CEILING
has been renamed to FORTRAN_CEILING as it is no longer a purely unary
intrinsic function. This patch also introduces intrinsic functions with
one, two, or three arguments to the Fortran parser and the
UNOP_OR_BINOP_OR_TERNOP_INTRINSIC token has been added.
Diffstat (limited to 'gdb/std-operator.def')
| -rw-r--r-- | gdb/std-operator.def | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gdb/std-operator.def b/gdb/std-operator.def index 5e6cad06379..71f1f7ec036 100644 --- a/gdb/std-operator.def +++ b/gdb/std-operator.def @@ -384,19 +384,21 @@ OP (OP_F77_UNDETERMINED_ARGLIST) /* Single operand builtins. */ OP (UNOP_FORTRAN_KIND) -OP (UNOP_FORTRAN_FLOOR) -OP (UNOP_FORTRAN_CEILING) OP (UNOP_FORTRAN_ALLOCATED) OP (UNOP_FORTRAN_RANK) OP (UNOP_FORTRAN_SHAPE) OP (UNOP_FORTRAN_LOC) /* Two operand builtins. */ -OP (BINOP_FORTRAN_CMPLX) OP (BINOP_FORTRAN_MODULO) /* Builtins that take one or two operands. */ +OP (FORTRAN_CEILING) +OP (FORTRAN_FLOOR) +OP (FORTRAN_ASSOCIATED) + +/* Builtins that take one, two or three operands. */ OP (FORTRAN_LBOUND) OP (FORTRAN_UBOUND) -OP (FORTRAN_ASSOCIATED) +OP (FORTRAN_CMPLX) OP (FORTRAN_ARRAY_SIZE) |