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/] [gen_disp.ads] - Blame information for rev 316

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


with Ada.Streams, Ada.Tags;
package gen_disp is
   type Root_Type is tagged null record;
 
   function Root_Type_Class_Input
     (S    : not null access Ada.Streams.Root_Stream_Type'Class)
      return Root_Type'Class;
 
   for Root_Type'Class'Input use Root_Type_Class_Input;
end gen_disp;

Line No.	Rev	Author	Line
1	304	jeremybenn	`with Ada.Streams, Ada.Tags;`
2			`package gen_disp is`
3			`type Root_Type is tagged null record;`
4
5			`function Root_Type_Class_Input`
6			`(S : not null access Ada.Streams.Root_Stream_Type'Class)`
7			`return Root_Type'Class;`
8
9			`for Root_Type'Class'Input use Root_Type_Class_Input;`
10			`end gen_disp;`

Browse

Tools

Subversion Repositories openrisc_me

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