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

Subversion Repositories openrisc

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

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	696	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

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