17
procedure Op (Container :
Container_Type
) is
procedure Process (C : Cursor) is
E : constant
Element_Type
:= Element (C);
begin
Do_Something (E);
end;
begin
Container.Reverse_Iterate (Process’Access);
end Op;
Passive Iteration In Reverse