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

Subversion Repositories openrisc

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

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


package Aggr16_Pkg is
 
  type Time_Type is (A, B);
 
  type Time (D : Time_Type := A) is private;
 
  Null_Time : constant Time;
 
private
 
  type Hour is record
    I1 : Integer;
    I2 : Integer;
  end record;
 
  type Time (D : Time_Type := A) is record
    case D is
      when A =>
        A_Time : Integer;
      when B =>
        B_Time : Hour;
    end case;
  end record;
 
  Null_Time : constant Time := (A, 0);
 
end Aggr16_Pkg;

Line No.	Rev	Author	Line
1	696	jeremybenn	`package Aggr16_Pkg is`
2
3			`type Time_Type is (A, B);`
4
5			`type Time (D : Time_Type := A) is private;`
6
7			`Null_Time : constant Time;`
8
9			`private`
10
11			`type Hour is record`
12			`I1 : Integer;`
13			`I2 : Integer;`
14			`end record;`
15
16			`type Time (D : Time_Type := A) is record`
17			`case D is`
18			`when A =>`
19			`A_Time : Integer;`
20			`when B =>`
21			`B_Time : Hour;`
22			`end case;`
23			`end record;`
24
25			`Null_Time : constant Time := (A, 0);`
26
27			`end Aggr16_Pkg;`

Browse

Tools

Subversion Repositories openrisc

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