diff options
Diffstat (limited to 'gcc/ada/sem_elim.adb')
| -rw-r--r-- | gcc/ada/sem_elim.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/sem_elim.adb b/gcc/ada/sem_elim.adb index e4c99fc..aa2c190 100644 --- a/gcc/ada/sem_elim.adb +++ b/gcc/ada/sem_elim.adb @@ -332,9 +332,8 @@ package body Sem_Elim is -- Check for case of subprogram - elsif Ekind (E) = E_Function - or else Ekind (E) = E_Procedure - then + elsif Ekind_In (E, E_Function, E_Procedure) then + -- If Source_Location present, then see if it matches if Elmt.Source_Location /= No_Name then |