From 78de6f03ca32159dec176c47af7caca6c6c996a1 Mon Sep 17 00:00:00 2001 From: Ronan Desplanques Date: Tue, 10 Jan 2023 13:49:50 +0100 Subject: ada: Simplify lookup of predecessor in homonym chain gcc/ada/ * sem_ch8.adb (End_Scope): Simplify lookup of predecessor in homonym chain. --- gcc/ada/sem_ch8.adb | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'gcc/ada') diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index 6f858ee..e4b3519 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -5066,7 +5066,6 @@ package body Sem_Ch8 is if Id /= Current_Entity (Id) then Prev := Current_Entity (Id); while Present (Prev) - and then Present (Homonym (Prev)) and then Homonym (Prev) /= Id loop Prev := Homonym (Prev); @@ -5074,7 +5073,7 @@ package body Sem_Ch8 is -- Skip to end of loop if Id is not in the visibility chain - if No (Prev) or else Homonym (Prev) /= Id then + if No (Prev) then goto Next_Ent; end if; -- cgit v1.1