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

gcc/ada/ChangeLog

+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>
 

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.

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;

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