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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [root-level_1.ads] - Blame information for rev 304

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


package Root.Level_1 is
 
   type Level_1_Type (First  : Natural;
                      Second : Natural) is new Root_Type with private;
 
private
 
   type Level_1_Type (First  : Natural;
                      Second : Natural) is new Root_Type (First => First)
   with record
      Buffer_1 : Buffer_Type (1 .. Second);
   end record;
 
end Root.Level_1;

Line No.	Rev	Author	Line
1	304	jeremybenn	`package Root.Level_1 is`
2
3			`type Level_1_Type (First : Natural;`
4			`Second : Natural) is new Root_Type with private;`
5
6			`private`
7
8			`type Level_1_Type (First : Natural;`
9			`Second : Natural) is new Root_Type (First => First)`
10			`with record`
11			`Buffer_1 : Buffer_Type (1 .. Second);`
12			`end record;`
13
14			`end Root.Level_1;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [root-level_1.ads] - Blame information for rev 304