[Ada] Remove excessive guard in detection of access-to-variable objects

It is safe to call Is_Access_Variable without calling
Is_Access_Object_Type before. Compiler cleanup only; semantics is
unaffected.

gcc/ada/

	* sem_util.adb (Is_Variable): Remove excessive guard.

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 7b7566d96c79aed9fe687268ecf549d3a91c7734..9cff0f729985dee7d1d17b11791e3440da897ad5 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -21896,7 +21896,6 @@ package body Sem_Util is
               or else (K = E_Component
                         and then not In_Protected_Function (E))
               or else (Present (Etype (E))
-                        and then Is_Access_Object_Type (Etype (E))
                         and then Is_Access_Variable (Etype (E))
                         and then Is_Dereferenced (N))
               or else K = E_Out_Parameter