1 files changed, 3 insertions, 0 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index d0aea26..c56e8bb 100644
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -2549,6 +2549,9 @@ ada_value_primitive_packed_val (struct value *obj, const gdb_byte *valaddr,
       targ += delta;
     }
 
+  if (is_dynamic_type (value_type (v)))
+    v = value_from_contents_and_address (value_type (v), value_contents (v),
+					 0);
   return v;
 }