2011-01-05 Michael Snyder <msnyder@vmware.com>

[deliverable/binutils-gdb.git] / gdb / f-valprint.c

diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c
index 5db2ed71755a29668b7304fbd100741bc904db29..64c0989a9a4efe79941b863b241f6154405d1341 100644 (file)
--- 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;