[COMMITTED 08/10] ada: Refactor of Ultimate_Prefix

[Marc Poulhiès]

From: Denis Mazzucato <mazzuc...@adacore.com>

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.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/sem_util.adb | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index e6c183c5f9c3..9e2083b8383d 100644
--- 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;
 
-- 
2.43.0