2009-05-27 Tom Tromey <tromey@redhat.com>

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

diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c
index 1db677ddca0e8ed179c595df3df8937f85f7290c..a6f3f48eff7cfd7a83ce756a9c2eb1f93a4d9079 100644 (file)
--- a/gdb/ada-valprint.c
+++ b/gdb/ada-valprint.c
@@ -690,7 +690,7 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0,
        }
       else
        retn = ada_val_print_1 (value_type (val), value_contents (val), 0,
-                               VALUE_ADDRESS (val), stream, recurse, options);
+                               value_address (val), stream, recurse, options);
       value_free_to_mark (mark);
       return retn;
     }
@@ -894,7 +894,7 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0,
                                 deref_val_int));
               val_print (value_type (deref_val),
                          value_contents (deref_val), 0,
-                         VALUE_ADDRESS (deref_val), stream, recurse + 1,
+                         value_address (deref_val), stream, recurse + 1,
                         options, current_language);
             }
           else
@@ -934,7 +934,7 @@ ada_value_print (struct value *val0, struct ui_file *stream,
                 const struct value_print_options *options)
 {
   const gdb_byte *valaddr = value_contents (val0);
-  CORE_ADDR address = VALUE_ADDRESS (val0) + value_offset (val0);
+  CORE_ADDR address = value_address (val0);
   struct type *type =
     ada_to_fixed_type (value_type (val0), valaddr, address, NULL, 1);
   struct value *val =