OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [lto10_pkg.ads] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 696 jeremybenn
package Lto10_Pkg is
2
 
3
   type U16 is mod 2 ** 16;
4
 
5
   type Position is record
6
      X, Y, Z : U16;
7
   end record;
8
   for Position'Size use 48;
9
 
10
   type Pixel is record
11
      Pos : Position;
12
   end record;
13
   pragma Pack (Pixel);
14
 
15
   Minus_One : Integer := -1;
16
   Pix : Pixel := (Pos => (X => 0, Y => 0, Z => 0));
17
 
18
end Lto10_Pkg;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.