From 86038a882f2f4ec47db494f3e6f4ef171bf5892b Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Thu, 31 Jul 2008 16:41:10 +0200 Subject: [PATCH] exp_aggr.adb: Minor reformatting 2008-07-31 Robert Dewar * exp_aggr.adb: Minor reformatting From-SVN: r138419 --- gcc/ada/exp_aggr.adb | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index 84aed96d9b9..eaff8e89a9e 100644 --- a/gcc/ada/exp_aggr.adb +++ b/gcc/ada/exp_aggr.adb @@ -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 -- 2.30.2