diff options
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
-rw-r--r-- | gcc/ada/exp_ch9.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 96e6880..50b9d07 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -618,7 +618,7 @@ package body Exp_Ch9 is Prev := First_Entity (Ttyp); while Chars (Prev) /= Chars (Ent) - or else (Ekind (Prev) /= Ekind (Ent)) + or else Ekind (Prev) /= Ekind (Ent) or else not Sem_Ch6.Type_Conformant (Ent, Prev) loop if Ekind (Prev) = E_Entry then @@ -5468,7 +5468,7 @@ package body Exp_Ch9 is Prev := First_Entity (Ttyp); while Chars (Prev) /= Chars (Ent) - or else (Ekind (Prev) /= Ekind (Ent)) + or else Ekind (Prev) /= Ekind (Ent) or else not Sem_Ch6.Type_Conformant (Ent, Prev) loop if Ekind (Prev) = E_Entry then |