URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [discr11_pkg.ads] - Blame information for rev 338

Details | Compare with Previous | View Log


package Discr11_Pkg is
   type DT_1 (<>) is tagged private;
   function Create return DT_1;
private
   type DT_1 (Size : Positive) is tagged record
      Data : String (1 .. Size);
   end record;
end Discr11_Pkg;

Line No.	Rev	Author	Line
1	304	jeremybenn	`package Discr11_Pkg is`
2			`type DT_1 (<>) is tagged private;`
3			`function Create return DT_1;`
4			`private`
5			`type DT_1 (Size : Positive) is tagged record`
6			`Data : String (1 .. Size);`
7			`end record;`
8			`end Discr11_Pkg;`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [discr11_pkg.ads] - Blame information for rev 338