Re: Large array printing patch for Fortran

David Lecomber
2003-09-29T17:35:37Z

This patch sets the formatting correctly in the patch I previously
applied.

2003-09-29 David Lecomber <dsl@sources.redhat.com>

* f-valprint.c: Reformatting

Index: f-valprint.c
===================================================================
RCS file: /cvs/src/src/gdb/f-valprint.c,v
retrieving revision 1.18
diff -u -p -r1.18 f-valprint.c
--- f-valprint.c 16 Sep 2003 18:56:35 -0000 1.18
+++ f-valprint.c 29 Sep 2003 17:31:59 -0000
@@ -276,6 +276,7 @@ f77_create_arrayprint_offset_tbl (struct

/* Actual function which prints out F77 arrays, Valaddr == address in
the superior. Address == the address in the inferior. */
+
static void
f77_print_array_1 (int nss, int ndimensions, struct type *type, char *valaddr,
CORE_ADDR address, struct ui_file *stream, int format,
@@ -295,13 +296,13 @@ f77_print_array_1 (int nss, int ndimensi
stream, format, deref_ref, recurse, pretty, elts);
fprintf_filtered (stream, ") ");
}
- if (*elts >= print_max && i < F77_DIM_SIZE (nss)) {
+ if (*elts >= print_max && i < F77_DIM_SIZE (nss))
fprintf_filtered (stream, "...");
- }
}
else
{
- for (i = 0; (i < F77_DIM_SIZE (nss) && (*elts) < print_max); i++, (*elts)++)
+ for (i = 0; i < F77_DIM_SIZE (nss) && (*elts) < print_max;
+ i++, (*elts)++)
{
val_print (TYPE_TARGET_TYPE (type),
valaddr + i * F77_DIM_OFFSET (ndimensions),
@@ -312,7 +313,7 @@ f77_print_array_1 (int nss, int ndimensi
if (i != (F77_DIM_SIZE (nss) - 1))
fprintf_filtered (stream, ", ");

- if ((( *elts) == print_max - 1) && (i != (F77_DIM_SIZE (nss) - 1)))
+ if ((*elts == print_max - 1) && (i != (F77_DIM_SIZE (nss) - 1)))
fprintf_filtered (stream, "...");
}
}