Skip to content

R
riscv-gcc-1
Commit 86038a88 by Robert Dewar Committed by Arnaud Charlet
Options

exp_aggr.adb: Minor reformatting 

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

	* exp_aggr.adb: Minor reformatting

From-SVN: r138419
parent d59214bd
Showing with 8 additions and 8 deletions
gcc/ada/exp_aggr.adb
...@@ -403,20 +403,20 @@ package body Exp_Aggr is ...@@ -403,20 +403,20 @@ package body Exp_Aggr is
return True; return True;
end if; end if;
-- One-component aggregates are suspicious, and if the context -- One-component aggregates are suspicious, and if the context type
-- type is an object declaration with non-static bounds it will -- is an object declaration with non-static bounds it will trip gcc;
-- trip gcc; such an aggregate must be expanded into a single -- such an aggregate must be expanded into a single assignment.
-- assignment.
if Hiv = Lov if Hiv = Lov
and then Nkind (Parent (N)) = N_Object_Declaration and then Nkind (Parent (N)) = N_Object_Declaration
then then
declare declare
Index_Type : constant Entity_Id := Index_Type : constant Entity_Id :=
Etype Etype
(First_Index (First_Index
(Etype (Defining_Identifier (Parent (N))))); (Etype (Defining_Identifier (Parent (N)))));
Indx : Node_Id; Indx : Node_Id;
begin begin
if not Compile_Time_Known_Value (Type_Low_Bound (Index_Type)) if not Compile_Time_Known_Value (Type_Low_Bound (Index_Type))
or else not Compile_Time_Known_Value or else not Compile_Time_Known_Value
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment