From: Eric Botcazou <ebotcazou@adacore.com>
Date: Tue, 22 Jan 2013 10:05:45 +0000 (+0000)
Subject: trans.c (gnat_to_gnu): Do not translate the Etype of the node before translating... 
X-Git-Tag: upstream/12.2.0~71626
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=e18600419eb270e0073c45a8da5aa9c7ab10ee77;p=platform%2Fupstream%2Fgcc.git

trans.c (gnat_to_gnu): Do not translate the Etype of the node before translating the Actions.

	* gcc-interface/trans.c (gnat_to_gnu) <N_Expression_With_Actions>: Do
	not translate the Etype of the node before translating the Actions.

From-SVN: r195368
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 263113b9..d6a579e 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,10 @@
 2013-01-22  Eric Botcazou  <ebotcazou@adacore.com>
 
+	* gcc-interface/trans.c (gnat_to_gnu) <N_Expression_With_Actions>: Do
+	not translate the Etype of the node before translating the Actions.
+
+2013-01-22  Eric Botcazou  <ebotcazou@adacore.com>
+
 	* gcc-interface/trans.c (Pragma_to_gnu) <Name_Space>: Use optimize_size
 	instead of optimize and adjust warning message.
 	(Compilation_Unit_to_gnu): Process pragmas preceding the unit.
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index 6bb2e5b..1d25b0f 100644
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -6810,7 +6810,6 @@ gnat_to_gnu (Node_Id gnat_node)
     /****************/
 
     case N_Expression_With_Actions:
-      gnu_result_type = get_unpadded_type (Etype (gnat_node));
       /* This construct doesn't define a scope so we don't wrap the statement
 	 list in a BIND_EXPR; however, we wrap it in a SAVE_EXPR to protect it
 	 from unsharing.  */
@@ -6820,6 +6819,7 @@ gnat_to_gnu (Node_Id gnat_node)
       gnu_expr = gnat_to_gnu (Expression (gnat_node));
       gnu_result
 	= build_compound_expr (TREE_TYPE (gnu_expr), gnu_result, gnu_expr);
+      gnu_result_type = get_unpadded_type (Etype (gnat_node));
       break;
 
     case N_Freeze_Entity: