Convert ada_val_print_ref to value-based API

[binutils-gdb.git] / gdb / ada-valprint.c

diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c
index 4b89473fef39cbb6407ad837e8afcc299da13d71..1d3b06ddfddb16fd6ef007c24cfabdeea4ba1336 100644 (file)
--- a/gdb/ada-valprint.c
+++ b/gdb/ada-valprint.c
@@ -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