From: Robert Dewar <dewar@adacore.com>
Date: Wed, 15 Jul 2009 09:33:38 +0000 (+0000)
Subject: exp_aggr.adb, [...]: Minor reformatting Minor code reorganization
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=124e3829bbb56ff80d11c7c8f4c5ed473342d0f2;p=gcc.git

exp_aggr.adb, [...]: Minor reformatting Minor code reorganization

2009-07-15  Robert Dewar  <dewar@adacore.com>

	* exp_aggr.adb, tbuild.ads, tbuild.adb: Minor reformatting
	Minor code reorganization

From-SVN: r149665
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a3162c2e289..ddcd42c92ac 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2009-07-15  Robert Dewar  <dewar@adacore.com>
+
+	* exp_aggr.adb, tbuild.ads, tbuild.adb: Minor reformatting
+	Minor code reorganization
+
 2009-07-14  Taras Glek  <tglek@mozilla.com>
 	    Rafael Espindola  <espindola@google.com>
 
diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 11174614df1..694663802f8 100644
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -2976,21 +2976,22 @@ package body Exp_Aggr is
                   declare
                      SubE : constant Entity_Id :=
                               Make_Defining_Identifier (Loc,
-                                New_Internal_Name ('T'));
+                                Chars => New_Internal_Name ('T'));
 
                      SubD : constant Node_Id :=
                               Make_Subtype_Declaration (Loc,
-                                Defining_Identifier =>
-                                  SubE,
+                                Defining_Identifier => SubE,
                                 Subtype_Indication  =>
                                   Make_Subtype_Indication (Loc,
-                                    Subtype_Mark => New_Reference_To (
-                                      Etype (Comp_Type), Loc),
+                                    Subtype_Mark =>
+                                      New_Reference_To
+                                        (Etype (Comp_Type), Loc),
                                     Constraint =>
-                                      Make_Index_Or_Discriminant_Constraint (
-                                        Loc, Constraints => New_List (
-                                          New_Copy_Tree (Aggregate_Bounds (
-                                            Expr_Q))))));
+                                      Make_Index_Or_Discriminant_Constraint
+                                        (Loc,
+                                         Constraints => New_List (
+                                          New_Copy_Tree
+                                            (Aggregate_Bounds (Expr_Q))))));
 
                      --  Create a temporary array of the above subtype which
                      --  will be used to capture the aggregate assignments.
diff --git a/gcc/ada/tbuild.adb b/gcc/ada/tbuild.adb
index be882055af4..9049827bf81 100644
--- a/gcc/ada/tbuild.adb
+++ b/gcc/ada/tbuild.adb
@@ -436,14 +436,17 @@ package body Tbuild is
           Strval => End_String);
    end Make_String_Literal;
 
+   --------------------
+   -- Make_Temporary --
+   --------------------
+
    function Make_Temporary
-     (Loc  :  Source_Ptr;
-      Id   :  Name_Id;
+     (Loc          : Source_Ptr;
+      Id           : Name_Id;
       Related_Node : Node_Id := Empty) return Node_Id
    is
-      Temp : Node_Id;
+      Temp : constant Node_Id := Make_Defining_Identifier (Loc, Id);
    begin
-      Temp := Make_Defining_Identifier (Loc, Id);
       Set_Related_Expression (Temp, Related_Node);
       return Temp;
    end Make_Temporary;
diff --git a/gcc/ada/tbuild.ads b/gcc/ada/tbuild.ads
index f12b616c93a..d02f7ac8ecd 100644
--- a/gcc/ada/tbuild.ads
+++ b/gcc/ada/tbuild.ads
@@ -176,8 +176,8 @@ package Tbuild is
    --  is given as a normal string instead of a String_Id value.
 
    function Make_Temporary
-     (Loc :   Source_Ptr;
-      Id  :  Name_Id;
+     (Loc          : Source_Ptr;
+      Id           : Name_Id;
       Related_Node : Node_Id := Empty) return Node_Id;
    --  Create a defining identifier to capture the value of an expression
    --  or aggregate, and link it to the expression that it replaces, in