diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-07-31 16:41:10 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-07-31 16:41:10 +0200 |
| commit | 86038a882f2f4ec47db494f3e6f4ef171bf5892b (patch) | |
| tree | 1c3fcd27fa89cd191c6bf9779b0820cb548bdc2f /gcc | |
| parent | d59214bd1cf3d4803b0f78b9f6012c41791a72db (diff) | |
| download | gcc-86038a882f2f4ec47db494f3e6f4ef171bf5892b.zip gcc-86038a882f2f4ec47db494f3e6f4ef171bf5892b.tar.gz gcc-86038a882f2f4ec47db494f3e6f4ef171bf5892b.tar.bz2 | |
exp_aggr.adb: Minor reformatting
2008-07-31 Robert Dewar <dewar@adacore.com>
* exp_aggr.adb: Minor reformatting
From-SVN: r138419
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_aggr.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb index 84aed96..eaff8e8 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 |