diff options
Diffstat (limited to 'src/ortho')
-rw-r--r-- | src/ortho/mcode/ortho_code-decls.adb | 1 | ||||
-rw-r--r-- | src/ortho/mcode/ortho_code-dwarf.adb | 3 | ||||
-rw-r--r-- | src/ortho/mcode/ortho_code-x86-abi.adb | 3 | ||||
-rw-r--r-- | src/ortho/mcode/ortho_code-x86-emits.adb | 3 | ||||
-rw-r--r-- | src/ortho/mcode/ortho_jit.adb | 2 |
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; |