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_ch10.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_ch10.adb')
| -rw-r--r-- | gcc/ada/sem_ch10.adb | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index f81cca8..6331c04 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -2007,9 +2007,7 @@ package body Sem_Ch10 is -- all the parents are bodies. Restore full visibility of their -- private entities. - if Ekind (Scop) = E_Package - or else Ekind (Scop) = E_Generic_Package - then + if Is_Package_Or_Generic_Package (Scop) then Set_In_Package_Body (Scop); Install_Private_Declarations (Scop); end if; @@ -2099,9 +2097,7 @@ package body Sem_Ch10 is -- context includes another subunit of the same parent which in -- turn includes a child unit in its context. - if Ekind (Par_Unit) = E_Package - or else Ekind (Par_Unit) = E_Generic_Package - then + if Is_Package_Or_Generic_Package (Par_Unit) then if not Is_Immediately_Visible (Par_Unit) or else (Present (First_Entity (Par_Unit)) and then not Is_Immediately_Visible |