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/sem_ch6.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/sem_ch6.adb')
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 6d825987c59..2afc4eef15f 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -8659,10 +8659,6 @@ package body Sem_Ch6 is and then FCE (Expression (E1), Expression (E2)); - when N_Conditional_Expression => - return - FCL (Expressions (E1), Expressions (E2)); - when N_Explicit_Dereference => return FCE (Prefix (E1), Prefix (E2)); @@ -8682,6 +8678,10 @@ package body Sem_Ch6 is FCL (Parameter_Associations (E1), Parameter_Associations (E2)); + when N_If_Expression => + return + FCL (Expressions (E1), Expressions (E2)); + when N_Indexed_Component => return FCE (Prefix (E1), Prefix (E2)) |