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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


package Parent_Ltd_With.Child_Full_View is
 
   type Child_Symbol is new Parent_Ltd_With.Symbol with private;
   type Child_Symbol_Access is access all Child_Symbol;
 
   function New_Child_Symbol return Child_Symbol_Access;
 
private
 
   type Child_Symbol is new Parent_Ltd_With.Symbol with null record;
 
end Parent_Ltd_With.Child_Full_View;

Line No.	Rev	Author	Line
1	696	jeremybenn	`package Parent_Ltd_With.Child_Full_View is`
2
3			`type Child_Symbol is new Parent_Ltd_With.Symbol with private;`
4			`type Child_Symbol_Access is access all Child_Symbol;`
5
6			`function New_Child_Symbol return Child_Symbol_Access;`
7
8			`private`
9
10			`type Child_Symbol is new Parent_Ltd_With.Symbol with null record;`
11
12			`end Parent_Ltd_With.Child_Full_View;`

Browse

Tools

Subversion Repositories openrisc

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