procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
This commit is contained in:
Olivier Hainque 2009-07-06 14:33:11 +00:00 • committed by Olivier Hainque
parent 7a61cf6f09
commit 4fd263a6df
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/ada/ChangeLog
View file

@ -1,3 +1,9 @@
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

4
gcc/ada/gcc-interface/trans.c
View file

@ -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;