diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-11-07 17:20:14 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-11-07 17:20:14 +0100 |
| commit | cc570be69335a3d3c36c14eabc99bf0049e7f9be (patch) | |
| tree | 6788b159094d3e15bb388510e484debf113ebeb7 /gcc/ada/exp_ch8.ads | |
| parent | da80a6464e2f41f4e139fcd182fdaa00a024851e (diff) | |
| download | gcc-cc570be69335a3d3c36c14eabc99bf0049e7f9be.zip gcc-cc570be69335a3d3c36c14eabc99bf0049e7f9be.tar.gz gcc-cc570be69335a3d3c36c14eabc99bf0049e7f9be.tar.bz2 | |
[multiple changes]
2011-11-07 Hristian Kirtchev <kirtchev@adacore.com>
* exp_alfa.adb: Remove with and use clause for
Exp_Ch8. Add with and use clause for Exp_Util.
Remove local constant Disable_Processing_Of_Renamings.
(Expand_Alfa_N_Object_Renaming_Declaration): The expansion of
object renamings has been reenabled.
(Expand_Possible_Renaming):
The expansion of identifier and expanded names has been
reenabled. Perform the substitutions only for entities that
denote an object.
* exp_ch8.ads, exp_ch8.adb (Evaluate_Name): Moved to Exp_Util.
* exp_util.adb (Evaluate_Name): Moved from Exp_Ch8.
(Remove_Side_Effects): Alphabetize local variables. Add a guard
to avoid the infinite expansion of an expression in Alfa mode. Add
processing for function calls in Alfa mode.
* exp_util.ads (Evaliate_Name): Moved from Exp_Ch8.
2011-11-07 Ed Schonberg <schonberg@adacore.com>
* freeze.adb (Freeze_Entity): If the entity is an access to
subprogram whose designated type is itself a subprogram type,
its own return type must be decorated with size information.
From-SVN: r181091
Diffstat (limited to 'gcc/ada/exp_ch8.ads')
| -rw-r--r-- | gcc/ada/exp_ch8.ads | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/gcc/ada/exp_ch8.ads b/gcc/ada/exp_ch8.ads index b5056ab..d5dd37c 100644 --- a/gcc/ada/exp_ch8.ads +++ b/gcc/ada/exp_ch8.ads @@ -33,8 +33,4 @@ package Exp_Ch8 is procedure Expand_N_Package_Renaming_Declaration (N : Node_Id); procedure Expand_N_Subprogram_Renaming_Declaration (N : Node_Id); - procedure Evaluate_Name (Nam : Node_Id); - -- Remove the all side effects from a name except for the outermost - -- construct. - end Exp_Ch8; |