2012-10-01 Arnaud Charlet <charlet@adacore.com>

	* a-catizo.adb, a-stwiun.adb, a-cdlili.adb, a-cihama.adb, a-direct.adb,
	a-coinve.adb, a-calend.adb, a-ciorse.adb, a-coorma.adb, a-cfdlli.adb,
	a-stzunb-shared.adb, a-cfhase.adb, bindgen.adb, ceinfo.adb, a-tags.adb,
	einfo.adb, checks.adb, eval_fat.adb, a-cborma.adb, a-stwifi.adb,
	a-tifiio.adb, a-textio.adb, a-cidlli.adb, a-strunb-shared.adb,
	a-cimutr.adb, a-calcon.adb, a-exexpr-gcc.adb, a-ciormu.adb,
	a-stzunb.adb, a-stzsea.adb, a-ngelfu.adb, a-stzfix.adb,
	a-cihase.adb, a-cohama.adb, a-exetim-posix.adb, a-dirval-vms.adb,
	a-caldel-vms.adb, a-coorse.adb, errout.adb,
	a-except.adb, butil.adb, a-dirval-mingw.adb, a-cforma.adb,
	a-except-2005.adb, a-wtedit.adb, cstand.adb, a-stwiun-shared.adb,
	a-cbhama.adb, a-direio.adb, clean.adb, a-cborse.adb, back_end.adb,
	binde.adb, a-exexda.adb, a-comutr.adb, a-ciorma.adb, a-cobove.adb,
	a-coormu.adb, a-teioed.adb, a-convec.adb, a-wtenau.adb, exp_aggr.adb,
	a-ztedit.adb, a-cohase.adb, a-exetim-mingw.adb, bcheck.adb,
	a-dynpri.adb, a-cfhama.adb, a-calfor.adb, a-cbdlli.adb,
	a-crdlli.adb, a-cbmutr.adb, a-sequio.adb, a-ngcoar.adb, a-cforse.adb,
	a-strunb.adb, a-calend-vms.adb, a-clrefi.adb, a-cofove.adb,
	a-ztenau.adb, a-strfix.adb, a-cbhase.adb, a-stzsup.adb: Minor
	reformatting.



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

1 files changed, 22 insertions, 29 deletions

