From: Denis Mazzucato <mazzucato@adacore.com>
Date: Fri, 12 Sep 2025 13:50:54 +0000 (+0200)
Subject: ada: Refactor of Ultimate_Prefix
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=346b4921f994360194c4582066a52c484c2687fc;p=thirdparty%2Fgcc.git

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 e6c183c5f9c..9e2083b8383 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;