Make pascal_object_print_value_fields static

pascal_object_print_value_fields is only needed in p-valprint.c, so
make it static.

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

	* p-valprint.c (pascal_object_print_value_fields): Now static.
	* p-lang.h (pascal_object_print_value_fields): Don't declare.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 74ad18eb01073ff1d6ee29799e8fab3f05469f04..734f77e1cc31abd22594a8bfedad9c622b2177ca 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2020-03-13  Tom Tromey  <tom@tromey.com>
+
+       * p-valprint.c (pascal_object_print_value_fields): Now static.
+       * p-lang.h (pascal_object_print_value_fields): Don't declare.
+
 2020-03-13  Tom Tromey  <tom@tromey.com>
 
        * c-valprint.c (c_val_print_array): Simplify.

diff --git a/gdb/p-lang.h b/gdb/p-lang.h
index 7c2b442d0e4d2820ffd81a04ca6b1b0fd95db18c..960d129c1142ea2da1843d49a7f2c1b4d71088f1 100644 (file)
--- a/gdb/p-lang.h
+++ b/gdb/p-lang.h
@@ -72,14 +72,6 @@ extern void
   pascal_type_print_varspec_prefix (struct type *, struct ui_file *, int, int,
                                    const struct type_print_options *);
 
-extern void pascal_object_print_value_fields (struct type *, const gdb_byte *,
-                                             LONGEST,
-                                             CORE_ADDR, struct ui_file *,
-                                             int,
-                                             struct value *,
-                                             const struct value_print_options *,
-                                             struct type **, int);
-
 extern int pascal_object_is_vtbl_ptr_type (struct type *);
 
 extern int pascal_object_is_vtbl_member (struct type *);

diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index 7d087557fd32be6c332e6e9fbe5df95bac0fb38b..68e8c6e11e7b7d151c58f6a945a33fdff341e7d0 100644 (file)
--- a/gdb/p-valprint.c
+++ b/gdb/p-valprint.c
@@ -42,6 +42,14 @@
 #include "cli/cli-style.h"
 \f
 
+static void pascal_object_print_value_fields (struct type *, const gdb_byte *,
+                                             LONGEST,
+                                             CORE_ADDR, struct ui_file *,
+                                             int,
+                                             struct value *,
+                                             const struct value_print_options *,
+                                             struct type **, int);
+
 /* Decorations for Pascal.  */
 
 static const struct generic_val_print_decorations p_decorations =
@@ -529,7 +537,7 @@ pascal_object_is_vtbl_member (struct type *type)
    DONT_PRINT is an array of baseclass types that we
    should not print, or zero if called from top level.  */
 
-void
+static void
 pascal_object_print_value_fields (struct type *type, const gdb_byte *valaddr,
                                  LONGEST offset,
                                  CORE_ADDR address, struct ui_file *stream,