ada: Simplify detection of the enclosing scope

Code cleanup; behaviour is unaffected.

gcc/ada/

	* sem_attr.adb (Analyze_Access_Attribute): Replace loop with
	Current_Scope_No_Loops.

diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb
index 6140cc0c0d63d62ed07f7142f04b267ac2ffb651..e80a144ebb240752b03d5ccf1e58daf2ea5c866e 100644 (file)
--- a/gcc/ada/sem_attr.adb
+++ b/gcc/ada/sem_attr.adb
@@ -988,10 +988,7 @@ package body Sem_Attr is
                --  expanded into a loop. Locate scope of type definition,
                --  if any.
 
-               Scop := Current_Scope;
-               while Ekind (Scop) = E_Loop loop
-                  Scop := Scope (Scop);
-               end loop;
+               Scop := Current_Scope_No_Loops;
 
                --  OK if we are within the scope of a limited type
                --  let's mark the component as having per object constraint