diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2017-01-06 11:54:00 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-06 12:54:00 +0100 |
| commit | a62e6287d91309dd07957739d5a000fc0b0073c9 (patch) | |
| tree | fdcc8499a23bf5554f6633fcee408a1123d8d236 | |
| parent | dbf2a2d34ad8a708e01869e30da252a9aff8ef6b (diff) | |
| download | gcc-a62e6287d91309dd07957739d5a000fc0b0073c9.zip gcc-a62e6287d91309dd07957739d5a000fc0b0073c9.tar.gz gcc-a62e6287d91309dd07957739d5a000fc0b0073c9.tar.bz2 | |
exp_ch9.adb: Minor reformatting.
2017-01-06 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch9.adb: Minor reformatting.
From-SVN: r244143
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_ch9.adb | 9 |
2 files changed, 9 insertions, 4 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index cbb28a2..bd64c76 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 2e0f8de..7fba7bf 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. |