value_fetch_lazy_register: Copy tag from fetched register value.

diff --git a/gdb/value.c b/gdb/value.c
index b871aa2448dd0a5925df59ec55f90c094e7a14e6..1dad82823c411c3013d089fe7359b55d1033d3db 100644 (file)
--- a/gdb/value.c
+++ b/gdb/value.c
@@ -4039,6 +4039,9 @@ value_fetch_lazy_register (struct value *val)
   value_contents_copy (val, value_embedded_offset (val),
                       new_val, value_embedded_offset (new_val),
                       type_length_units (type));
+  set_value_tagged (val, value_tagged (new_val));
+  if (value_tagged (val))
+    set_value_tag (val, value_tag (new_val));
 
   if (frame_debug)
     {