Subversion Repositories openrisc

with Ada.Finalization;
 
package Loop_Optimization8_Pkg1 is
 
  type Array_T is array (Positive range <>) of Natural;
 
  type Array_Access_T is access Array_T;
 
  type T is new Ada.Finalization.Controlled with record
    Last : Natural := 0;
    Elements : Array_Access_T;
  end record;
 
  Empty : T := (Ada.Finalization.Controlled with Last => 0, Elements => null);
 
  generic
    with procedure Action (Info : Natural);
  procedure Iter;
 
end Loop_Optimization8_Pkg1;