diff options
| author | Tom Tromey <tom@tromey.com> | 2020-03-13 17:39:52 -0600 |
|---|---|---|
| committer | Tom Tromey <tom@tromey.com> | 2020-03-13 18:03:39 -0600 |
| commit | 72a45c938438f33bf8e7de6a5f068ba31c8c1e36 (patch) | |
| tree | ff83774f76eb54ff3f098e91b9971624905b2d05 /gdb/f-valprint.c | |
| parent | 040f66bd2d6aea4d35a2e5cb88b499799ee4c466 (diff) | |
| download | gdb-72a45c938438f33bf8e7de6a5f068ba31c8c1e36.zip gdb-72a45c938438f33bf8e7de6a5f068ba31c8c1e36.tar.gz gdb-72a45c938438f33bf8e7de6a5f068ba31c8c1e36.tar.bz2 | |
Use common_val_print in f-valprint.c
This changes a couple spots in f-valprint.c to use common_val_print
rather than val_print.
gdb/ChangeLog
2020-03-13 Tom Tromey <tom@tromey.com>
* f-valprint.c (f77_print_array_1, f_val_print): Use
common_val_print.
Diffstat (limited to 'gdb/f-valprint.c')
| -rw-r--r-- | gdb/f-valprint.c | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index 0393ddf..bbc09cd 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -156,10 +156,7 @@ f77_print_array_1 (int nss, int ndimensions, struct type *type, { struct value *elt = value_subscript ((struct value *)val, i); - val_print (value_type (elt), - value_embedded_offset (elt), - value_address (elt), stream, recurse, - elt, options, current_language); + common_val_print (elt, stream, recurse, options, current_language); if (i != upperbound) fprintf_filtered (stream, ", "); @@ -346,10 +343,8 @@ f_val_print (struct type *type, int embedded_offset, fputs_filtered (" = ", stream); } - val_print (value_type (field), - value_embedded_offset (field), - value_address (field), stream, recurse + 1, - field, options, current_language); + common_val_print (field, stream, recurse + 1, + options, current_language); ++printed_field; } |