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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [parent_ltd_with.ads] - Blame information for rev 304

Details | Compare with Previous | View Log


limited with Parent_Ltd_With.Child_Full_View;
 
package Parent_Ltd_With is
 
   type Symbol is abstract tagged limited private;
 
   type Symbol_Access is access all Symbol'Class;
 
private
 
   type Symbol is abstract tagged limited record
      Comp : Integer;
   end record;
 
end Parent_Ltd_With;

Line No.	Rev	Author	Line
1	304	jeremybenn	`limited with Parent_Ltd_With.Child_Full_View;`
2
3			`package Parent_Ltd_With is`
4
5			`type Symbol is abstract tagged limited private;`
6
7			`type Symbol_Access is access all Symbol'Class;`
8
9			`private`
10
11			`type Symbol is abstract tagged limited record`
12			`Comp : Integer;`
13			`end record;`
14
15			`end Parent_Ltd_With;`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [parent_ltd_with.ads] - Blame information for rev 304