From: Robert Dewar <dewar@adacore.com>
Date: Mon, 26 May 2008 09:39:55 +0000 (+0200)
Subject: sem_cat.adb: Minor reformatting
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=24b6676840a8e470c23ea4016f8f029f1c1979f1;p=gcc.git

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 cc96974425a..fcb0177ec2f 100644
--- 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.