From 4fd263a6dfa7d4614b7727c83a8cfd9b740a64f1 Mon Sep 17 00:00:00 2001 From: Olivier Hainque Date: Mon, 6 Jul 2009 14:33:11 +0000 Subject: 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/gcc-interface/trans.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'gcc/ada/gcc-interface/trans.c') diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 24163b8..1008f1a 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/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; -- cgit v1.1