diff options
Diffstat (limited to 'gcc/ada/sem_ch6.adb')
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 6d825987c59..2afc4eef15f 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -8659,10 +8659,6 @@ package body Sem_Ch6 is and then FCE (Expression (E1), Expression (E2)); - when N_Conditional_Expression => - return - FCL (Expressions (E1), Expressions (E2)); - when N_Explicit_Dereference => return FCE (Prefix (E1), Prefix (E2)); @@ -8682,6 +8678,10 @@ package body Sem_Ch6 is FCL (Parameter_Associations (E1), Parameter_Associations (E2)); + when N_If_Expression => + return + FCL (Expressions (E1), Expressions (E2)); + when N_Indexed_Component => return FCE (Prefix (E1), Prefix (E2)) |