FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

gdb: delete a couple of declarations from f-lang.h

Browse source 
One declaration in f-lang.h is for a function that doesn't even exist,
another is for a function that is only used within f-lang.c.

One declaration is deleted, the other function I make static in
f-lang.c.

gdb/ChangeLog:

	* f-lang.c (fortran_argument_convert): Add declaration.  Add
	header comment, taken from f-lang.h.  Make static.
	* f-lang.h (f77_get_dynamic_array_length): Delete declaration.
	(fortran_argument_convert): Delete declaration.
This commit is contained in:
Andrew Burgess 2020-11-13 11:03:05 +00:00
parent 48f4d8ce96
commit 5a7cf52794
3 changed files with 24 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

19
gdb/f-lang.c
View file

@ -41,6 +41,9 @@
/* Local functions */
static struct value *fortran_argument_convert (struct value *value,
bool is_artificial);
/* Return the encoding that should be used for the character type
TYPE. */
@ -844,9 +847,21 @@ _initialize_f_language ()
f_type_data = gdbarch_data_register_post_init (build_fortran_types);
}
/* See f-lang.h. */
/* Ensures that function argument VALUE is in the appropriate form to
pass to a Fortran function. Returns a possibly new value that should
be used instead of VALUE.
struct value *
When IS_ARTIFICIAL is true this indicates an artificial argument,
e.g. hidden string lengths which the GNU Fortran argument passing
convention specifies as being passed by value.
When IS_ARTIFICIAL is false, the argument is passed by pointer. If the
value is already in target memory then return a value that is a pointer
to VALUE. If VALUE is not in memory (e.g. an integer literal), allocate
space in the target, copy VALUE in, and return a pointer to the in
memory copy. */
static struct value *
fortran_argument_convert (struct value *value, bool is_artificial)
{
if (!is_artificial)