* m2-valprint.c (print_unbounded_array): Pass

	value_contents_for_printing rather than value_contents, to
	m2_print_array_contents.  Also pass in the value.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 6565d190dd34914037c0c4718a68466c670e8bfc..3ad1b843a4f086ba8e9a08972510f417a447c9a4 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2011-01-25  Pedro Alves  <pedro@codesourcery.com>
+
+       * m2-valprint.c (print_unbounded_array): Pass
+       value_contents_for_printing rather than value_contents, to
+       m2_print_array_contents.  Also pass in the value.
+
 2011-01-25  Jan Kratochvil  <jan.kratochvil@redhat.com>
 
        * dwarf2read.c (dwarf2_read_index, write_psymtabs_to_index)

diff --git a/gdb/m2-valprint.c b/gdb/m2-valprint.c
index 0cf96026328b0cbcd4f3cd9ed5d94c025a35a13b..192c71b8928afac5d17d8fcdc6a4c5a8bde3da0b 100644 (file)
--- a/gdb/m2-valprint.c
+++ b/gdb/m2-valprint.c
@@ -201,9 +201,10 @@ m2_print_unbounded_array (struct type *type, const gdb_byte *valaddr,
   len = unpack_field_as_long (type, valaddr + embedded_offset, 1);
 
   fprintf_filtered (stream, "{");  
-  m2_print_array_contents (value_type (val), value_contents(val),
+  m2_print_array_contents (value_type (val),
+                          value_contents_for_printing (val),
                           value_embedded_offset (val), addr, stream,
-                          recurse, NULL, options, len);
+                          recurse, val, options, len);
   fprintf_filtered (stream, ", HIGH = %d}", (int) len);
 }