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.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [controlled5_pkg.ads] - Blame information for rev 384

Details | Compare with Previous | View Log


with Ada.Finalization; use Ada.Finalization;
 
package Controlled5_Pkg is
 
   type Root is tagged private;
 
   type Inner is new Ada.Finalization.Controlled with null record;
 
   type T_Root_Class is access all Root'Class;
 
   function Dummy (I : Integer) return Root'Class;
 
private
 
   type Root is tagged record
      F2 : Inner;
   end record;
 
end Controlled5_Pkg;

Line No.	Rev	Author	Line
1	304	jeremybenn	`with Ada.Finalization; use Ada.Finalization;`
2
3			`package Controlled5_Pkg is`
4
5			`type Root is tagged private;`
6
7			`type Inner is new Ada.Finalization.Controlled with null record;`
8
9			`type T_Root_Class is access all Root'Class;`
10
11			`function Dummy (I : Integer) return Root'Class;`
12
13			`private`
14
15			`type Root is tagged record`
16			`F2 : Inner;`
17			`end record;`
18
19			`end Controlled5_Pkg;`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [controlled5_pkg.ads] - Blame information for rev 384