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

Subversion Repositories openrisc

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

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	696	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

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