From: charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Mon, 23 Jul 2012 07:26:41 +0000 (+0000)
Subject: 2012-07-23  Tristan Gingold  <gingold@adacore.com>
X-Git-Tag: upstream/4.9.2~11511
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=1831dae0c49561022644f05ebe13dcb696646b5b;p=platform%2Fupstream%2Flinaro-gcc.git

2012-07-23  Tristan Gingold  <gingold@adacore.com>

	* gcc-interface/trans.c: (Handled_Sequence_Of_Statements_to_gnu): Set
	location on TRY_CATCH_EXPR.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@189769 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index fb0272b..b188a62 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2012-07-23  Tristan Gingold  <gingold@adacore.com>
+
+	* gcc-interface/trans.c: (Handled_Sequence_Of_Statements_to_gnu): Set
+	location on TRY_CATCH_EXPR.
+
 2012-07-19  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gcc-interface/decl.c (gnat_to_gnu_entity) <object>: Try to ensure
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index 95b83fe..93d3af1 100644
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -4468,6 +4468,7 @@ Handled_Sequence_Of_Statements_to_gnu (Node_Id gnat_node)
       /* Now make the TRY_CATCH_EXPR for the block.  */
       gnu_result = build2 (TRY_CATCH_EXPR, void_type_node,
 			   gnu_inner_block, gnu_handlers);
+      set_expr_location_from_node (gnu_result, gnat_node);
     }
   else
     gnu_result = gnu_inner_block;