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

[deliverable/binutils-gdb.git] / gdb / p-typeprint.c

diff --git a/gdb/p-typeprint.c b/gdb/p-typeprint.c
index b10e0e3fe39b8217f2e724addd2e5ccb262f9416..cee9c81cf837c6b62d23fa3091a9a9bd7e92139c 100644 (file)
--- a/gdb/p-typeprint.c
+++ b/gdb/p-typeprint.c
@@ -36,11 +36,14 @@
 #include <errno.h>
 #include <ctype.h>
 
-static void pascal_type_print_varspec_suffix (struct type *, struct ui_file *, int, int, int);
+static void pascal_type_print_varspec_suffix (struct type *, struct ui_file *,
+                                             int, int, int);
 
-static void pascal_type_print_derivation_info (struct ui_file *, struct type *);
+static void pascal_type_print_derivation_info (struct ui_file *,
+                                              struct type *);
 
-void pascal_type_print_varspec_prefix (struct type *, struct ui_file *, int, int);
+void pascal_type_print_varspec_prefix (struct type *, struct ui_file *,
+                                      int, int);
 \f
 
 /* LEVEL is the depth to indent lines by.  */
@@ -219,7 +222,8 @@ pascal_type_print_varspec_prefix (struct type *type, struct ui_file *stream,
     case TYPE_CODE_PTR:
       fprintf_filtered (stream, "^");
       pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 1);
-      break;                   /* pointer should be handled normally in pascal */
+      break;                   /* pointer should be handled normally
+                                  in pascal */
 
     case TYPE_CODE_METHOD:
       if (passed_a_ptr)
@@ -236,7 +240,8 @@ pascal_type_print_varspec_prefix (struct type *type, struct ui_file *stream,
       if (passed_a_ptr)
        {
          fprintf_filtered (stream, " ");
-         pascal_type_print_base (TYPE_DOMAIN_TYPE (type), stream, 0, passed_a_ptr);
+         pascal_type_print_base (TYPE_DOMAIN_TYPE (type),
+                                 stream, 0, passed_a_ptr);
          fprintf_filtered (stream, "::");
        }
       break;
@@ -319,7 +324,8 @@ pascal_print_func_args (struct type *type, struct ui_file *stream)
          {
          fprintf_filtered (stream, "var ");
          } */
-      pascal_print_type (TYPE_FIELD_TYPE (type, i), "" /* TYPE_FIELD_NAME seems invalid ! */
+      pascal_print_type (TYPE_FIELD_TYPE (type, i), "" /* TYPE_FIELD_NAME
+                                                          seems invalid!  */
                         ,stream, -1, 0);
     }
   if (len)
@@ -361,7 +367,8 @@ pascal_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
       if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_VOID)
        {
          fprintf_filtered (stream, " : ");
-         pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0);
+         pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type),
+                                           stream, 0, 0);
          pascal_type_print_base (TYPE_TARGET_TYPE (type), stream, show, 0);
          pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0,
                                            passed_a_ptr, 0);
@@ -370,7 +377,8 @@ pascal_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
 
     case TYPE_CODE_PTR:
     case TYPE_CODE_REF:
-      pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 1, 0);
+      pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type),
+                                       stream, 0, 1, 0);
       break;
 
     case TYPE_CODE_FUNC:
@@ -381,7 +389,8 @@ pascal_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
       if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_VOID)
        {
          fprintf_filtered (stream, " : ");
-         pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0);
+         pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type),
+                                           stream, 0, 0);
          pascal_type_print_base (TYPE_TARGET_TYPE (type), stream, show, 0);
          pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0,
                                            passed_a_ptr, 0);
@@ -451,7 +460,8 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
     }
 
   /* void pointer */
-  if ((TYPE_CODE (type) == TYPE_CODE_PTR) && (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_VOID))
+  if ((TYPE_CODE (type) == TYPE_CODE_PTR)
+      && (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_VOID))
     {
       fputs_filtered (TYPE_NAME (type) ? TYPE_NAME (type) : "pointer",
                      stream);
@@ -480,9 +490,12 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
       break;
 
     case TYPE_CODE_ARRAY:
-      /* pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0);
-         pascal_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level);
-         pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 0, 0); */
+      /* pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type),
+                                          stream, 0, 0);
+         pascal_type_print_base (TYPE_TARGET_TYPE (type),
+                                stream, show, level);
+         pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type),
+                                          stream, 0, 0, 0); */
       pascal_print_type (TYPE_TARGET_TYPE (type), NULL, stream, 0, 0);
       break;
 
@@ -741,7 +754,8 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
              fputs_filtered (TYPE_FIELD_NAME (type, i), stream);
              if (lastval != TYPE_FIELD_BITPOS (type, i))
                {
-                 fprintf_filtered (stream, " := %d", TYPE_FIELD_BITPOS (type, i));
+                 fprintf_filtered (stream,
+                                   " := %d", TYPE_FIELD_BITPOS (type, i));
                  lastval = TYPE_FIELD_BITPOS (type, i);
                }
              lastval++;