Subversion Repositories openrisc

with Loop_Optimization8_Pkg2;
 
package body Loop_Optimization8_Pkg1 is
 
  Data : Loop_Optimization8_Pkg2.T
    := new Loop_Optimization8_Pkg2.Obj_T'(Length =>1, Elements => (1 => 1));
 
  procedure Iter is
  begin
    for I in 1 .. Loop_Optimization8_Pkg2.Length (Data) loop
      Action (Loop_Optimization8_Pkg2.Index (Data, I));
    end loop;
  end;
 
end Loop_Optimization8_Pkg1;