[gcc r16-4056] ada: Refactor of Ultimate_Prefix

[Marc Poulhies via Gcc-cvs]

https://gcc.gnu.org/g:346b4921f994360194c4582066a52c484c2687fc

commit r16-4056-g346b4921f994360194c4582066a52c484c2687fc
Author: Denis Mazzucato <mazzuc...@adacore.com>
Date:   Fri Sep 12 15:50:54 2025 +0200

    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:
---
 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;