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

Introduce f_value_print_innner

Browse source 
This introduces f_value_print_innner.

gdb/ChangeLog
2020-03-13  Tom Tromey  <tom@tromey.com>

	* f-valprint.c (f_value_print_innner): New function.
	* f-lang.h (f_value_print_innner): Declare.
	* f-lang.c (f_language_defn): Use f_value_print_innner.
This commit is contained in:
Tom Tromey 2020-03-13 17:39:52 -06:00
parent c0941be613
commit 24051bbe84
4 changed files with 23 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gdb/ChangeLog
View file

@ -1,3 +1,9 @@
2020-03-13 Tom Tromey <tom@tromey.com>
* f-valprint.c (f_value_print_innner): New function.
* f-lang.h (f_value_print_innner): Declare.
* f-lang.c (f_language_defn): Use f_value_print_innner.
2020-03-13 Tom Tromey <tom@tromey.com> 2020-03-13 Tom Tromey <tom@tromey.com>
* p-valprint.c (pascal_value_print_inner): New function. * p-valprint.c (pascal_value_print_inner): New function.

2
gdb/f-lang.c
View file

@ -647,7 +647,7 @@ extern const struct language_defn f_language_defn =
f_print_type, /* Print a type using appropriate syntax */ f_print_type, /* Print a type using appropriate syntax */
f_print_typedef, /* Print a typedef using appropriate syntax */ f_print_typedef, /* Print a typedef using appropriate syntax */
f_val_print, /* Print a value using appropriate syntax */ f_val_print, /* Print a value using appropriate syntax */
nullptr, /* la_value_print_inner */ f_value_print_innner, /* la_value_print_inner */
c_value_print, /* FIXME */ c_value_print, /* FIXME */
default_read_var_value, /* la_read_var_value */ default_read_var_value, /* la_read_var_value */
NULL, /* Language specific skip_trampoline */ NULL, /* Language specific skip_trampoline */

6
gdb/f-lang.h
View file

@ -41,6 +41,12 @@ extern void f_val_print (struct type *, int, CORE_ADDR,
struct value *, struct value *,
const struct value_print_options *); const struct value_print_options *);
/* Implement la_value_print_inner for Fortran. */
extern void f_value_print_innner (struct value *val, struct ui_file *stream,
int recurse,
const struct value_print_options *options);
/* Language-specific data structures */ /* Language-specific data structures */
/* A common block. */ /* A common block. */

10
gdb/f-valprint.c
View file

@ -394,6 +394,16 @@ f_val_print (struct type *type, int embedded_offset,
} }
} }
/* See f-lang.h. */
void
f_value_print_innner (struct value *val, struct ui_file *stream, int recurse,
const struct value_print_options *options)
{
f_val_print (value_type (val), value_embedded_offset (val),
value_address (val), stream, recurse, val, options);
}
static void static void
info_common_command_for_block (const struct block *block, const char *comname, info_common_command_for_block (const struct block *block, const char *comname,
int *any_printed) int *any_printed)