alpha: Warn DT_TEXTREL with -M
[deliverable/binutils-gdb.git] / gdb / d-valprint.c
index 54652364a8f3960549ace19bedb5959b982d9f75..109049cd1dea7ca5f00bd0e5b7e147e43ae51ca4 100644 (file)
@@ -1,6 +1,6 @@
 /* Support for printing D values for GDB, the GNU debugger.
 
-   Copyright (C) 2008-2019 Free Software Foundation, Inc.
+   Copyright (C) 2008-2020 Free Software Foundation, Inc.
 
    This file is part of GDB.
 
@@ -63,34 +63,32 @@ dynamic_array_type (struct type *type,
       ival = value_at (true_type, addr);
       true_type = value_type (ival);
 
-      d_val_print (true_type,
-                  value_embedded_offset (ival), addr,
-                  stream, recurse + 1, ival, options);
+      d_value_print_inner (ival, stream, recurse + 1, options);
       return 0;
     }
   return 1;
 }
 
-/* Implements the la_val_print routine for language D.  */
+/* See d-lang.h.  */
+
 void
-d_val_print (struct type *type, int embedded_offset,
-             CORE_ADDR address, struct ui_file *stream, int recurse,
-            struct value *val,
-             const struct value_print_options *options)
+d_value_print_inner (struct value *val, struct ui_file *stream, int recurse,
+                    const struct value_print_options *options)
 {
   int ret;
 
-  type = check_typedef (type);
+  struct type *type = check_typedef (value_type (val));
   switch (TYPE_CODE (type))
     {
       case TYPE_CODE_STRUCT:
-       ret = dynamic_array_type (type, embedded_offset, address,
+       ret = dynamic_array_type (type, value_embedded_offset (val),
+                                 value_address (val),
                                  stream, recurse, val, options);
        if (ret == 0)
          break;
        /* Fall through.  */
       default:
-       c_val_print (type, embedded_offset, address, stream,
-                    recurse, val, options);
+       c_value_print_inner (val, stream, recurse, options);
+       break;
     }
 }
This page took 0.025054 seconds and 4 git commands to generate.