diff options
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/p-lang.h | 8 | ||||
| -rw-r--r-- | gdb/p-valprint.c | 10 |
3 files changed, 14 insertions, 9 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 74ad18e..734f77e 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,10 @@ 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. 2020-03-13 Tom Tromey <tom@tromey.com> diff --git a/gdb/p-lang.h b/gdb/p-lang.h index 7c2b442..960d129 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 7d08755..68e8c6e 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, |