From 6da1473b1729d7251e0451942aaaec6caf770c5d Mon Sep 17 00:00:00 2001 From: Adrian-Ken Rueegsegger Date: Wed, 27 Sep 2017 11:29:09 +0200 Subject: [PATCH] Drop unneeded use type clauses Signed-off-by: Adrian-Ken Rueegsegger --- src/hw-dbc-transfer_rings.adb | 2 +- src/hw-dbc-transfers.adb | 2 -- src/hw-dbc-trbs.adb | 1 - src/hw-dbc.adb | 2 +- 4 files changed, 2 insertions(+), 5 deletions(-) diff --git a/src/hw-dbc-transfer_rings.adb b/src/hw-dbc-transfer_rings.adb index f5847d9..cb2eb7e 100644 --- a/src/hw-dbc-transfer_rings.adb +++ b/src/hw-dbc-transfer_rings.adb @@ -172,8 +172,8 @@ is Status : Error; Remaining_Length : Natural) is - use type TRBs.TRB_Types; use type TRBs.Ring_Range; + Current : TRBs.Ring_Range; Invalid : Boolean; begin diff --git a/src/hw-dbc-transfers.adb b/src/hw-dbc-transfers.adb index 7d70375..3465597 100644 --- a/src/hw-dbc-transfers.adb +++ b/src/hw-dbc-transfers.adb @@ -102,7 +102,6 @@ is Len : in Natural; DMA_Off : in Natural) is - use type Word64; DMA_Buf : DMA_Buffer with Address => System'To_Address (Transfer_Info.Physical (Id)); DMA_Len : constant Natural := Natural'Min (Max_Bulk_Size - DMA_Off, Len); @@ -118,7 +117,6 @@ is Len : Natural; DMA_Off : Natural := 0) is - use type Word64; DMA_Buf : DMA_Buffer with Address => System'To_Address (Transfer_Info.Physical (Id)); DMA_Len : constant Natural := Natural'Min (Max_Bulk_Size - DMA_Off, Len); diff --git a/src/hw-dbc-trbs.adb b/src/hw-dbc-trbs.adb index 63f15c2..59e4e1a 100644 --- a/src/hw-dbc-trbs.adb +++ b/src/hw-dbc-trbs.adb @@ -25,7 +25,6 @@ is function CC_To_Usb_Error (CC : Completion_Code) return Error is - use type HW.DbC.Error; Err : Error; begin case CC is diff --git a/src/hw-dbc.adb b/src/hw-dbc.adb index 40026ff..ea4f228 100644 --- a/src/hw-dbc.adb +++ b/src/hw-dbc.adb @@ -324,7 +324,7 @@ is procedure Poll (Now : Boolean := False) is use type Word8; - use type Word64; + Temp8 : Word8; Timed_Out : Boolean; begin -- 2.30.2