From a62e6287d91309dd07957739d5a000fc0b0073c9 Mon Sep 17 00:00:00 2001 From: Hristian Kirtchev Date: Fri, 6 Jan 2017 11:54:00 +0000 Subject: [PATCH] exp_ch9.adb: Minor reformatting. 2017-01-06 Hristian Kirtchev * exp_ch9.adb: Minor reformatting. From-SVN: r244143 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/exp_ch9.adb | 9 +++++---- 2 files changed, 9 insertions(+), 4 deletions(-) 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 + + * exp_ch9.adb: Minor reformatting. + 2017-01-06 Tristan Gingold * 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. -- 2.30.2