From 2891b9661aa547095732cad759bc3805a238269e Mon Sep 17 00:00:00 2001
From: Truls Asheim <truls@asheim.dk>
Date: Tue, 29 May 2018 21:52:49 +0200
Subject: Remove redundant use-clauses for gcc 8.1 compatibility

---
 src/ortho/mcode/ortho_code-decls.adb     | 1 -
 src/ortho/mcode/ortho_code-dwarf.adb     | 3 ---
 src/ortho/mcode/ortho_code-x86-abi.adb   | 3 ---
 src/ortho/mcode/ortho_code-x86-emits.adb | 3 ---
 src/ortho/mcode/ortho_jit.adb            | 2 +-
 5 files changed, 1 insertion(+), 11 deletions(-)

(limited to 'src/ortho/mcode')

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;
-- 
cgit v1.2.3