ada: Refactor of Ultimate_Prefix

gcc/ada/ChangeLog:

	* sem_util.adb (Ultimate_Prefix): Clean-up the loop condition by using
	Has_prefix instead of an explicit list of node kinds.

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index e6c183c5f9c3cc4256ae8e52fa05de3ba135c6ce..9e2083b8383d24916e981f49e02d480ca9c321cd 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -29615,11 +29615,7 @@ package body Sem_Util is
 
    begin
       Pref := N;
-      while Nkind (Pref) in N_Explicit_Dereference
-                          | N_Indexed_Component
-                          | N_Selected_Component
-                          | N_Slice
-      loop
+      while Has_Prefix (Pref) loop
          Pref := Prefix (Pref);
       end loop;