diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-11-07 16:20:14 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-11-07 16:20:14 +0000 |
| commit | 54665c5ce2beefed5d8981dc2b5933fb83839cc1 (patch) | |
| tree | 6788b159094d3e15bb388510e484debf113ebeb7 /gcc/ada/exp_ch8.ads | |
| parent | 6296bd9601caec8b0c01944c5a06eb1fcfd216c6 (diff) | |
| download | gcc-54665c5ce2beefed5d8981dc2b5933fb83839cc1.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@181091 138bc75d-0d04-0410-961f-82ee72b054a4
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 b5056ab2e7f..d5dd37c6fcd 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; |