diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2017-01-13 10:19:19 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-13 11:19:19 +0100 |
| commit | d8f43ee6d0921b73670e8e123cdd0850dfeb330e (patch) | |
| tree | f478a14a0fa94b8594e529f0aa178c5afedad3df /gcc/ada/prj-proc.adb | |
| parent | d4bf622fbf9018b4ffbb743fef37c7af0fa419c6 (diff) | |
| download | gcc-d8f43ee6d0921b73670e8e123cdd0850dfeb330e.zip gcc-d8f43ee6d0921b73670e8e123cdd0850dfeb330e.tar.gz gcc-d8f43ee6d0921b73670e8e123cdd0850dfeb330e.tar.bz2 | |
sem_aggr.adb, [...]: Update all eligible case statements to reflect the new style for case alternatives.
2017-01-13 Hristian Kirtchev <kirtchev@adacore.com>
* sem_aggr.adb, par_sco.adb, s-osprim-mingw.adb, exp_ch5.adb,
exp_prag.adb, sem_ch3.adb, xr_tabls.adb, lib-xref-spark_specific.adb,
layout.adb, sem_dist.adb, exp_spark.adb, exp_ch7.adb, gnatcmd.adb,
exp_util.adb, prj-proc.adb, sem_aux.adb, comperr.adb, g-memdum.adb,
exp_attr.adb, s-intman-solaris.adb, exp_ch9.adb, make.adb, live.adb,
g-sercom-linux.adb, sem_dim.adb, mlib-prj.adb, s-intman-posix.adb,
sem_ch9.adb, sem_ch10.adb, prep.adb, einfo.adb, scng.adb, checks.adb,
prj-strt.adb, sem_prag.adb, eval_fat.adb, sem_ch12.adb, sem.adb,
a-numaux-x86.adb, a-stwifi.adb, i-cobol.adb, prj.adb,
get_spark_xrefs.adb, s-tasini.adb, rtsfind.adb, freeze.adb,
g-arrspl.adb, par-ch4.adb, sem_util.adb, sem_res.adb, expander.adb,
sem_attr.adb, exp_dbug.adb, prj-pp.adb, a-stzfix.adb, s-interr.adb,
s-wchcnv.adb, switch-m.adb, gnat1drv.adb, sinput-l.adb, stylesw.adb,
contracts.adb, s-intman-android.adb, g-expect.adb, exp_ch4.adb,
g-comlin.adb, errout.adb, sinput.adb, s-exctra.adb, repinfo.adb,
g-spipat.adb, g-debpoo.adb, exp_ch6.adb, sem_ch4.adb, exp_ch13.adb,
a-wtedit.adb, validsw.adb, pprint.adb, widechar.adb, makeutl.adb,
ali.adb, set_targ.adb, sem_mech.adb, sem_ch6.adb, gnatdll.adb,
get_scos.adb, g-pehage.adb, s-tratas-default.adb, gnatbind.adb,
prj-dect.adb, g-socthi-mingw.adb, par-prag.adb, prj-nmsc.adb,
exp_disp.adb, par-ch12.adb, binde.adb, sem_ch8.adb,
s-tfsetr-default.adb, s-regexp.adb, gprep.adb, s-tpobop.adb,
a-teioed.adb, sem_warn.adb, sem_eval.adb, g-awk.adb, s-io.adb,
a-ztedit.adb, xoscons.adb, exp_intr.adb, sem_cat.adb, sprint.adb,
g-socket.adb, exp_dist.adb, sem_ch13.adb, s-tfsetr-vxworks.adb,
par-ch3.adb, treepr.adb, g-forstr.adb, g-catiio.adb, par-ch5.adb,
uname.adb, osint.adb, exp_ch3.adb, prj-env.adb, a-strfix.adb,
a-stzsup.adb, prj-tree.adb, s-fileio.adb: Update all eligible case
statements to reflect the new style for case alternatives. Various
code clean up and reformatting.
From-SVN: r244406
Diffstat (limited to 'gcc/ada/prj-proc.adb')
| -rw-r--r-- | gcc/ada/prj-proc.adb | 31 |
1 files changed, 14 insertions, 17 deletions
diff --git a/gcc/ada/prj-proc.adb b/gcc/ada/prj-proc.adb index 3a014f1..ff68ce7 100644 --- a/gcc/ada/prj-proc.adb +++ b/gcc/ada/prj-proc.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2016, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -547,7 +547,6 @@ package body Prj.Proc is Kind_Of (The_Current_Term, From_Project_Node_Tree); case Current_Term_Kind is - when N_Literal_String => case Kind is when Undefined => @@ -566,7 +565,6 @@ package body Prj.Proc is (The_Current_Term, From_Project_Node_Tree); when List => - String_Element_Table.Increment_Last (Shared.String_Elements); @@ -695,7 +693,9 @@ package body Prj.Proc is end if; end; - when N_Variable_Reference | N_Attribute_Reference => + when N_Attribute_Reference + | N_Variable_Reference + => declare The_Project : Project_Id := Project; The_Package : Package_Id := Pkg; @@ -981,16 +981,17 @@ package body Prj.Proc is when Read_Only_Value => null; - when Empty_Value => + when Empty_Value => The_Variable.Values := Nil_String; - when Dot_Value => + when Dot_Value => The_Variable.Values := Shared.Dot_String_List; - when Object_Dir_Value | - Target_Value | - Runtime_Value => + when Object_Dir_Value + | Runtime_Value + | Target_Value + => null; end case; end case; @@ -1008,7 +1009,6 @@ package body Prj.Proc is when Single => case The_Variable.Kind is - when Undefined => null; @@ -1028,7 +1028,6 @@ package body Prj.Proc is when List => case The_Variable.Kind is - when Undefined => null; @@ -1066,7 +1065,6 @@ package body Prj.Proc is Index => 0); when List => - declare The_List : String_List_Id := The_Variable.Values; @@ -1283,7 +1281,6 @@ package body Prj.Proc is end if; case Kind is - when Undefined => null; @@ -1365,7 +1362,6 @@ package body Prj.Proc is (False, "illegal node kind in an expression"); raise Program_Error; - end case; end if; @@ -2465,9 +2461,10 @@ package body Prj.Proc is when N_String_Type_Declaration => null; - when N_Attribute_Declaration | - N_Typed_Variable_Declaration | - N_Variable_Declaration => + when N_Attribute_Declaration + | N_Typed_Variable_Declaration + | N_Variable_Declaration + => Process_Attribute_Declaration (Current); when N_Case_Construction => |