Minor reformatting.
authorArnaud Charlet <charlet@gcc.gnu.org>
Tue, 25 Apr 2017 13:33:32 +0000 (15:33 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Tue, 25 Apr 2017 13:33:32 +0000 (15:33 +0200)
From-SVN: r247232

gcc/ada/sem_cat.adb
gcc/ada/sem_ch13.adb
gcc/ada/sem_util.adb

index e922fb35b1cddef8d61a50d933ed245cfa5303b4..921278329205aa9d5bd447644c84d2afc3796241 100644 (file)
@@ -1978,7 +1978,6 @@ package body Sem_Cat is
          if Comes_From_Source (Typ) and then Is_Type (Typ)
            and then Ekind (Typ) /= E_Incomplete_Type
          then
-
             --  Check that the type can be meaningfully transmitted to another
             --  partition (E.2.2(8)).
 
index 833770624e87000c93757b2247d9bf7061045ca0..9ce5f6619f033c53a7844b46fe3bc787f0dd6b42 100644 (file)
@@ -1181,11 +1181,11 @@ package body Sem_Ch13 is
    --  Start of processing for Analyze_Aspects_At_Freeze_Point
 
    begin
-      --  Must be visible in current scope, but if this is a type from
-      --  a nested package it may be frozen from an object declaration
-      --  in the enclosing scope, so install the package declarations
-      --  to complete the analysis of the aspects, if any. If the package
-      --  itself is frozen the type will have been frozen as well.
+      --  Must be visible in current scope, but if this is a type from a nested
+      --  package it may be frozen from an object declaration in the enclosing
+      --  scope, so install the package declarations to complete the analysis
+      --  of the aspects, if any. If the package itself is frozen the type will
+      --  have been frozen as well.
 
       if not Scope_Within_Or_Same (Current_Scope, Scope (E)) then
          if Is_Type (E) and then From_Nested_Package (E) then
@@ -1208,11 +1208,10 @@ package body Sem_Ch13 is
                return;
             end;
 
-         else
-
-            --  Aspects from other entities in different contexts are
-            --  analyzed elsewhere.
+         --  Aspects from other entities in different contexts are analyzed
+         --  elsewhere.
 
+         else
             return;
          end if;
       end if;
index 7c050d45e21ca756b257043f40b3c2d3c36d7a5b..ee57f279a227e724f4a05277c2b3fd4fa31ec89d 100644 (file)
@@ -7581,11 +7581,13 @@ package body Sem_Util is
 
    function From_Nested_Package (T : Entity_Id) return Boolean is
       Pack : constant Entity_Id := Scope (T);
+
    begin
-      return Ekind (Pack) = E_Package
-        and then not Is_Frozen (Pack)
-        and then not Scope_Within_Or_Same (Current_Scope, Pack)
-        and then In_Open_Scopes (Scope (Pack));
+      return
+        Ekind (Pack) = E_Package
+          and then not Is_Frozen (Pack)
+          and then not Scope_Within_Or_Same (Current_Scope, Pack)
+          and then In_Open_Scopes (Scope (Pack));
    end From_Nested_Package;
 
    -----------------------