diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-24 07:38:19 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-24 07:38:19 +0000 |
| commit | b7459437aef76ee975ddd0e969077c7c1c77aa13 (patch) | |
| tree | 3d61b51956e0e99640086b8707875344e2e74bbc /gcc/ada/sem_ch5.adb | |
| parent | aca21847a28e296d86dae8f53863487378926c6d (diff) | |
| download | gcc-b7459437aef76ee975ddd0e969077c7c1c77aa13.tar.gz | |
2011-09-24 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 179138 using svnmerge.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@179139 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_ch5.adb')
| -rw-r--r-- | gcc/ada/sem_ch5.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/ada/sem_ch5.adb b/gcc/ada/sem_ch5.adb index be2237715c6..fdd4b1fbc67 100644 --- a/gcc/ada/sem_ch5.adb +++ b/gcc/ada/sem_ch5.adb @@ -2302,10 +2302,12 @@ package body Sem_Ch5 is Typ : Entity_Id; begin - -- In semantics mode, introduce loop variable so that loop body can be - -- properly analyzed. Otherwise this is one after expansion. + -- In semantics and Alfa modes, introduce loop variable so that loop + -- body can be properly analyzed. Otherwise this is one after expansion. - if Operating_Mode = Check_Semantics then + if Operating_Mode = Check_Semantics + or else Alfa_Mode + then Enter_Name (Def_Id); end if; |