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

Subversion Repositories openrisc

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

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


generic
 
  type User_T is private;
 
package Deferred_Const4_Pkg is
 
  type T is private;
 
  Null_T : constant T;
 
private
 
  type T (Valid : Boolean := False) is record
    case Valid is
      when True  => Value : User_T;
      when False => null;
    end case;
  end record;
 
  Null_T : constant T := (Valid => False);
 
end Deferred_Const4_Pkg;

Line No.	Rev	Author	Line
1	696	jeremybenn	`generic`
2
3			`type User_T is private;`
4
5			`package Deferred_Const4_Pkg is`
6
7			`type T is private;`
8
9			`Null_T : constant T;`
10
11			`private`
12
13			`type T (Valid : Boolean := False) is record`
14			`case Valid is`
15			`when True => Value : User_T;`
16			`when False => null;`
17			`end case;`
18			`end record;`
19
20			`Null_T : constant T := (Valid => False);`
21
22			`end Deferred_Const4_Pkg;`

Browse

Tools

Subversion Repositories openrisc

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