Drop unneeded use type clauses

Signed-off-by: Adrian-Ken Rueegsegger <ken@codelabs.ch>

diff --git a/src/hw-dbc-transfer_rings.adb b/src/hw-dbc-transfer_rings.adb
index f5847d999d2d3cf88542a95424b78a9bf38dce4c..cb2eb7e032f87200f344782159afe7d1623b6f10 100644 (file)
--- 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
       Status            : Error;
       Remaining_Length  : Natural)
    is

-      use type TRBs.TRB_Types;

       use type TRBs.Ring_Range;
       use type TRBs.Ring_Range;

+

       Current : TRBs.Ring_Range;
       Invalid : Boolean;
    begin
       Current : TRBs.Ring_Range;
       Invalid : Boolean;
    begin

diff --git a/src/hw-dbc-transfers.adb b/src/hw-dbc-transfers.adb
index 7d7037536f34bb123469a62875145e402aab8f4c..346559764f6c6d8ce4c8412a3367d23cd30378c3 100644 (file)
--- 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
       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);
       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
       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);
       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 63f15c2605c8306a1447354824cb8e4436fbf3b4..59e4e1a12446910dd4eae96596d135d6e2f5033e 100644 (file)
--- 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
 
    function CC_To_Usb_Error (CC : Completion_Code) return Error
    is

-      use type HW.DbC.Error;

       Err : Error;
    begin
       case CC is
       Err : Error;
    begin
       case CC is

diff --git a/src/hw-dbc.adb b/src/hw-dbc.adb
index 40026ff4f613e1c195990fc528badf2bc1901b8b..ea4f228e449a2d52f6d1f8718f9c82bb9eaedf79 100644 (file)
--- a/src/hw-dbc.adb
+++ b/src/hw-dbc.adb
@@ -324,7 +324,7 @@ is
    procedure Poll (Now : Boolean := False)
    is
       use type Word8;
    procedure Poll (Now : Boolean := False)
    is
       use type Word8;

-      use type Word64;
+

       Temp8 : Word8;
       Timed_Out : Boolean;
    begin
       Temp8 : Word8;
       Timed_Out : Boolean;
    begin