aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/exp_ch8.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/exp_ch8.adb')
-rw-r--r--gcc/ada/exp_ch8.adb12
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/exp_ch8.adb b/gcc/ada/exp_ch8.adb
index e2ffb91..279ba86 100644
--- a/gcc/ada/exp_ch8.adb
+++ b/gcc/ada/exp_ch8.adb
@@ -294,12 +294,12 @@ package body Exp_Ch8 is
Body_Id => Body_Id,
Param_Specs => Copy_Parameter_List (Id));
- -- Build body for renamed equality, to capture its current
- -- meaning. It may be redefined later, but the renaming is
- -- elaborated where it occurs. This is technically known as
- -- Squirreling semantics. Renaming is rewritten as a subprogram
- -- declaration, and the generated body is inserted into the
- -- freeze actions for the subprogram.
+ -- Build body for renamed equality, to capture its current meaning.
+ -- It may be redefined later, but the renaming is elaborated where
+ -- it occurs. This is technically known as Squirreling semantics.
+ -- Renaming is rewritten as a subprogram declaration, and the
+ -- generated body is inserted into the freeze actions for the
+ -- subprogram.
else
Decl :=