From c01b085ff710a357b6f14d038b818bd5ef8f2846 Mon Sep 17 00:00:00 2001 From: Pascal Obry Date: Tue, 15 Nov 2005 14:52:43 +0100 Subject: [PATCH] gnatdll.adb (Parse_Command_Line): Remove redundant use of GNAT.Command_Line. 2005-11-14 Pascal Obry Vincent Celier * 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 --- gcc/ada/gnatdll.adb | 6 ++---- gcc/ada/memroot.adb | 1 - 2 files changed, 2 insertions(+), 5 deletions(-) diff --git a/gcc/ada/gnatdll.adb b/gcc/ada/gnatdll.adb index c15154301cc4..d133cf6e21e3 100644 --- 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 fa4819cbe836..cdd4feb00099 100644 --- 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 -- 2.47.2