Subversion Repositories openrisc

package Opt23_Pkg is
 
   function N return Positive;
   pragma Import (Ada, N);
 
   type Path is array(1 .. N) of Long_Float;
   type Path_Vector is array (Positive range <>) of Path;
   type Path_Vector_P is access all Path_Vector;
   type Path_Vector_PV is array(Positive range <>) of Path_Vector_P;
   type Path_Vector_P2 is access all Path_Vector_PV;
 
   type Vector is array (Positive range <>) of Natural;
   type Vector_Access is access Vector;
 
   type Rec is record
      Val  : Path_Vector_P2;
      Step : Vector_Access;
   end record;
 
   function Get (R : Rec; I : Positive; M : Natural) return Path;
   pragma Inline (Get);
 
end Opt23_Pkg;