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

Subversion Repositories openrisc

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

Go to most recent revision | Details | Compare with Previous | View Log


generic
 
   type T is private;
 
package Prot2_Pkg2 is
 
   type Id is private;
 
   procedure Create (B : out Id);
   procedure Delete (B : in out Id);
 
private
 
   type Rec;
   type Id is access Rec;
 
end Prot2_Pkg2;

Line No.	Rev	Author	Line
1	696	jeremybenn	`generic`
2
3			`type T is private;`
4
5			`package Prot2_Pkg2 is`
6
7			`type Id is private;`
8
9			`procedure Create (B : out Id);`
10			`procedure Delete (B : in out Id);`
11
12			`private`
13
14			`type Rec;`
15			`type Id is access Rec;`
16
17			`end Prot2_Pkg2;`

Browse

Tools

Subversion Repositories openrisc

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