diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2014-05-18 20:52:45 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2014-05-18 20:52:45 +0000 |
| commit | 08b8b90cff5b5626b2a240a18e63e917e2e19a20 (patch) | |
| tree | 095c4701d2c9b2fcd5a15e5c58e8109ac798ce8d /gcc/ada/gcc-interface/trans.c | |
| parent | d6d229c6b485d19c9eed6c572c26ed1563194487 (diff) | |
| download | gcc-08b8b90cff5b5626b2a240a18e63e917e2e19a20.zip gcc-08b8b90cff5b5626b2a240a18e63e917e2e19a20.tar.gz gcc-08b8b90cff5b5626b2a240a18e63e917e2e19a20.tar.bz2 | |
fe.h (Set_Present_Expr): Move around.
* fe.h (Set_Present_Expr): Move around.
(End_Location): New macro.
* gcc-interface/trans.c (Case_Statement_to_gnu): Use End_Location.
From-SVN: r210587
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 35c6ff3..581c57f 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -2384,8 +2384,7 @@ Case_Statement_to_gnu (Node_Id gnat_node) /* We build a SWITCH_EXPR that contains the code with interspersed CASE_LABEL_EXPRs for each label. */ - if (!Sloc_to_locus (Sloc (gnat_node) + UI_To_Int (End_Span (gnat_node)), - &end_locus)) + if (!Sloc_to_locus (End_Location (gnat_node), &end_locus)) end_locus = input_location; gnu_label = create_artificial_label (end_locus); start_stmt_group (); |