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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [assign_from_packed_pixels.ads] - Blame information for rev 304

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


 
package Assign_From_Packed_Pixels 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;

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

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [assign_from_packed_pixels.ads] - Blame information for rev 304