diff --git a/gcc/ada/a-coinve.adb b/gcc/ada/a-coinve.adb
index e615ad17efd..5b59c019da5 100644
--- a/gcc/ada/a-coinve.adb
+++ b/gcc/ada/a-coinve.adb
@@ -90,8 +90,7 @@ package body Ada.Containers.Indefinite_Vectors is
             RE : Elements_Array renames
                    Right.Elements.EA (Index_Type'First .. Right.Last);
 
-            Elements : Elements_Access :=
-                         new Elements_Type (Right.Last);
+            Elements : Elements_Access := new Elements_Type (Right.Last);
 
          begin
             --  Elements of an indefinite vector are allocated, so we cannot
@@ -126,8 +125,7 @@ package body Ada.Containers.Indefinite_Vectors is
             LE : Elements_Array renames
                    Left.Elements.EA (Index_Type'First .. Left.Last);
 
-            Elements : Elements_Access :=
-                         new Elements_Type (Left.Last);
+            Elements : Elements_Access := new Elements_Type (Left.Last);
 
          begin
             --  Elements of an indefinite vector are allocated, so we cannot
@@ -348,8 +346,7 @@ package body Ada.Containers.Indefinite_Vectors is
          LE : Elements_Array renames
                  Left.Elements.EA (Index_Type'First .. Left.Last);
 
-         Elements : Elements_Access :=
-                       new Elements_Type (Last);
+         Elements : Elements_Access := new Elements_Type (Last);
 
       begin
          for I in LE'Range loop
@@ -433,8 +430,7 @@ package body Ada.Containers.Indefinite_Vectors is
          RE : Elements_Array renames
                 Right.Elements.EA (Index_Type'First .. Right.Last);
 
-         Elements : Elements_Access :=
-                      new Elements_Type (Last);
+         Elements : Elements_Access := new Elements_Type (Last);
 
          I : Index_Type'Base := Index_Type'First;
 
@@ -717,9 +713,8 @@ package body Ada.Containers.Indefinite_Vectors is
          L : Natural renames C.Lock;
       begin
          return R : constant Constant_Reference_Type :=
-                      (Element => E.all'Access,
-                       Control =>
-                         (Controlled with Container'Unrestricted_Access))
+           (Element => E.all'Access,
+            Control => (Controlled with Container'Unrestricted_Access))
          do
             B := B + 1;
             L := L + 1;
@@ -750,9 +745,8 @@ package body Ada.Containers.Indefinite_Vectors is
          L : Natural renames C.Lock;
       begin
          return R : constant Constant_Reference_Type :=
-                      (Element => E.all'Access,
-                       Control =>
-                         (Controlled with Container'Unrestricted_Access))
+           (Element => E.all'Access,
+            Control => (Controlled with Container'Unrestricted_Access))
          do
             B := B + 1;
             L := L + 1;
@@ -1138,7 +1132,7 @@ package body Ada.Containers.Indefinite_Vectors is
 
       declare
          EA : constant Element_Access :=
-                Position.Container.Elements.EA (Position.Index);
+           Position.Container.Elements.EA (Position.Index);
 
       begin
          if EA = null then
@@ -1287,7 +1281,7 @@ package body Ada.Containers.Indefinite_Vectors is
 
       declare
          EA : constant Element_Access :=
-                Container.Elements.EA (Index_Type'First);
+           Container.Elements.EA (Index_Type'First);
 
       begin
          if EA = null then
@@ -2708,9 +2702,9 @@ package body Ada.Containers.Indefinite_Vectors is
       --  for a reverse iterator, Container.Last is the beginning.
 
       return It : constant Iterator :=
-                    (Limited_Controlled with
-                       Container => V,
-                       Index     => No_Index)
+        (Limited_Controlled with
+           Container => V,
+           Index     => No_Index)
       do
          B := B + 1;
       end return;
@@ -2761,9 +2755,9 @@ package body Ada.Containers.Indefinite_Vectors is
       --  is a forward or reverse iteration.
 
       return It : constant Iterator :=
-                    (Limited_Controlled with
-                       Container => V,
-                       Index     => Start.Index)
+        (Limited_Controlled with
+           Container => V,
+           Index     => Start.Index)
       do
          B := B + 1;
       end return;
@@ -2816,7 +2810,7 @@ package body Ada.Containers.Indefinite_Vectors is
 
       declare
          EA : constant Element_Access :=
-                Container.Elements.EA (Container.Last);
+           Container.Elements.EA (Container.Last);
 
       begin
          if EA = null then
@@ -3155,8 +3149,8 @@ package body Ada.Containers.Indefinite_Vectors is
          L : Natural renames C.Lock;
       begin
          return R : constant Reference_Type :=
-                      (Element => E.all'Access,
-                       Control => (Controlled with Position.Container))
+           (Element => E.all'Access,
+            Control => (Controlled with Position.Container))
          do
             B := B + 1;
             L := L + 1;
@@ -3187,9 +3181,8 @@ package body Ada.Containers.Indefinite_Vectors is
          L : Natural renames C.Lock;
       begin
          return R : constant Reference_Type :=
-                      (Element => E.all'Access,
-                       Control =>
-                         (Controlled with Container'Unrestricted_Access))
+           (Element => E.all'Access,
+            Control => (Controlled with Container'Unrestricted_Access))
          do
             B := B + 1;
             L := L + 1;
@@ -3652,7 +3645,7 @@ package body Ada.Containers.Indefinite_Vectors is
       Index     : Index_Type := Index_Type'Last) return Extended_Index
    is
       Last : constant Index_Type'Base :=
-               (if Index > Container.Last then Container.Last else Index);
+        (if Index > Container.Last then Container.Last else Index);
    begin
       for Indx in reverse Index_Type'First .. Last loop
          if Container.Elements.EA (Indx) /= null