OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

exp_ch9.adb: Minor reformatting. 

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

	* exp_ch9.adb: Minor reformatting.

From-SVN: r244143
This commit is contained in:
Hristian Kirtchev 2017-01-06 11:54:00 +00:00 committed by Arnaud Charlet
parent dbf2a2d34a
commit a62e6287d9
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -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).

9
gcc/ada/exp_ch9.adb
View File

@ -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.