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

exp_aggr.adb: Minor reformatting 

2008-07-31  Robert Dewar  <dewar@adacore.com>

	* exp_aggr.adb: Minor reformatting

From-SVN: r138419
This commit is contained in:
Robert Dewar 2008-07-31 16:41:10 +02:00 committed by Arnaud Charlet
parent d59214bd1c
commit 86038a882f
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gcc/ada/exp_aggr.adb
View File

@ -403,20 +403,20 @@ package body Exp_Aggr is
return True;
end if;
-- One-component aggregates are suspicious, and if the context
-- type is an object declaration with non-static bounds it will
-- trip gcc; such an aggregate must be expanded into a single
-- assignment.
-- One-component aggregates are suspicious, and if the context type
-- is an object declaration with non-static bounds it will trip gcc;
-- such an aggregate must be expanded into a single assignment.
if Hiv = Lov
and then Nkind (Parent (N)) = N_Object_Declaration
then
declare
Index_Type : constant Entity_Id :=
Etype
(First_Index
(Etype (Defining_Identifier (Parent (N)))));
Indx : Node_Id;
Etype
(First_Index
(Etype (Defining_Identifier (Parent (N)))));
Indx : Node_Id;
begin
if not Compile_Time_Known_Value (Type_Low_Bound (Index_Type))
or else not Compile_Time_Known_Value