[multiple changes]

[gcc.git] / gcc / ada / sem_ch10.adb

diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb
index e936838694a9871fe5079f1b47cceca4ac854da1..a4241afabd71ecede067132b1bb738dfded5c4d1 100644 (file)
--- a/gcc/ada/sem_ch10.adb
+++ b/gcc/ada/sem_ch10.adb
@@ -4741,11 +4741,10 @@ package body Sem_Ch10 is
       --  compiling the body of the child unit.
 
       if P = Cunit_Entity (Current_Sem_Unit)
-        or else
-         (Nkind (Unit (Cunit (Current_Sem_Unit))) = N_Package_Body
-            and then P = Main_Unit_Entity
-            and then
-              Is_Ancestor_Unit (Cunit (Main_Unit), Cunit (Current_Sem_Unit)))
+        or else (Nkind (Unit (Cunit (Current_Sem_Unit))) = N_Package_Body
+                  and then P = Main_Unit_Entity
+                  and then Is_Ancestor_Unit
+                             (Cunit (Main_Unit), Cunit (Current_Sem_Unit)))
       then
          return;
       end if;