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