diff options
| author | Samuel Tardieu <sam@rfc1149.net> | 2008-08-18 08:59:47 +0000 |
|---|---|---|
| committer | Samuel Tardieu <sam@gcc.gnu.org> | 2008-08-18 08:59:47 +0000 |
| commit | b9b2405ff39ccd696dd1ff825bf81c367a63d3fa (patch) | |
| tree | 10893a8df07da42db5c377e6e409ee4e98a8ebf2 /gcc/ada/sem_ch12.adb | |
| parent | 51c16e2998aa74045dffe63e3c561b08d2e7c477 (diff) | |
| download | gcc-b9b2405ff39ccd696dd1ff825bf81c367a63d3fa.zip gcc-b9b2405ff39ccd696dd1ff825bf81c367a63d3fa.tar.gz gcc-b9b2405ff39ccd696dd1ff825bf81c367a63d3fa.tar.bz2 | |
gcc/ada/
* exp_ch13.adb, exp_disp.adb, sem_cat.adb, sem_ch10.adb,
* sem_ch12.adb, sem_ch6.adb, sem_ch7.adb, sem_ch8.adb,
* sem_prag.adb, sem_util.adb, sem_warn.adb: Use
Is_Package_Or_Generic_Package instead of hand-crafted tests.
From-SVN: r139191
Diffstat (limited to 'gcc/ada/sem_ch12.adb')
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 30628b6..c956e7c 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -5202,8 +5202,7 @@ package body Sem_Ch12 is Inst_Par := Entity (Prefix (Gen_Id)); while Present (Inst_Par) - and then Ekind (Inst_Par) /= E_Package - and then Ekind (Inst_Par) /= E_Generic_Package + and then not Is_Package_Or_Generic_Package (Inst_Par) loop Inst_Par := Homonym (Inst_Par); end loop; |