diff options
Diffstat (limited to 'gcc/ada/sem_ch5.adb')
| -rw-r--r-- | gcc/ada/sem_ch5.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index fdd4b1fbc67..875eb1c0778 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -2302,8 +2302,9 @@ package body Sem_Ch5 is Typ : Entity_Id; begin - -- In semantics and Alfa modes, introduce loop variable so that loop - -- body can be properly analyzed. Otherwise this is one after expansion. + -- In semantics/Alfa modes, we won't be further expanding the loop, so + -- introduce loop variable so that loop body can be properly analyzed. + -- Otherwise this happens after expansion. if Operating_Mode = Check_Semantics or else Alfa_Mode |