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
