blob: 261ffea94f7a59369f1ad4476e50f9b605d7d88f [file] [log] [blame]
package body Generic_Inst7_Pkg is
use type Generic_Inst7_Types.Index;
procedure Process (List : in out Generic_Inst7_Types.List) is
begin
for I in Generic_Inst7_Types.Index range 1 .. List.Arr'length loop
null;
end loop;
end Process;
end Generic_Inst7_Pkg;