diff options
Diffstat (limited to 'gcc/ada/exp_tss.adb')
| -rw-r--r-- | gcc/ada/exp_tss.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/exp_tss.adb b/gcc/ada/exp_tss.adb index fc2338f..b640843 100644 --- a/gcc/ada/exp_tss.adb +++ b/gcc/ada/exp_tss.adb @@ -291,12 +291,12 @@ package body Exp_Tss is then exit; - elsif Ekind_In (Etype (E1), - E_Anonymous_Access_Subprogram_Type, - E_Anonymous_Access_Protected_Subprogram_Type) - and then Ekind_In (Etype (E2), - E_Anonymous_Access_Subprogram_Type, - E_Anonymous_Access_Protected_Subprogram_Type) + elsif Ekind (Etype (E1)) in + E_Anonymous_Access_Subprogram_Type | + E_Anonymous_Access_Protected_Subprogram_Type + and then Ekind (Etype (E2)) in + E_Anonymous_Access_Subprogram_Type | + E_Anonymous_Access_Protected_Subprogram_Type and then not Conforming_Types (Etype (E1), Etype (E2), Fully_Conformant) then |