Fortran function calls with arguments
authorRichard Bunt <richard.bunt@arm.com>
Wed, 6 Mar 2019 08:23:00 +0000 (08:23 +0000)
committerRichard Bunt <richard.bunt@arm.com>
Wed, 6 Mar 2019 08:24:12 +0000 (08:24 +0000)
commitaa3cfbda2f2af71044949b5692ce51cafb023d13
tree1cba99e017e03ebdd44207d76fb7d23f0e179fcd
parent2d0d5fc6f085dedd7988b29e58fdc4dc2081472e
Fortran function calls with arguments

Prior to this patch, calling functions on the inferior with arguments and
then using these arguments within a function resulted in an invalid
memory access. This is because Fortran arguments are typically passed as
pointers to values.

It is possible to call Fortran functions, but memory must be allocated in
the inferior, so a pointer can be passed to the function, and the
language must be set to C to enable C-style casting. This is cumbersome
and not a pleasant debug experience.

This patch implements the GNU Fortran argument passing conventions with
caveats. Firstly, it does not handle the VALUE attribute as there is
insufficient DWARF information to determine when this is the case.
Secondly, functions with optional parameters can only be called with all
parameters present. Both these cases are marked as KFAILS in the test.

Since the GNU Fortran argument passing convention has been implemented,
there is no guarantee that this patch will work correctly, in all cases,
with other compilers.

Despite these limitations, this patch improves the ease with which
functions can be called in many cases, without taking away the existing
approach of calling with the language set to C.

Regression tested on x86_64, aarch64 and POWER9 with GCC 7.3.0.
Regression tested with Ada on x86_64.
Regression tested with native-extended-gdbserver target board.

gdb/ChangeLog:

* eval.c (evaluate_subexp_standard): Call Fortran argument
wrapping logic.
* f-lang.c (struct value): A value which can be passed into a
Fortran function call.
(fortran_argument_convert): Wrap Fortran arguments in a pointer
where appropriate.
(struct type): Value ready for a Fortran function call.
(fortran_preserve_arg_pointer): Undo check_typedef, the pointer
is needed.
* f-lang.h (fortran_argument_convert): Declaration.
(fortran_preserve_arg_pointer): Declaration.
* infcall.c (value_arg_coerce): Call Fortran argument logic.

gdb/testsuite/ChangeLog:

* gdb.fortran/function-calls.exp: New file.
* gdb.fortran/function-calls.f90: New test.
gdb/ChangeLog
gdb/eval.c
gdb/f-lang.c
gdb/f-lang.h
gdb/infcall.c
gdb/testsuite/ChangeLog
gdb/testsuite/gdb.fortran/function-calls.exp [new file with mode: 0644]
gdb/testsuite/gdb.fortran/function-calls.f90 [new file with mode: 0644]