Minor reformatting.

From-SVN: r247388

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index a4fd1f4363ed93ae289c03b7a6740e7614ec5c10..17fd71d58bd0682b41618152e757c0b0c2968953 100644 (file)
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -3111,10 +3111,11 @@ package body Sem_Ch6 is
                   end;
                end if;
 
-            --  Freezing an access type does not freeze the designated
-            --  type, but freezing conversions between access to interfaces
-            --  requires that the interface types themselves be frozen, so
-            --  that dispatch table entities are properly created.
+            --  Freezing an access type does not freeze the designated type,
+            --  but freezing conversions between access to interfaces requires
+            --  that the interface types themselves be frozen, so that dispatch
+            --  table entities are properly created.
+
             --  Unclear whether a more general rule is needed ???
 
             elsif Nkind (Node) = N_Type_Conversion

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index 97f6cb674a75552357a3597d83a22db13f59c829..ba28eda23d7ce2958d5069ab200302efb5b2d5e5 100644 (file)
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -11945,6 +11945,7 @@ package body Sem_Res is
 
       function In_Instance_Code return Boolean is
          Par : Node_Id;
+
       begin
          if not In_Instance then
             return False;
@@ -11953,24 +11954,25 @@ package body Sem_Res is
             Par := Parent (N);
             while Present (Par) loop
 
-               --  The expression is part of an actual object if it appears
-               --  in the generated object declaration in the instance.
+               --  The expression is part of an actual object if it appears in
+               --  the generated object declaration in the instance.
 
                if Nkind (Par) = N_Object_Declaration
-                  and then Present (Corresponding_Generic_Association (Par))
+                 and then Present (Corresponding_Generic_Association (Par))
                then
                   return False;
+
                else
-                  exit when Nkind (Par)
-                      in N_Statement_Other_Than_Procedure_Call
-                    or else Nkind (Par) in N_Subprogram_Call
-                    or else Nkind (Par) in N_Declaration;
+                  exit when
+                    Nkind (Par) in N_Statement_Other_Than_Procedure_Call
+                      or else Nkind (Par) in N_Subprogram_Call
+                      or else Nkind (Par) in N_Declaration;
                end if;
 
                Par := Parent (Par);
             end loop;
 
-            --  Otherwise the expression appears within the instantiated unit.
+            --  Otherwise the expression appears within the instantiated unit
 
             return True;
          end if;