From 2891b9661aa547095732cad759bc3805a238269e Mon Sep 17 00:00:00 2001 From: Truls Asheim Date: Tue, 29 May 2018 21:52:49 +0200 Subject: Remove redundant use-clauses for gcc 8.1 compatibility --- src/ortho/mcode/ortho_code-dwarf.adb | 3 --- 1 file changed, 3 deletions(-) (limited to 'src/ortho/mcode/ortho_code-dwarf.adb') 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 -- cgit v1.2.3