diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-08-17 12:00:43 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-08-17 12:00:43 +0200 |
| commit | b01bf852a0c2a50f5511c00c553eaed3b894ef05 (patch) | |
| tree | 707c00de0f57a2f536e10fba49d312ef5b42d055 | |
| parent | 06274cd5841339d9d58b83619118782f9e5bd9bf (diff) | |
| download | gcc-b01bf852a0c2a50f5511c00c553eaed3b894ef05.zip gcc-b01bf852a0c2a50f5511c00c553eaed3b894ef05.tar.gz gcc-b01bf852a0c2a50f5511c00c553eaed3b894ef05.tar.bz2 | |
[multiple changes]
2009-08-17 Robert Dewar <dewar@adacore.com>
* tbuild.adb: Minor reformatting
2009-08-17 Thomas Quinot <quinot@adacore.com>
* exp_ch4.adb (Exp_Ch4.Expand_N_Slice.Make_Temporary): Rename to
Make_Temporary_For_Slice to avoid confusion with Tbuild.Make_Temporary.
Use Tbuild.Make_Temporary to create entity for the temporary.
From-SVN: r150832
| -rw-r--r-- | gcc/ada/ChangeLog | 11 | ||||
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 19 | ||||
| -rw-r--r-- | gcc/ada/tbuild.adb | 3 |
3 files changed, 22 insertions, 11 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 963d307..5a17cdb 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,14 @@ +2009-08-17 Robert Dewar <dewar@adacore.com> + + * make.adb: Add ??? comment + * tbuild.adb: Minor reformatting + +2009-08-17 Thomas Quinot <quinot@adacore.com> + + * exp_ch4.adb (Exp_Ch4.Expand_N_Slice.Make_Temporary): Rename to + Make_Temporary_For_Slice to avoid confusion with Tbuild.Make_Temporary. + Use Tbuild.Make_Temporary to create entity for the temporary. + 2009-08-17 Arnaud Charlet <charlet@adacore.com> * make.adb (Process_Multilib, Scan_Make_Arg): Refine previous change diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index acf96b0..949027d 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -7447,7 +7447,7 @@ package body Exp_Ch4 is -- processing will still generate the appropriate copy in operation, -- which will take care of the slice. - procedure Make_Temporary; + procedure Make_Temporary_For_Slice; -- Create a named variable for the value of the slice, in cases where -- the back-end cannot handle it properly, e.g. when packed types or -- unaligned slices are involved. @@ -7486,14 +7486,13 @@ package body Exp_Ch4 is end loop; end Is_Procedure_Actual; - -------------------- - -- Make_Temporary -- - -------------------- + ------------------------------ + -- Make_Temporary_For_Slice -- + ------------------------------ - procedure Make_Temporary is + procedure Make_Temporary_For_Slice is Decl : Node_Id; - Ent : constant Entity_Id := - Make_Defining_Identifier (Loc, New_Internal_Name ('T')); + Ent : constant Entity_Id := Make_Temporary (Loc, 'T', N); begin Decl := Make_Object_Declaration (Loc, @@ -7510,7 +7509,7 @@ package body Exp_Ch4 is Rewrite (N, New_Occurrence_Of (Ent, Loc)); Analyze_And_Resolve (N, Typ); - end Make_Temporary; + end Make_Temporary_For_Slice; -- Start of processing for Expand_N_Slice @@ -7565,7 +7564,7 @@ package body Exp_Ch4 is if Nkind (Parent (N)) = N_Function_Call and then Is_Possibly_Unaligned_Slice (N) then - Make_Temporary; + Make_Temporary_For_Slice; end if; elsif Nkind (Parent (N)) = N_Assignment_Statement @@ -7586,7 +7585,7 @@ package body Exp_Ch4 is return; else - Make_Temporary; + Make_Temporary_For_Slice; end if; end Expand_N_Slice; diff --git a/gcc/ada/tbuild.adb b/gcc/ada/tbuild.adb index 52f6fbf..7273fde 100644 --- a/gcc/ada/tbuild.adb +++ b/gcc/ada/tbuild.adb @@ -446,7 +446,8 @@ package body Tbuild is Related_Node : Node_Id := Empty) return Node_Id is Temp : constant Node_Id := - Make_Defining_Identifier (Loc, Chars => New_Internal_Name (Id)); + Make_Defining_Identifier (Loc, + Chars => New_Internal_Name (Id)); begin Set_Related_Expression (Temp, Related_Node); return Temp; |