diff options
Diffstat (limited to 'gdb/p-valprint.c')
| -rw-r--r-- | gdb/p-valprint.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c index 44dcbf9..284dc85 100644 --- a/gdb/p-valprint.c +++ b/gdb/p-valprint.c @@ -524,7 +524,7 @@ pascal_object_print_value_fields (struct value *val, struct ui_file *stream, struct type *type = check_typedef (value_type (val)); fprintf_filtered (stream, "{"); - len = TYPE_NFIELDS (type); + len = type->num_fields (); n_baseclasses = TYPE_N_BASECLASSES (type); /* Print out baseclasses such that we don't print |