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 747

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


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;

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;`

Browse

Tools

Subversion Repositories openrisc

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