diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-10-02 08:48:27 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-10-02 08:48:27 +0000 |
| commit | 92f1631f6496265e5619b1a4a679c3f80b2bfc55 (patch) | |
| tree | 427db6631f4424c39ebbfe7c953d008cfee86519 /gcc/ada/par_sco.adb | |
| parent | 595e47dec2fc97118684a4e5b00af0257eb562e7 (diff) | |
| download | gcc-92f1631f6496265e5619b1a4a679c3f80b2bfc55.tar.gz | |
2012-10-02 Robert Dewar <dewar@adacore.com>
* par_sco.adb, sem_ch3.adb, layout.adb, exp_ch7.adb, exp_imgv.adb,
exp_util.adb, exp_util.ads, exp_attr.adb, sinfo.adb, sinfo.ads,
exp_ch9.adb, style.ads, scos.ads, debug.adb, einfo.ads, scng.adb,
checks.adb, checks.ads, sem.adb, par-ch4.adb, sem_util.adb, types.h,
sem_res.adb, expander.adb, scans.ads, par.adb, exp_ch2.adb,
gnat1drv.adb, stylesw.ads, sem_elab.adb, exp_ch4.adb, exp_ch4.ads,
exp_ch6.adb, sem_ch4.adb, sem_ch4.ads, sem_ch6.adb,
opt.ads, sem_eval.adb, sem_eval.ads, exp_intr.adb, sprint.adb,
sprint.ads, styleg.ads: Change name Conditional_Expression to
If_Expression.
* gcc-interface/trans.c (gnat_to_gnu): Replace
N_Conditional_Expression by N_If_Expression.
* gcc-interface/Make-lang.in: Update dependencies.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@191967 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/par_sco.adb')
| -rw-r--r-- | gcc/ada/par_sco.adb | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/gcc/ada/par_sco.adb b/gcc/ada/par_sco.adb index 29c03383218..be258bfb8b0 100644 --- a/gcc/ada/par_sco.adb +++ b/gcc/ada/par_sco.adb @@ -112,9 +112,9 @@ package body Par_SCO is -- If N is Empty, has no effect. Otherwise scans the tree for the node N, -- to output any decisions it contains. T is one of IEGPWX (for context of -- expression: if/exit when/entry guard/pragma/while/expression). If T is - -- other than X, the node N is the conditional expression involved, and a - -- decision is always present (at the very least a simple decision is - -- present at the top level). + -- other than X, the node N is the if expression involved, and a decision + -- is always present (at the very least a simple decision is present at the + -- top level). procedure Process_Decisions (L : List_Id; @@ -614,12 +614,15 @@ package body Par_SCO is -- Case expression + -- Really hard to believe this is correct given the special + -- handling for if expressions below ??? + when N_Case_Expression => return OK; -- ??? - -- Conditional expression, processed like an if statement + -- If expression, processed like an if statement - when N_Conditional_Expression => + when N_If_Expression => declare Cond : constant Node_Id := First (Expressions (N)); Thnx : constant Node_Id := Next (Cond); |