Simplify Walk_Finished procedure
[libxhcidbg.git] / src / hw-dbc-transfer_info.adb
index 44165d92d25538ba0cbe87a4e6309b99e770bf38..b49264fee53c26804dad3e4baf9405b0109beab1 100644 (file)
@@ -279,8 +279,6 @@ is
       Id          :    out Transfer_Id;
       Success     :    out Boolean)
    is
-      generic
-         Endpoint : Endpoint_Range;
       function Check_Finished (Id : Transfer_Id) return Boolean;
       function Check_Finished (Id : Transfer_Id) return Boolean
       is
@@ -290,8 +288,8 @@ is
             Xfers (Id).Started and
             Xfers (Id).Finished;
       end Check_Finished;
-      function Check_Finished_Inst is new Check_Finished (Endpoint);
-      procedure Walk_Finished_Inst is new Walk (Check_Finished_Inst);
+
+      procedure Walk_Finished_Inst is new Walk (Check_Finished);
    begin
       Walk_Finished_Inst (Minimum_Ctr, Id, Success);
    end Walk_Finished;