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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


generic
 
  N : Natural;
 
package Discr25_Pkg is
 
  type T is private;
 
  procedure Proc1 (Set : in out T);
 
private
  type Obj_T (Size_Max : Natural);
  type T is access Obj_T;
 
end Discr25_Pkg;

Line No.	Rev	Author	Line
1	696	jeremybenn	`generic`
2
3			`N : Natural;`
4
5			`package Discr25_Pkg is`
6
7			`type T is private;`
8
9			`procedure Proc1 (Set : in out T);`
10
11			`private`
12			`type Obj_T (Size_Max : Natural);`
13			`type T is access Obj_T;`
14
15			`end Discr25_Pkg;`

Browse

Tools

Subversion Repositories openrisc

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