diff options
Diffstat (limited to 'gcc/ada/sem_elim.adb')
| -rw-r--r-- | gcc/ada/sem_elim.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/sem_elim.adb b/gcc/ada/sem_elim.adb index 8d380024b06..3f99d828fc4 100644 --- a/gcc/ada/sem_elim.adb +++ b/gcc/ada/sem_elim.adb @@ -289,11 +289,11 @@ package body Sem_Elim is -- Then we need to see if the static scope matches within the -- compilation unit. + -- At the moment, gnatelim does not consider block statements as -- scopes (even if a block is named) Scop := Scope (E); - while Ekind (Scop) = E_Block loop Scop := Scope (Scop); end loop; @@ -305,7 +305,6 @@ package body Sem_Elim is end if; Scop := Scope (Scop); - while Ekind (Scop) = E_Block loop Scop := Scope (Scop); end loop; @@ -324,7 +323,6 @@ package body Sem_Elim is end if; Scop := Scope (Scop); - while Ekind (Scop) = E_Block loop Scop := Scope (Scop); end loop; |