From 1e592a8ae0985645e61f6ffbfee064af8826b457 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Fri, 13 Mar 2020 17:39:52 -0600 Subject: [PATCH] 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 * p-valprint.c (pascal_object_print_value_fields): Now static. * p-lang.h (pascal_object_print_value_fields): Don't declare. --- gdb/ChangeLog | 5 +++++ gdb/p-lang.h | 8 -------- gdb/p-valprint.c | 10 +++++++++- 3 files changed, 14 insertions(+), 9 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 74ad18eb010..734f77e1cc3 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2020-03-13 Tom Tromey + + * 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 * c-valprint.c (c_val_print_array): Simplify. diff --git a/gdb/p-lang.h b/gdb/p-lang.h index 7c2b442d0e4..960d129c114 100644 --- 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 7d087557fd3..68e8c6e11e7 100644 --- a/gdb/p-valprint.c +++ b/gdb/p-valprint.c @@ -42,6 +42,14 @@ #include "cli/cli-style.h" +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, -- 2.30.2