diff options
Diffstat (limited to 'gdb/f-valprint.c')
| -rw-r--r-- | gdb/f-valprint.c | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index 5db2ed7..64c0989 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -113,7 +113,8 @@ f77_get_dynamic_length_of_aggregate (struct type *type) /* Patch in a valid length value. */ TYPE_LENGTH (type) = - (upper_bound - lower_bound + 1) * TYPE_LENGTH (check_typedef (TYPE_TARGET_TYPE (type))); + (upper_bound - lower_bound + 1) + * TYPE_LENGTH (check_typedef (TYPE_TARGET_TYPE (type))); } /* Function that sets up the array offset,size table for the array @@ -172,7 +173,9 @@ f77_print_array_1 (int nss, int ndimensions, struct type *type, if (nss != ndimensions) { - for (i = 0; (i < F77_DIM_SIZE (nss) && (*elts) < options->print_max); i++) + for (i = 0; + (i < F77_DIM_SIZE (nss) && (*elts) < options->print_max); + i++) { fprintf_filtered (stream, "( "); f77_print_array_1 (nss + 1, ndimensions, TYPE_TARGET_TYPE (type), @@ -221,7 +224,8 @@ f77_print_array (struct type *type, const gdb_byte *valaddr, ndimensions = calc_f77_array_dims (type); if (ndimensions > MAX_FORTRAN_DIMS || ndimensions < 0) - error (_("Type node corrupt! F77 arrays cannot have %d subscripts (%d Max)"), + error (_("\ +Type node corrupt! F77 arrays cannot have %d subscripts (%d Max)"), ndimensions, MAX_FORTRAN_DIMS); /* Since F77 arrays are stored column-major, we set up an @@ -267,7 +271,8 @@ f_val_print (struct type *type, const gdb_byte *valaddr, int embedded_offset, case TYPE_CODE_ARRAY: fprintf_filtered (stream, "("); - f77_print_array (type, valaddr, address, stream, recurse, original_value, options); + f77_print_array (type, valaddr, address, stream, + recurse, original_value, options); fprintf_filtered (stream, ")"); break; |