diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-17 11:32:20 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-17 11:32:20 +0200 |
| commit | e1b871e93c547d7fe50bc5c30fb18c1bd3ba16da (patch) | |
| tree | e2ae13596d1291a159e6037aadeb00aae5035555 /gcc/ada/sem_elim.adb | |
| parent | 67e740fa3005211b72da34e28ec2a8a22dcc4797 (diff) | |
| download | gcc-e1b871e93c547d7fe50bc5c30fb18c1bd3ba16da.zip gcc-e1b871e93c547d7fe50bc5c30fb18c1bd3ba16da.tar.gz gcc-e1b871e93c547d7fe50bc5c30fb18c1bd3ba16da.tar.bz2 | |
[multiple changes]
2010-06-17 Robert Dewar <dewar@adacore.com>
* back_end.adb, sem_res.adb, switch-c.adb, sem_scil.adb: Minor
reformatting.
* sem_attr.adb, sem_cat.adb, sem_disp.adb, sem_elab.adb, sem_elim.adb,
sem_eval.adb: Use Ekind_In
2010-06-17 Ed Schonberg <schonberg@adacore.com>
* sem_ch8.adb: better error message for illegal inherited discriminant
2010-06-17 Vincent Celier <celier@adacore.com>
* bindusg.adb: Remove lines for -A and -C
* gnat_ugn.texi: Remove all documentation and examples of switches -A
and -C for gnatbind and gnatlink.
* gnatlink.adb (Usage): Remove lines for -A and -C
* switch-b.adb (Scan_Binder_Switches): Issue warning when switch -C is
specified.
* gcc-interface/Make-lang.in: Update dependencies.
From-SVN: r160891
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 |