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

Subversion Repositories openrisc

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

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


with Discr8_Pkg1; use Discr8_Pkg1;
 
package Discr8 is
 
  type Tag_T is (Tag_One, Tag_Two);
 
  type Local_T (Tag : Tag_T := Tag_One) is
    record
      case Tag is
        when Tag_One =>
          A : T;
          B : Integer;
        when Tag_Two =>
          null;
      end case;
    end record;
 
  procedure Make (C : out Local_T);
 
end Discr8;

Line No.	Rev	Author	Line
1	696	jeremybenn	`with Discr8_Pkg1; use Discr8_Pkg1;`
2
3			`package Discr8 is`
4
5			`type Tag_T is (Tag_One, Tag_Two);`
6
7			`type Local_T (Tag : Tag_T := Tag_One) is`
8			`record`
9			`case Tag is`
10			`when Tag_One =>`
11			`A : T;`
12			`B : Integer;`
13			`when Tag_Two =>`
14			`null;`
15			`end case;`
16			`end record;`
17
18			`procedure Make (C : out Local_T);`
19
20			`end Discr8;`

Browse

Tools

Subversion Repositories openrisc

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