Introduce ada_value_print_inner

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

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