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

Subversion Repositories openrisc

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

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


package Discr21_Pkg is
 
  type Position is record
    x,y,z : Float;
  end record;
 
  type Dim is (Two, Three);
 
  type VPosition (D: Dim := Three) is record
    x, y : Float;
    case D is
      when Two => null;
      when Three => z : Float;
    end case;
  end record;
 
  function To_Position (x, y, z : Float) return VPosition;
 
end Discr21_Pkg;

Line No.	Rev	Author	Line
1	696	jeremybenn	`package Discr21_Pkg is`
2
3			`type Position is record`
4			`x,y,z : Float;`
5			`end record;`
6
7			`type Dim is (Two, Three);`
8
9			`type VPosition (D: Dim := Three) is record`
10			`x, y : Float;`
11			`case D is`
12			`when Two => null;`
13			`when Three => z : Float;`
14			`end case;`
15			`end record;`
16
17			`function To_Position (x, y, z : Float) return VPosition;`
18
19			`end Discr21_Pkg;`

Browse

Tools

Subversion Repositories openrisc

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