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.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@244406 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 13 insertions, 5 deletions

diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb
index 635b2ff976f..5af01bcd778 100644
--- a/gcc/ada/exp_dist.adb
+++ b/gcc/ada/exp_dist.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2015, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-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- --
@@ -504,7 +504,7 @@ package body Exp_Dist is
             --  An expression whose value is a PolyORB reference to the target
             --  object.
 
-         when others           =>
+         when others =>
             Partition : Entity_Id;
             --  A variable containing the Partition_ID of the target partition
 
@@ -996,6 +996,7 @@ package body Exp_Dist is
             when others =>
                null;
          end case;
+
          Next (Decl);
       end loop;
    end Build_Package_Stubs;
@@ -2658,6 +2659,7 @@ package body Exp_Dist is
       case Get_PCS_Name is
          when Name_PolyORB_DSA =>
             return Make_String_Literal (Loc, Get_Subprogram_Id (E));
+
          when others =>
             return Make_Integer_Literal (Loc, Get_Subprogram_Id (E));
       end case;
@@ -2761,8 +2763,9 @@ package body Exp_Dist is
       end if;
 
       case Nkind (Spec) is
-
-         when N_Function_Specification | N_Access_Function_Definition =>
+         when N_Access_Function_Definition
+            | N_Function_Specification
+         =>
             return
               Make_Function_Specification (Loc,
                 Defining_Unit_Name       =>
@@ -2772,7 +2775,9 @@ package body Exp_Dist is
                 Result_Definition        =>
                   New_Occurrence_Of (Entity (Result_Definition (Spec)), Loc));
 
-         when N_Procedure_Specification | N_Access_Procedure_Definition =>
+         when N_Access_Procedure_Definition
+            | N_Procedure_Specification
+         =>
             return
               Make_Procedure_Specification (Loc,
                 Defining_Unit_Name       =>
@@ -11347,6 +11352,7 @@ package body Exp_Dist is
          when Name_PolyORB_DSA =>
             PolyORB_Support.Add_Obj_RPC_Receiver_Completion
               (Loc, Decls, RPC_Receiver, Stub_Elements);
+
          when others =>
             GARLIC_Support.Add_Obj_RPC_Receiver_Completion
               (Loc, Decls, RPC_Receiver, Stub_Elements);
@@ -11398,6 +11404,7 @@ package body Exp_Dist is
       case Get_PCS_Name is
          when Name_PolyORB_DSA =>
             PolyORB_Support.Add_RAST_Features (Vis_Decl, RAS_Type);
+
          when others =>
             GARLIC_Support.Add_RAST_Features (Vis_Decl, RAS_Type);
       end case;
@@ -11417,6 +11424,7 @@ package body Exp_Dist is
          when Name_PolyORB_DSA =>
             PolyORB_Support.Add_Receiving_Stubs_To_Declarations
               (Pkg_Spec, Decls, Stmts);
+
          when others =>
             GARLIC_Support.Add_Receiving_Stubs_To_Declarations
               (Pkg_Spec, Decls, Stmts);