Subversion Repositories openrisc

package Lto10_Pkg is
 
   type U16 is mod 2 ** 16;
 
   type Position is record
      X, Y, Z : U16;
   end record;
   for Position'Size use 48;
 
   type Pixel is record
      Pos : Position;
   end record;
   pragma Pack (Pixel);
 
   Minus_One : Integer := -1;
   Pix : Pixel := (Pos => (X => 0, Y => 0, Z => 0));
 
end Lto10_Pkg;