2011-01-10 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 cee9c81cf837c6b62d23fa3091a9a9bd7e92139c..54a761d464a0bb1bf6443f7de477802d483e4e4b 100644 (file)
--- a/gdb/p-typeprint.c
+++ b/gdb/p-typeprint.c
@@ -83,7 +83,7 @@ pascal_print_type (struct type *type, const char *varstring,
 
   pascal_type_print_base (type, stream, show, level);
   /* For demangled function names, we have the arglist as part of the name,
-     so don't print an additional pair of ()'s */
+     so don't print an additional pair of ()'s.  */
 
   demangled_args = varstring ? strchr (varstring, '(') != NULL : 0;
   pascal_type_print_varspec_suffix (type, stream, show, 0, demangled_args);
@@ -107,7 +107,7 @@ pascal_print_typedef (struct type *type, struct symbol *new_symbol,
 
 /* If TYPE is a derived type, then print out derivation information.
    Print only the actual base classes of this type, not the base classes
-   of the base classes.  I.E.  for the derivation hierarchy:
+   of the base classes.  I.e. for the derivation hierarchy:
 
    class A { int a; };
    class B : public A {int b; };
@@ -127,7 +127,7 @@ pascal_print_typedef (struct type *type, struct symbol *new_symbol,
    }
 
    In general, gdb should try to print the types as closely as possible to
-   the form that they appear in the source code. */
+   the form that they appear in the source code.  */
 
 static void
 pascal_type_print_derivation_info (struct ui_file *stream, struct type *type)
@@ -169,7 +169,7 @@ pascal_type_print_method_args (char *physname, char *methodname,
   if (physname && (*physname != 0))
     {
       fputs_filtered (" (", stream);
-      /* we must demangle this */
+      /* We must demangle this.  */
       while (isdigit (physname[0]))
        {
          int len = 0;
@@ -222,8 +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)
@@ -319,7 +319,7 @@ pascal_print_func_args (struct type *type, struct ui_file *stream)
          fputs_filtered (", ", stream);
          wrap_here ("    ");
        }
-      /*  can we find if it is a var parameter ??
+      /*  Can we find if it is a var parameter ??
          if ( TYPE_FIELD(type, i) == )
          {
          fprintf_filtered (stream, "var ");
@@ -503,7 +503,7 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
     case TYPE_CODE_METHOD:
       /*
          pascal_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level);
-         only after args !! */
+         only after args !!  */
       break;
     case TYPE_CODE_STRUCT:
       if (TYPE_TAG_NAME (type) != NULL)
@@ -552,7 +552,7 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
 
          /* Start off with no specific section type, so we can print
             one for the first field we find, and use that section type
-            thereafter until we find another type. */
+            thereafter until we find another type.  */
 
          section_type = s_none;
 
@@ -569,7 +569,7 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
                continue;
 
              /* If this is a pascal object or class we can print the
-                various section labels. */
+                various section labels.  */
 
              if (HAVE_CPLUS_STRUCT (type))
                {
@@ -620,12 +620,12 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
              fprintf_filtered (stream, ";\n");
            }
 
-         /* If there are both fields and methods, put a space between. */
+         /* If there are both fields and methods, put a space between.  */
          len = TYPE_NFN_FIELDS (type);
          if (len && section_type != s_none)
            fprintf_filtered (stream, "\n");
 
-         /* Pbject pascal: print out the methods */
+         /* Object pascal: print out the methods.  */
 
          for (i = 0; i < len; i++)
            {
@@ -635,7 +635,7 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
 
              /* this is GNU C++ specific
                 how can we know constructor/destructor?
-                It might work for GNU pascal */
+                It might work for GNU pascal.  */
              for (j = 0; j < len2; j++)
                {
                  char *physname = TYPE_FN_FIELD_PHYSNAME (f, j);
@@ -699,7 +699,7 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
                    {
                      fprintf_filtered (stream, "procedure ");
                    }
-                 /* this does not work, no idea why !! */
+                 /* This does not work, no idea why !!  */
 
                  pascal_type_print_method_args (physname,
                                                 method_name,
@@ -731,7 +731,7 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
            fputs_filtered (" ", stream);
        }
       /* enum is just defined by
-         type enume_name = (enum_member1,enum_member2,...) */
+         type enume_name = (enum_member1,enum_member2,...)  */
       fprintf_filtered (stream, " = ");
       wrap_here ("    ");
       if (show < 0)
@@ -776,7 +776,7 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
       fprintf_filtered (stream, "%s", TYPE_ERROR_NAME (type));
       break;
 
-      /* this probably does not work for enums */
+      /* this probably does not work for enums.  */
     case TYPE_CODE_RANGE:
       {
        struct type *target = TYPE_TARGET_TYPE (type);
@@ -805,7 +805,7 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
       /* Handle types not explicitly handled by the other cases,
          such as fundamental types.  For these, just print whatever
          the type name is, as recorded in the type itself.  If there
-         is no type name, then complain. */
+         is no type name, then complain.  */
       if (TYPE_NAME (type) != NULL)
        {
          fputs_filtered (TYPE_NAME (type), stream);