diff options
| author | sam <sam@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-18 08:59:47 +0000 |
|---|---|---|
| committer | sam <sam@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-08-18 08:59:47 +0000 |
| commit | 65149aa0841ced466bb4814e57db769abe78a2ec (patch) | |
| tree | 10893a8df07da42db5c377e6e409ee4e98a8ebf2 /gcc/ada/sem_ch12.adb | |
| parent | f3e36c5ea06f2b46637a5deb7722e4d4c3e346a7 (diff) | |
| download | gcc-65149aa0841ced466bb4814e57db769abe78a2ec.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@139191 138bc75d-0d04-0410-961f-82ee72b054a4
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 30628b6864a..c956e7cbada 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; |