gnatdll.adb (Parse_Command_Line): Remove redundant use of GNAT.Command_Line.

2005-11-14  Pascal Obry  <obry@adacore.com>
	    Vincent Celier  <celier@adacore.com>

	* gnatdll.adb (Parse_Command_Line): Remove redundant use of
	GNAT.Command_Line.

	* memroot.adb: Remove redundant with/use clause on
	System.Storage_Elements.

From-SVN: r106958

diff --git a/gcc/ada/gnatdll.adb b/gcc/ada/gnatdll.adb
index c15154301cc46d9cded6ea6b132a4c4487af09f2..d133cf6e21e3346e8e82c3a09bc7002106117728 100644 (file)
--- a/gcc/ada/gnatdll.adb
+++ b/gcc/ada/gnatdll.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1997-2004, Free Software Foundation, Inc.         --
+--          Copyright (C) 1997-2005, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -63,7 +63,7 @@ procedure Gnatdll is
    --  build the DLL.
 
    Help : Boolean := False;
-   --  Help will be set to True the usage information is to be displayed.
+   --  Help will be set to True the usage information is to be displayed
 
    Version : constant String := Gnatvsn.Gnat_Version_String;
    --  Why should it be necessary to make a copy of this
@@ -166,8 +166,6 @@ procedure Gnatdll is
 
    procedure Parse_Command_Line is
 
-      use GNAT.Command_Line;
-
       procedure Add_File (Filename : in String);
       --  Add one file to the list of file to handle
 

diff --git a/gcc/ada/memroot.adb b/gcc/ada/memroot.adb
index fa4819cbe8362db0ccc6e811998ef874db874e29..cdd4feb00099f3184e5c9089578811a64355de25 100644 (file)
--- a/gcc/ada/memroot.adb
+++ b/gcc/ada/memroot.adb
@@ -27,7 +27,6 @@
 with GNAT.Table;
 with GNAT.HTable; use GNAT.HTable;
 with Ada.Text_IO; use Ada.Text_IO;
-with System.Storage_Elements; use System.Storage_Elements;
 
 package body Memroot is