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

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


with Ada.Finalization; use Ada.Finalization;
 
package Enum2_Pkg is
  type F_String is new Controlled with record
    Data : access String;
  end record;
  Null_String : constant F_String := (Controlled with Data => null);
end Enum2_Pkg;

Line No.	Rev	Author	Line
1	304	jeremybenn	`with Ada.Finalization; use Ada.Finalization;`
2
3			`package Enum2_Pkg is`
4			`type F_String is new Controlled with record`
5			`Data : access String;`
6			`end record;`
7			`Null_String : constant F_String := (Controlled with Data => null);`
8			`end Enum2_Pkg;`

Browse

Tools

Subversion Repositories openrisc_me

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