hp merge changes -- too numerous to mention here; see ChangeLog and

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

diff --git a/gdb/ch-valprint.c b/gdb/ch-valprint.c
index 9c67d09909c62c2b90b861eff46b86eeab13e463..663ba6428c1af867083d96ee30bfb71b5caa847e 100644 (file)
--- a/gdb/ch-valprint.c
+++ b/gdb/ch-valprint.c
@@ -161,7 +161,7 @@ chill_val_print_array_elements (type, valaddr, address, stream,
          chill_print_type_scalar (index_type, low_bound + i + reps - 1,
                                   stream);
          fputs_filtered ("): ", stream);
-         val_print (elttype, valaddr + i * eltlen, 0, stream, format,
+         val_print (elttype, valaddr + i * eltlen, 0, 0, stream, format,
                     deref_ref, recurse + 1, pretty);
 
          i = rep1 - 1;
@@ -170,7 +170,7 @@ chill_val_print_array_elements (type, valaddr, address, stream,
       else
        {
          fputs_filtered ("): ", stream);
-         val_print (elttype, valaddr + i * eltlen, 0, stream, format,
+         val_print (elttype, valaddr + i * eltlen, 0, 0, stream, format,
                     deref_ref, recurse + 1, pretty);
          annotate_elt ();
          things_printed++;
@@ -197,10 +197,11 @@ chill_val_print_array_elements (type, valaddr, address, stream,
    The PRETTY parameter controls prettyprinting.  */
 
 int
-chill_val_print (type, valaddr, address, stream, format, deref_ref, recurse,
-                pretty)
+chill_val_print (type, valaddr, embedded_offset, address,
+                 stream, format, deref_ref, recurse, pretty)
      struct type *type;
      char *valaddr;
+     int embedded_offset;
      CORE_ADDR address;
      GDB_FILE *stream;
      int format;
@@ -466,6 +467,7 @@ chill_val_print (type, valaddr, address, stream, format, deref_ref, recurse,
                   NULL);
              val_print (VALUE_TYPE (deref_val),
                         VALUE_CONTENTS (deref_val),
+                         0,
                         VALUE_ADDRESS (deref_val), stream, format,
                         deref_ref, recurse + 1, pretty);
            }
@@ -475,13 +477,13 @@ chill_val_print (type, valaddr, address, stream, format, deref_ref, recurse,
       break;
 
     case TYPE_CODE_ENUM:
-      c_val_print (type, valaddr, address, stream, format,
+      c_val_print (type, valaddr, 0, address, stream, format,
                   deref_ref, recurse, pretty);
       break;
 
     case TYPE_CODE_RANGE:
       if (TYPE_TARGET_TYPE (type))
-       chill_val_print (TYPE_TARGET_TYPE (type), valaddr, address, stream,
+       chill_val_print (TYPE_TARGET_TYPE (type), valaddr, 0, address, stream,
                         format, deref_ref, recurse, pretty);
       break;
 
@@ -493,7 +495,7 @@ chill_val_print (type, valaddr, address, stream, format, deref_ref, recurse,
     default:
       /* Let's defer printing to the C printer, rather than
         print an error message.  FIXME! */
-      c_val_print (type, valaddr, address, stream, format,
+      c_val_print (type, valaddr, 0, address, stream, format,
                   deref_ref, recurse, pretty);
     }
   gdb_flush (stream);
@@ -562,13 +564,13 @@ chill_print_value_fields (type, valaddr, stream, format, recurse, pretty,
              v = value_from_longest (TYPE_FIELD_TYPE (type, i),
                                      unpack_field_as_long (type, valaddr, i));
 
-             chill_val_print (TYPE_FIELD_TYPE (type, i), VALUE_CONTENTS (v), 0,
+             chill_val_print (TYPE_FIELD_TYPE (type, i), VALUE_CONTENTS (v), 0, 0,
                               stream, format, 0, recurse + 1, pretty);
            }
          else
            {
              chill_val_print (TYPE_FIELD_TYPE (type, i), 
-                              valaddr + TYPE_FIELD_BITPOS (type, i) / 8,
+                              valaddr + TYPE_FIELD_BITPOS (type, i) / 8, 0,
                               0, stream, format, 0, recurse + 1, pretty);
            }
        }
@@ -615,13 +617,13 @@ chill_value_print (val, stream, format, pretty)
              fprintf_filtered (stream, ")");
            }
          fprintf_filtered (stream, "(");
-         i = val_print (type, valaddr, VALUE_ADDRESS (val),
+         i = val_print (type, valaddr, 0, VALUE_ADDRESS (val),
                         stream, format, 1, 0, pretty);
          fprintf_filtered (stream, ")");
          return i;
        }
     }
-  return (val_print (type, VALUE_CONTENTS (val),
+  return (val_print (type, VALUE_CONTENTS (val), 0,
                     VALUE_ADDRESS (val), stream, format, 1, 0, pretty));
 }