Subversion Repositories openrisc

package debug1 is

  type Vector is array (Natural range <>) of Natural;

  type Vector_Access is access Vector;

  type Data_Line is record

    Length : Vector (1 .. 1);

    Line   : Vector_Access;

  end record;

  type Data_Block is array (1 .. 5) of Data_Line;

  type Data_Block_Access is access Data_Block;

  type Vector_Ptr is access Vector;

  type Meta_Data is record

    Vector_View : Vector_Ptr;

    Block_View  : Data_Block_Access;

  end record;

end;