Introduce ada_value_print_inner

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.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 5e59716335a8d6c334fdfe2d74d4907f0a903165..25eb0f5efe1c60809fe03eb10ef17cd86a556431 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -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.

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index fb3bfa5aba9fc9fb74a864bfdcc7858c74ba4448..9fb59e3a628067306d010250ea546a0eb4a5409c 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -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 */

diff --git a/gdb/ada-lang.h b/gdb/ada-lang.h
index e388c7528b3061eb7e2b2a0bfe3da96b85872ff0..f7c09519be639a5a72f3e74e9f3b79bcec1c676c 100644 (file)
--- a/gdb/ada-lang.h
+++ b/gdb/ada-lang.h
@@ -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 *);
 

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)