From: Hristian Kirtchev <kirtchev@adacore.com>
Date: Fri, 6 Jan 2017 11:54:00 +0000 (+0000)
Subject: exp_ch9.adb: Minor reformatting.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a62e6287d91309dd07957739d5a000fc0b0073c9;p=gcc.git

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 cbb28a2a6bb..bd64c76aefd 100644
--- 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 2e0f8de61ff..7fba7bfb12d 100644
--- 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.