aboutsummaryrefslogtreecommitdiffstats
path: root/src/ortho/mcode
diff options
context:
space:
mode:
authorTruls Asheim <truls@asheim.dk>2018-05-29 21:52:49 +0200
committertgingold <tgingold@users.noreply.github.com>2018-05-30 08:04:16 +0200
commit2891b9661aa547095732cad759bc3805a238269e (patch)
tree6e538ee3c507ed65be43d8be21063ce5e9316fb8 /src/ortho/mcode
parent5b728dca30c6d85692731d62f40052037131e5f1 (diff)
downloadghdl-2891b9661aa547095732cad759bc3805a238269e.tar.gz
ghdl-2891b9661aa547095732cad759bc3805a238269e.tar.bz2
ghdl-2891b9661aa547095732cad759bc3805a238269e.zip
Remove redundant use-clauses for gcc 8.1 compatibility
Diffstat (limited to 'src/ortho/mcode')
-rw-r--r--src/ortho/mcode/ortho_code-decls.adb1
-rw-r--r--src/ortho/mcode/ortho_code-dwarf.adb3
-rw-r--r--src/ortho/mcode/ortho_code-x86-abi.adb3
-rw-r--r--src/ortho/mcode/ortho_code-x86-emits.adb3
-rw-r--r--src/ortho/mcode/ortho_jit.adb2
5 files changed, 1 insertions, 11 deletions
diff --git a/src/ortho/mcode/ortho_code-decls.adb b/src/ortho/mcode/ortho_code-decls.adb
index a3a5e5eb0..017b0b1f1 100644
--- a/src/ortho/mcode/ortho_code-decls.adb
+++ b/src/ortho/mcode/ortho_code-decls.adb
@@ -637,7 +637,6 @@ package body Ortho_Code.Decls is
procedure Disp_Decl (Indent : Natural; Decl : O_Dnode)
is
use Ada.Text_IO;
- use Ortho_Ident;
use Ortho_Code.Debug.Int32_IO;
procedure Disp_Decl_Type (Decl : O_Dnode)
diff --git a/src/ortho/mcode/ortho_code-dwarf.adb b/src/ortho/mcode/ortho_code-dwarf.adb
index b65abaf83..0275b870f 100644
--- a/src/ortho/mcode/ortho_code-dwarf.adb
+++ b/src/ortho/mcode/ortho_code-dwarf.adb
@@ -819,7 +819,6 @@ package body Ortho_Code.Dwarf is
procedure Emit_Record_Type (Atype : O_Tnode; Decl : O_Dnode)
is
- use Ortho_Code.Types;
procedure Finish_Gen_Abbrev is
begin
Gen_Abbrev_Tuple (DW_AT_Byte_Size, DW_FORM_Udata);
@@ -851,7 +850,6 @@ package body Ortho_Code.Dwarf is
procedure Emit_Union_Type (Atype : O_Tnode; Decl : O_Dnode)
is
- use Ortho_Code.Types;
procedure Finish_Gen_Abbrev is
begin
Gen_Abbrev_Tuple (DW_AT_Byte_Size, DW_FORM_Udata);
@@ -958,7 +956,6 @@ package body Ortho_Code.Dwarf is
procedure Emit_Type (Atype : O_Tnode)
is
use Ortho_Code.Types;
- use Ada.Text_IO;
Kind : OT_Kind;
Decl : O_Dnode;
begin
diff --git a/src/ortho/mcode/ortho_code-x86-abi.adb b/src/ortho/mcode/ortho_code-x86-abi.adb
index 389e2bdc5..d76563a3e 100644
--- a/src/ortho/mcode/ortho_code-x86-abi.adb
+++ b/src/ortho/mcode/ortho_code-x86-abi.adb
@@ -293,7 +293,6 @@ package body Ortho_Code.X86.Abi is
procedure Disp_Irm_Code (Stmt : O_Enode)
is
- use Ortho_Code.Debug.Int32_IO;
use Ada.Text_IO;
Reg : O_Reg;
Kind : OE_Kind;
@@ -640,8 +639,6 @@ package body Ortho_Code.X86.Abi is
procedure Disp_Subprg (Subprg : O_Dnode)
is
- use Ada.Text_IO;
-
Stmt : O_Enode;
begin
Disp_Subprg_Decl (Get_Body_Decl (Subprg));
diff --git a/src/ortho/mcode/ortho_code-x86-emits.adb b/src/ortho/mcode/ortho_code-x86-emits.adb
index 9e73b2dab..d26a830f7 100644
--- a/src/ortho/mcode/ortho_code-x86-emits.adb
+++ b/src/ortho/mcode/ortho_code-x86-emits.adb
@@ -1383,7 +1383,6 @@ package body Ortho_Code.X86.Emits is
procedure Emit_Call (Stmt : O_Enode)
is
- use Ortho_Code.Decls;
Subprg : constant O_Dnode := Get_Call_Subprg (Stmt);
Sym : constant Symbol := Get_Decl_Symbol (Subprg);
Mode : constant Mode_Type := Get_Expr_Mode (Stmt);
@@ -3098,7 +3097,6 @@ package body Ortho_Code.X86.Emits is
procedure Emit_Var_Decl (Decl : O_Dnode)
is
use Decls;
- use Types;
Sym : Symbol;
begin
Sym := Create_Symbol (Get_Decl_Ident (Decl), False);
@@ -3125,7 +3123,6 @@ package body Ortho_Code.X86.Emits is
procedure Emit_Const_Decl (Decl : O_Dnode)
is
use Decls;
- use Types;
Sym : Symbol;
begin
Set_Current_Section (Sect_Rodata);
diff --git a/src/ortho/mcode/ortho_jit.adb b/src/ortho/mcode/ortho_jit.adb
index 6f4fa3769..a1979b087 100644
--- a/src/ortho/mcode/ortho_jit.adb
+++ b/src/ortho/mcode/ortho_jit.adb
@@ -23,7 +23,7 @@ with Ada.Text_IO;
with Binary_File; use Binary_File;
with Binary_File.Memory;
-with Ortho_Mcode; use Ortho_Mcode;
+with Ortho_Mcode;
with Ortho_Mcode.Jit;
with Ortho_Code.Flags; use Ortho_Code.Flags;
with Ortho_Code.Debug;