[Ada] Reuse Is_Package_Or_Generic_Package where possible

[thirdparty/gcc.git] / gcc / ada / sem_type.adb

diff --git a/gcc/ada/sem_type.adb b/gcc/ada/sem_type.adb
index e5d01dd095cb34e9df2a041a4d710c77f5cda458..1868568c5eaba1229a78ab087be1acb4c73df2e7 100644 (file)
--- a/gcc/ada/sem_type.adb
+++ b/gcc/ada/sem_type.adb
@@ -1383,7 +1383,7 @@ package body Sem_Type is
       begin
          return In_Same_List (Parent (Typ), Op_Decl)
            or else
-             (Ekind_In (Scop, E_Package, E_Generic_Package)
+             (Is_Package_Or_Generic_Package (Scop)
                and then List_Containing (Op_Decl) =
                               Visible_Declarations (Parent (Scop))
                and then List_Containing (Parent (Typ)) =