FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

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

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

From-SVN: r149665
This commit is contained in:
Robert Dewar 2009-07-15 09:33:38 +00:00 • committed by Arnaud Charlet
parent c9b2f286db
commit 124e3829bb
4 changed files with 24 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/ada/ChangeLog
View file

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

19
gcc/ada/exp_aggr.adb
View file

@ -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.

11
gcc/ada/tbuild.adb
View file

@ -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;

4
gcc/ada/tbuild.ads
View file

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