* gcc-interface/trans.c (Handled_Sequence_Of_Statements_to_gnu): If
commit696ad319371af2e8bd3ebe21713ddb1c6a12db6b
authorebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 13 Aug 2013 19:43:47 +0000 (13 19:43 +0000)
committerebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 13 Aug 2013 19:43:47 +0000 (13 19:43 +0000)
tree8b11bc148fdce20108a72848c453f3ddce69a082
parent4484bd0e6060b4dc04fb6c6c8914207792524ce8
* 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@201702 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/ChangeLog
gcc/ada/gcc-interface/trans.c
gcc/ada/sigtramp-ppcvxw.c
gcc/ada/terminals.c