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_cat.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_cat.adb')
| -rw-r--r-- | gcc/ada/sem_cat.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb index 367f25555c1..273c04f8185 100644 --- a/gcc/ada/sem_cat.adb +++ b/gcc/ada/sem_cat.adb @@ -433,8 +433,7 @@ package body Sem_Cat is -- of an RCI unit. return Is_Remote_Call_Interface (Unit_Entity) - and then (Ekind (Unit_Entity) = E_Package - or else Ekind (Unit_Entity) = E_Generic_Package) + and then Is_Package_Or_Generic_Package (Unit_Entity) and then Unit_Kind /= N_Package_Body and then List_Containing (N) = Visible_Declarations @@ -459,8 +458,7 @@ package body Sem_Cat is -- There are no restrictions on the body of a Remote Types unit return Is_Remote_Types (Unit_Entity) - and then (Ekind (Unit_Entity) = E_Package - or else Ekind (Unit_Entity) = E_Generic_Package) + and then Is_Package_Or_Generic_Package (Unit_Entity) and then Unit_Kind /= N_Package_Body and then not In_Package_Body (Unit_Entity) and then not In_Instance; |