Make Check_Finished a regular nested function instead of a nested generic
function that needs to be instantiated.
Signed-off-by: Adrian-Ken Rueegsegger <ken@codelabs.ch>
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
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;