2005-09-01 Ed Schonberg <schonberg@adacore.com>

	    Thomas Quinot  <quinot@adacore.com>

	* fname-sf.adb, mlib-tgt.ads,
	back_end.adb, casing.adb, g-debpoo.adb, g-excact.adb, g-spipat.adb,
	g-spipat.ads, g-thread.adb, lib-list.adb, makeutl.adb, mlib.adb,
	osint.adb, par-ch10.adb, par-load.adb, prep.adb, prj.adb, prj-attr.ads,
	prj-env.ads, prj-err.adb, prj-err.ads, prj-ext.adb, prj-ext.ads,
	prj-makr.adb, prj-makr.ads, prj-pars.ads, prj-part.adb, prj-strt.adb,
	prj-tree.ads, prj-util.ads, sem_dist.adb, sinput-c.ads, sinput-l.ads,
	sinput-p.ads, styleg-c.ads, xr_tabls.adb, prj-attr-pm.ads,
	makegpr.adb: Remove redundant use_clauses.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103854 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 20 insertions, 22 deletions

diff --git a/gcc/ada/sem_dist.adb b/gcc/ada/sem_dist.adb
index 9f13d3fe238..57998dbc485 100644
--- a/gcc/ada/sem_dist.adb
+++ b/gcc/ada/sem_dist.adb
@@ -39,7 +39,6 @@ with Sem;      use Sem;
 with Sem_Res;  use Sem_Res;
 with Sem_Util; use Sem_Util;
 with Sinfo;    use Sinfo;
-with Snames;   use Snames;
 with Stand;    use Stand;
 with Stringt;  use Stringt;
 with Tbuild;   use Tbuild;
@@ -51,10 +50,10 @@ package body Sem_Dist is
    -----------------------
 
    procedure RAS_E_Dereference (Pref : Node_Id);
-   --  Handles explicit dereference of Remote Access to Subprograms.
+   --  Handles explicit dereference of Remote Access to Subprograms
 
    function Full_Qualified_Name (E : Entity_Id) return String_Id;
-   --  returns the full qualified name of the entity in lower case.
+   --  returns the full qualified name of the entity in lower case
 
    -------------------------
    -- Add_Stub_Constructs --
@@ -168,14 +167,14 @@ package body Sem_Dist is
          Ent := Defining_Identifier (Ent);
       end if;
 
-      --  Compute recursively the qualification. Only "Standard" has no scope.
+      --  Compute recursively the qualification (only "Standard" has no scope)
 
       if Present (Scope (Scope (Ent))) then
          Parent_Name := Full_Qualified_Name (Scope (Ent));
       end if;
 
-      --  Every entity should have a name except some expanded blocks
-      --  don't bother about those.
+      --  Every entity should have a name except some expanded blocks. Do not
+      --  bother about those.
 
       if Chars (Ent) = No_Name then
          return Parent_Name;
@@ -285,7 +284,7 @@ package body Sem_Dist is
          Ety := Scope (Ety);
       end loop;
 
-      --  Retrieve the proper function to call.
+      --  Retrieve the proper function to call
 
       if Is_Remote_Call_Interface (Ety) then
          Get_Pt_Id := New_Occurrence_Of
@@ -454,27 +453,26 @@ package body Sem_Dist is
       end loop;
 
       if Is_Degenerate then
-         Error_Msg_NE (
-           "remote access-to-subprogram type& can only be null?",
-           Defining_Identifier (Parameter), User_Type);
+         Error_Msg_NE
+           ("remote access-to-subprogram type& can only be null?",
+            Defining_Identifier (Parameter), User_Type);
+
          --  The only legal value for a RAS with a formal parameter of an
-         --  anonymous access type is null, because it cannot be
-         --  subtype-Conformant with any legal remote subprogram declaration.
-         --  In this case, we cannot generate a corresponding primitive
-         --  operation.
+         --  anonymous access type is null, because it cannot be subtype-
+         --  conformant with any legal remote subprogram declaration. In this
+         --  case, we cannot generate a corresponding primitive operation.
       end if;
 
       if Get_PCS_Name = Name_No_DSA then
          return;
       end if;
 
-      --  The tagged private type, primitive operation and RACW
-      --  type associated with a RAS need to all be declared in
-      --  a subpackage of the one that contains the RAS declaration,
-      --  because the primitive of the object type, and the associated
-      --  primitive of the stub type, need to be dispatching operations
-      --  of these types, and the profile of the RAS might contain
-      --  tagged types declared in the same scope.
+      --  The tagged private type, primitive operation and RACW type associated
+      --  with a RAS need to all be declared in a subpackage of the one that
+      --  contains the RAS declaration, because the primitive of the object
+      --  type, and the associated primitive of the stub type, need to be
+      --  dispatching operations of these types, and the profile of the RAS
+      --  might contain tagged types declared in the same scope.
 
       Append_To (Vis_Decls,
         Make_Private_Type_Declaration (Loc,
@@ -606,7 +604,7 @@ package body Sem_Dist is
          end if;
 
       else
-         --  Context is not a call.
+         --  Context is not a call
 
          return;
       end if;