sem_cat.adb: Minor reformatting

2008-05-26  Robert Dewar  <dewar@adacore.com>

	* sem_cat.adb: Minor reformatting

From-SVN: r135898

diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb
index cc96974425a51a48f63b1c23bba8fb6a6860ad21..fcb0177ec2fddc1dd5a6d9620b99e174134e3907 100644 (file)
--- a/gcc/ada/sem_cat.adb
+++ b/gcc/ada/sem_cat.adb
@@ -1516,6 +1516,7 @@ package body Sem_Cat is
          Profile := Parameter_Specifications (Specification (N));
 
       else pragma Assert (K = N_Object_Declaration);
+
          --  The above assertion is dubious, the visible declarations of an
          --  RCI unit never contain an object declaration, this should be an
          --  ACCESS-to-object declaration???
@@ -1739,9 +1740,13 @@ package body Sem_Cat is
          end if;
       end Is_Valid_Remote_Object_Type;
 
+      --  Local variables
+
       Direct_Designated_Type : Entity_Id;
       Desig_Type             : Entity_Id;
 
+   --  Start of processing for Validate_Remote_Access_Object_Type_Declaration
+
    begin
       --  We are called from Analyze_Type_Declaration, and the Nkind of the
       --  given node is N_Access_To_Object_Definition.