Convert ada_val_print_ref to value-based API

This converts ada_val_print_ref to the value-based API by using
common_val_print rather than val_print.

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

	* ada-valprint.c (ada_val_print_ref): Use common_val_print.
This commit is contained in:
Tom Tromey 2020-03-13 17:39:52 -06:00
parent 39ef85a896
commit 2e088f8b6e
2 changed files with 6 additions and 4 deletions

View File

@ -1,3 +1,7 @@
2020-03-13 Tom Tromey <tom@tromey.com>
* ada-valprint.c (ada_val_print_ref): Use common_val_print.
2020-03-13 Tom Tromey <tom@tromey.com>
* ada-valprint.c (ada_value_print_num): New function.

View File

@ -1207,10 +1207,8 @@ ada_val_print_ref (struct type *type, const gdb_byte *valaddr,
if (value_lazy (deref_val))
value_fetch_lazy (deref_val);
val_print (value_type (deref_val),
value_embedded_offset (deref_val),
value_address (deref_val), stream, recurse + 1,
deref_val, options, language_def (language_ada));
common_val_print (deref_val, stream, recurse + 1,
options, language_def (language_ada));
}
/* See the comment on ada_val_print. This function differs in that it