mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-12-27 04:55:01 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

trans.c (Handled_Sequence_Of_Statements_to_gnu): Set the SLOC of the node on the call to set_jmpbuf_address_soft emitted on...

Browse Source 
* gcc-interface/trans.c (Handled_Sequence_Of_Statements_to_gnu): Set
	the SLOC of the node on the call to set_jmpbuf_address_soft emitted
	on block entry with SJLJ.

From-SVN: r217152
This commit is contained in:
Eric Botcazou 2014-11-05 18:52:07 +00:00 committed by Eric Botcazou
parent 87411e95ef
commit e84314ddc5
2 changed files with 13 additions and 3 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 @@
2014-11-05 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/trans.c (Handled_Sequence_Of_Statements_to_gnu): Set
the SLOC of the node on the call to set_jmpbuf_address_soft emitted
on block entry with SJLJ.
2014-11-05 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/utils.c (create_subprog_decl): Move code dealing with

10
gcc/ada/gcc-interface/trans.c
View File

@ -4629,9 +4629,13 @@ Handled_Sequence_Of_Statements_to_gnu (Node_Id gnat_node)
start_stmt_group ();
if (setjmp_longjmp)
add_stmt (build_call_n_expr (set_jmpbuf_decl, 1,
build_unary_op (ADDR_EXPR, NULL_TREE,
gnu_jmpbuf_decl)));
{
gnu_expr = build_call_n_expr (set_jmpbuf_decl, 1,
build_unary_op (ADDR_EXPR, NULL_TREE,
gnu_jmpbuf_decl));
set_expr_location_from_node (gnu_expr, gnat_node);
add_stmt (gnu_expr);
}
if (Present (First_Real_Statement (gnat_node)))
process_decls (Statements (gnat_node), Empty,