trans.c (Handled_Sequence_Of_Statements_to_gnu): If there is no End_Label...
authorThomas Quinot <quinot@adacore.com>
Tue, 13 Aug 2013 19:43:47 +0000 (19:43 +0000)
committerEric Botcazou <ebotcazou@gcc.gnu.org>
Tue, 13 Aug 2013 19:43:47 +0000 (19:43 +0000)
commit362db0b23d017f8c40517507ee453802e5662814
tree8b11bc148fdce20108a72848c453f3ddce69a082
parent8ec9249b2a85aba9f44435fbf37ddbcb4d186047
trans.c (Handled_Sequence_Of_Statements_to_gnu): If there is no End_Label...

* gcc-interface/trans.c (Handled_Sequence_Of_Statements_to_gnu): If
there is no End_Label, attach cleanup actions to the sloc of the HSS
node instead.
(Exception_Handler_to_gnu_zcx): Associate cleanup actions with the sloc
of the handler itself.
(add_cleanup): Clear column information in sloc of cleanup actions.
(Sloc_to_locus1): New static function.
(Sloc_to_locus): Call it.
(set_expr_location_from_node1): New static function.
(set_expr_location_from_node): Call it.

From-SVN: r201702
gcc/ada/ChangeLog
gcc/ada/gcc-interface/trans.c
gcc/ada/sigtramp-ppcvxw.c
gcc/ada/terminals.c