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

Introduce ada_value_print_inner

Browse source 
This introduces ada_value_print_inner.

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

	* ada-valprint.c (ada_value_print_inner): New function.
	* ada-lang.h (ada_value_print_inner): Declare.
	* ada-lang.c (ada_language_defn): Use ada_value_print_inner.
This commit is contained in:
Tom Tromey 2020-03-13 17:39:52 -06:00
parent 24051bbe84
commit 26792ee034
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>
* ada-valprint.c (ada_value_print_inner): New function.
* ada-lang.h (ada_value_print_inner): Declare.
* ada-lang.c (ada_language_defn): Use ada_value_print_inner.
2020-03-13 Tom Tromey <tom@tromey.com>
* f-valprint.c (f_value_print_innner): New function.

2
gdb/ada-lang.c
View file

@ -14110,7 +14110,7 @@ extern const struct language_defn ada_language_defn = {
ada_print_type, /* Print a type using appropriate syntax */
ada_print_typedef, /* Print a typedef using appropriate syntax */
ada_val_print, /* Print a value using appropriate syntax */
nullptr, /* la_value_print_inner */
ada_value_print_inner, /* la_value_print_inner */
ada_value_print, /* Print a top-level value */
ada_read_var_value, /* la_read_var_value */
NULL, /* Language specific skip_trampoline */

5
gdb/ada-lang.h
View file

@ -169,6 +169,11 @@ extern void ada_val_print (struct type *, int, CORE_ADDR,
struct value *,
const struct value_print_options *);
/* Implement la_value_print_inner for Ada. */
extern void ada_value_print_inner (struct value *, struct ui_file *, int,
const struct value_print_options *);
extern void ada_value_print (struct value *, struct ui_file *,
const struct value_print_options *);

11
gdb/ada-valprint.c
View file

@ -1222,6 +1222,17 @@ ada_val_print (struct type *type,
}
}
/* See ada-lang.h. */
void
ada_value_print_inner (struct value *val, struct ui_file *stream,
int recurse,
const struct value_print_options *options)
{
ada_val_print (value_type (val), value_embedded_offset (val),
value_address (val), stream, recurse, val, options);
}
void
ada_value_print (struct value *val0, struct ui_file *stream,
const struct value_print_options *options)