diff options
author | Vicente Bergas <vicencb@users.noreply.github.com> | 2018-05-03 19:28:49 +0200 |
---|---|---|
committer | tgingold <tgingold@users.noreply.github.com> | 2018-05-03 20:50:44 +0200 |
commit | 252a9169efef06b03061b58743be41e233a80ddb (patch) | |
tree | 2c06fc390c75c0c5f1e6b33755f08b5638a2ee90 /src/ghdldrv | |
parent | b709733aa8df0671ff77bc57636702f8a6e00800 (diff) | |
download | ghdl-252a9169efef06b03061b58743be41e233a80ddb.tar.gz ghdl-252a9169efef06b03061b58743be41e233a80ddb.tar.bz2 ghdl-252a9169efef06b03061b58743be41e233a80ddb.zip |
Fix warning: use clause for package has no effect
With gcc 8.1 the following message appears:
warning: use clause for package "*" has no effect
gnatmake: "*.adb" compilation error
This patch fixes it.
Diffstat (limited to 'src/ghdldrv')
-rw-r--r-- | src/ghdldrv/ghdldrv.adb | 2 | ||||
-rw-r--r-- | src/ghdldrv/ghdllocal.adb | 4 | ||||
-rw-r--r-- | src/ghdldrv/ghdlprint.adb | 4 |
3 files changed, 1 insertions, 9 deletions
diff --git a/src/ghdldrv/ghdldrv.adb b/src/ghdldrv/ghdldrv.adb index 96e259da7..b68c46850 100644 --- a/src/ghdldrv/ghdldrv.adb +++ b/src/ghdldrv/ghdldrv.adb @@ -1432,8 +1432,6 @@ package body Ghdldrv is function Missing_Object_File (Design_File : Iir_Design_File) return Boolean is - use Files_Map; - Name : constant Name_Id := Get_Design_File_Filename (Design_File); Obj_Pathname : constant String := Get_Object_Filename (Design_File); Stamp : OS_Time; diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb index 8cbfa70eb..fbc27087e 100644 --- a/src/ghdldrv/ghdllocal.adb +++ b/src/ghdldrv/ghdllocal.adb @@ -16,7 +16,7 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Ada.Text_IO; use Ada.Text_IO; -with Ada.Command_Line; use Ada.Command_Line; +with Ada.Command_Line; with GNAT.Directory_Operations; with Types; use Types; with Libraries; @@ -1506,8 +1506,6 @@ package body Ghdllocal is -- Convert NAME to lower cases, unless it is an extended identifier. function Convert_Name (Name : String_Access) return String_Access is - use Name_Table; - function Is_Bad_Unit_Name return Boolean is begin if Name'Length = 0 then diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index 5f13e39c3..f95e266ee 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -1183,10 +1183,6 @@ package body Ghdlprint is Files : Argument_List) is pragma Unreferenced (Cmd); - use Scanner; - use Tokens; - use Files_Map; - use Ada.Characters.Latin_1; Id : Name_Id; Fe : Source_File_Entry; |