trans.c (Handled_Sequence_Of_Statements_to_gnu, [...]): Attach the exception…

trans.c (Handled_Sequence_Of_Statements_to_gnu, [...]): Attach the exception propagation reraise fallback to the sequence end label...

        * gcc-interface/trans.c (Handled_Sequence_Of_Statements_to_gnu,
        setjmp_longjmp): Attach the exception propagation reraise fallback
        to the sequence end label location when we have it.

From-SVN: r149285

gcc/ada/ChangeLog

+2009-07-06  Olivier Hainque  <hainque@adacore.com>
+
+	* gcc-interface/trans.c (Handled_Sequence_Of_Statements_to_gnu,
+	setjmp_longjmp): Attach the exception propagation reraise fallback
+	to the sequence	end label location when we have it.
+
 2009-07-04  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
 	PR ada/40608

gcc/ada/gcc-interface/trans.c

@@ -3071,7 +3071,9 @@ Handled_Sequence_Of_Statements_to_gnu (Node_Id gnat_node)
 	 defer abortion.  */
       gnu_expr = build_call_1_expr (raise_nodefer_decl,
 				    TREE_VALUE (gnu_except_ptr_stack));
-      set_expr_location_from_node (gnu_expr, gnat_node);
+      set_expr_location_from_node
+	(gnu_expr,
+	 Present (End_Label (gnat_node)) ? End_Label (gnat_node) : gnat_node);
 
       if (gnu_else_ptr)
 	*gnu_else_ptr = gnu_expr;