exp_ch9.adb: Minor reformatting.

2017-01-06  Hristian Kirtchev  <kirtchev@adacore.com>

	* exp_ch9.adb: Minor reformatting.

From-SVN: r244143

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index cbb28a2a6bbec58bf39d5cb0bf348e812f367e12..bd64c76aefd92030a6d6f12d1cc1cf05f852b48f 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2017-01-06  Hristian Kirtchev  <kirtchev@adacore.com>
+
+       * exp_ch9.adb: Minor reformatting.
+
 2017-01-06  Tristan Gingold  <gingold@adacore.com>
 
        * exp_ch9.ads, exp_ch9.adb (Build_Entry_Names): Remove (unused).

diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb
index 2e0f8de61ff80a1e2a93408d138e88dab15f83be..7fba7bfb12da048b8656e064d0a318c93ff4a72a 100644 (file)
--- a/gcc/ada/exp_ch9.adb
+++ b/gcc/ada/exp_ch9.adb
@@ -9424,8 +9424,9 @@ package body Exp_Ch9 is
 
                --  Create the declaration of the array object. Generate:
 
-               --    Maxes_Id : aliased Protected_Entry_Queue_Max_Array
-               --                         (1 .. Count) := (..., ...);
+               --    Maxes_Id : aliased constant
+               --                 Protected_Entry_Queue_Max_Array
+               --                   (1 .. Count) := (..., ...);
 
                Maxes_Id :=
                  Make_Defining_Identifier (Loc,
@@ -9497,9 +9498,9 @@ package body Exp_Ch9 is
            Make_Object_Declaration (Loc,
              Defining_Identifier => Body_Id,
              Aliased_Present     => True,
+             Constant_Present    => True,
              Object_Definition   => Obj_Def,
-             Expression          => Expr,
-             Constant_Present    => True);
+             Expression          => Expr);
 
          --  A pointer to this array will be placed in the corresponding record
          --  by its initialization procedure so this needs to be analyzed here.