diff options
author | Robert Dewar <dewar@adacore.com> | 2012-10-02 08:48:27 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-10-02 10:48:27 +0200 |
commit | 9b16cb57dedec3d7fb690ad7770f2ca9ca85f586 (patch) | |
tree | 427db6631f4424c39ebbfe7c953d008cfee86519 /gcc/ada/sinfo.adb | |
parent | cb42ba5d667142c60c27fadd8efba35e0e18e797 (diff) | |
download | gcc-9b16cb57dedec3d7fb690ad7770f2ca9ca85f586.zip gcc-9b16cb57dedec3d7fb690ad7770f2ca9ca85f586.tar.gz gcc-9b16cb57dedec3d7fb690ad7770f2ca9ca85f586.tar.bz2 |
par_sco.adb, [...]: Change name Conditional_Expression to If_Expression.
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.
From-SVN: r191967
Diffstat (limited to 'gcc/ada/sinfo.adb')
-rw-r--r-- | gcc/ada/sinfo.adb | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index a7ecd17..7b349de 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -928,7 +928,7 @@ package body Sinfo is or else NT (N).Nkind in N_Op or else NT (N).Nkind = N_Attribute_Reference or else NT (N).Nkind = N_Case_Expression - or else NT (N).Nkind = N_Conditional_Expression + or else NT (N).Nkind = N_If_Expression or else NT (N).Nkind = N_Type_Conversion); return Flag17 (N); end Do_Overflow_Check; @@ -1008,7 +1008,7 @@ package body Sinfo is (N : Node_Id) return List_Id is begin pragma Assert (False - or else NT (N).Nkind = N_Conditional_Expression); + or else NT (N).Nkind = N_If_Expression); return List3 (N); end Else_Actions; @@ -1247,8 +1247,8 @@ package body Sinfo is pragma Assert (False or else NT (N).Nkind = N_Aggregate or else NT (N).Nkind = N_Attribute_Reference - or else NT (N).Nkind = N_Conditional_Expression or else NT (N).Nkind = N_Extension_Aggregate + or else NT (N).Nkind = N_If_Expression or else NT (N).Nkind = N_Indexed_Component); return List1 (N); end Expressions; @@ -1745,7 +1745,7 @@ package body Sinfo is (N : Node_Id) return Boolean is begin pragma Assert (False - or else NT (N).Nkind = N_Conditional_Expression); + or else NT (N).Nkind = N_If_Expression); return Flag13 (N); end Is_Elsif; @@ -2990,7 +2990,7 @@ package body Sinfo is (N : Node_Id) return List_Id is begin pragma Assert (False - or else NT (N).Nkind = N_Conditional_Expression); + or else NT (N).Nkind = N_If_Expression); return List2 (N); end Then_Actions; @@ -4001,7 +4001,7 @@ package body Sinfo is or else NT (N).Nkind in N_Op or else NT (N).Nkind = N_Attribute_Reference or else NT (N).Nkind = N_Case_Expression - or else NT (N).Nkind = N_Conditional_Expression + or else NT (N).Nkind = N_If_Expression or else NT (N).Nkind = N_Type_Conversion); Set_Flag17 (N, Val); end Set_Do_Overflow_Check; @@ -4081,7 +4081,7 @@ package body Sinfo is (N : Node_Id; Val : List_Id) is begin pragma Assert (False - or else NT (N).Nkind = N_Conditional_Expression); + or else NT (N).Nkind = N_If_Expression); Set_List3 (N, Val); -- semantic field, no parent set end Set_Else_Actions; @@ -4311,8 +4311,8 @@ package body Sinfo is pragma Assert (False or else NT (N).Nkind = N_Aggregate or else NT (N).Nkind = N_Attribute_Reference - or else NT (N).Nkind = N_Conditional_Expression or else NT (N).Nkind = N_Extension_Aggregate + or else NT (N).Nkind = N_If_Expression or else NT (N).Nkind = N_Indexed_Component); Set_List1_With_Parent (N, Val); end Set_Expressions; @@ -4809,7 +4809,7 @@ package body Sinfo is (N : Node_Id; Val : Boolean := True) is begin pragma Assert (False - or else NT (N).Nkind = N_Conditional_Expression); + or else NT (N).Nkind = N_If_Expression); Set_Flag13 (N, Val); end Set_Is_Elsif; @@ -6054,7 +6054,7 @@ package body Sinfo is (N : Node_Id; Val : List_Id) is begin pragma Assert (False - or else NT (N).Nkind = N_Conditional_Expression); + or else NT (N).Nkind = N_If_Expression); Set_List2 (N, Val); -- semantic field, no parent set end Set_Then_Actions; |