*** empty log message ***

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

diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c
index 5390dd9895b982762a3e5d00ee3a942cf8050ee4..e993c05c3f2dbaf0ccb8e7a510548bf71b71f8c7 100644 (file)
--- a/gdb/p-valprint.c
+++ b/gdb/p-valprint.c
@@ -96,7 +96,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
                {
                  unsigned int temp_len;
 
-                 /* Look for a NULL char. */
+                 /* Look for a NULL char.  */
                  for (temp_len = 0;
                       extract_unsigned_integer (valaddr + embedded_offset +
                                                 temp_len * eltlen, eltlen,
@@ -147,7 +147,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
        {
          /* Print the unmangled name if desired.  */
          /* Print vtable entry - we only get here if we ARE using
-            -fvtable_thunks.  (Otherwise, look under TYPE_CODE_STRUCT.) */
+            -fvtable_thunks.  (Otherwise, look under TYPE_CODE_STRUCT.)  */
          /* Extract the address, assume that it is unsigned.  */
          addr = extract_unsigned_integer (valaddr + embedded_offset,
                                           TYPE_LENGTH (type), byte_order);
@@ -183,14 +183,14 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
          && (options->format == 0 || options->format == 's')
          && addr != 0)
        {
-         /* no wide string yet */
+         /* No wide string yet.  */
          i = val_print_string (elttype, NULL, addr, -1, stream, options);
        }
-      /* also for pointers to pascal strings */
+      /* Also for pointers to pascal strings.  */
       /* Note: this is Free Pascal specific:
         as GDB does not recognize stabs pascal strings
         Pascal strings are mapped to records
-        with lowercase names PM  */
+        with lowercase names PM.  */
       if (is_pascal_string_type (elttype, &length_pos, &length_size,
                                 &string_pos, &char_type, NULL)
          && addr != 0)
@@ -209,7 +209,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
        }
       else if (pascal_object_is_vtbl_member (type))
        {
-         /* print vtbl's nicely */
+         /* Print vtbl's nicely.  */
          CORE_ADDR vt_address = unpack_pointer (type,
                                                 valaddr + embedded_offset);
          struct minimal_symbol *msymbol =
@@ -302,7 +302,7 @@ pascal_val_print (struct type *type, const gdb_byte *valaddr,
        {
          /* Print the unmangled name if desired.  */
          /* Print vtable entry - we only get here if NOT using
-            -fvtable_thunks.  (Otherwise, look under TYPE_CODE_PTR.) */
+            -fvtable_thunks.  (Otherwise, look under TYPE_CODE_PTR.)  */
          /* Extract the address, assume that it is unsigned.  */
          print_address_demangle
            (gdbarch,
@@ -594,13 +594,13 @@ pascal_value_print (struct value *val, struct ui_file *stream,
       || TYPE_CODE (type) == TYPE_CODE_REF)
     {
       /* Hack:  remove (char *) for char strings.  Their
-         type is indicated by the quoted string anyway. */
+         type is indicated by the quoted string anyway.  */
       if (TYPE_CODE (type) == TYPE_CODE_PTR 
          && TYPE_NAME (type) == NULL
          && TYPE_NAME (TYPE_TARGET_TYPE (type)) != NULL
          && strcmp (TYPE_NAME (TYPE_TARGET_TYPE (type)), "char") == 0)
        {
-         /* Print nothing */
+         /* Print nothing.  */
        }
       else
        {
@@ -662,12 +662,12 @@ pascal_object_is_vtbl_member (struct type *type)
       if (TYPE_CODE (type) == TYPE_CODE_ARRAY)
        {
          type = TYPE_TARGET_TYPE (type);
-         if (TYPE_CODE (type) == TYPE_CODE_STRUCT      /* if not using
-                                                          thunks */
-             || TYPE_CODE (type) == TYPE_CODE_PTR)     /* if using thunks */
+         if (TYPE_CODE (type) == TYPE_CODE_STRUCT      /* If not using
+                                                          thunks.  */
+             || TYPE_CODE (type) == TYPE_CODE_PTR)     /* If using thunks.  */
            {
              /* Virtual functions tables are full of pointers
-                to virtual functions. */
+                to virtual functions.  */
              return pascal_object_is_vtbl_ptr_type (type);
            }
        }
@@ -830,7 +830,7 @@ pascal_object_print_value_fields (struct type *type, const gdb_byte *valaddr,
              else if (field_is_static (&TYPE_FIELD (type, i)))
                {
                  /* struct value *v = value_static_field (type, i);
-                    v4.17 specific */
+                    v4.17 specific.  */
                  struct value *v;
 
                  v = value_from_longest (TYPE_FIELD_TYPE (type, i),
@@ -940,12 +940,12 @@ pascal_object_print_value (struct type *type, const gdb_byte *valaddr,
       fputs_filtered ("> = ", stream);
 
       /* The virtual base class pointer might have been clobbered by the
-         user program. Make sure that it still points to a valid memory
+         user program.  Make sure that it still points to a valid memory
          location.  */
 
       if (boffset != -1 && (boffset < 0 || boffset >= TYPE_LENGTH (type)))
        {
-         /* FIXME (alloc): not safe is baseclass is really really big. */
+         /* FIXME (alloc): not safe is baseclass is really really big.  */
          gdb_byte *buf = alloca (TYPE_LENGTH (baseclass));
 
          base_valaddr = buf;