aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/exp_ch2.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/exp_ch2.adb')
-rw-r--r--gcc/ada/exp_ch2.adb3
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch2.adb b/gcc/ada/exp_ch2.adb
index d2f3df8..4e4a6ec 100644
--- a/gcc/ada/exp_ch2.adb
+++ b/gcc/ada/exp_ch2.adb
@@ -117,8 +117,7 @@ package body Exp_Ch2 is
procedure Expand_Renaming (N : Node_Id);
-- For renamings, just replace the identifier by the corresponding
-- named expression. Note that this has been evaluated (see routine
- -- Exp_Ch8.Expand_N_Object_Renaming.Evaluate_Name) so this gives
- -- the correct renaming semantics.
+ -- Exp_Util.Evaluate_Name) so this gives correct renaming semantics.
--------------------------
-- Expand_Current_Value --