From: Tom Tromey <tromey@redhat.com>
Date: Wed, 13 Jul 2011 16:51:22 +0000 (+0000)
Subject: 	* dwarf2expr.c (execute_stack_op) <DW_OP_GNU_regval_type>: Use
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d1b66e6d73b81228c8c9f5016aeca59ecbe59a8c;p=binutils-gdb.git

	* dwarf2expr.c (execute_stack_op) <DW_OP_GNU_regval_type>: Use
	value_from_contents for final conversion.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 0089c25f5a1..4062bf9cefb 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-13  Tom Tromey  <tromey@redhat.com>
+
+	* dwarf2expr.c (execute_stack_op) <DW_OP_GNU_regval_type>: Use
+	value_from_contents for final conversion.
+
 2011-07-13  Jan Kratochvil  <jan.kratochvil@redhat.com>
 
 	Code cleanup.
diff --git a/gdb/dwarf2expr.c b/gdb/dwarf2expr.c
index b23ad9ab1a9..21a8363396f 100644
--- a/gdb/dwarf2expr.c
+++ b/gdb/dwarf2expr.c
@@ -1221,7 +1221,9 @@ execute_stack_op (struct dwarf_expr_context *ctx,
 
 	    type = dwarf_get_base_type (ctx, type_die, 0);
 	    result = (ctx->read_reg) (ctx->baton, reg);
-	    result_val = value_from_ulongest (type, result);
+	    result_val = value_from_ulongest (address_type, result);
+	    result_val = value_from_contents (type,
+					      value_contents_all (result_val));
 	  }
 	  break;