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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 696 jeremybenn
package Opt18 is
2
 
3
   type Cart_Axis_Type is (X, Y, Z);
4
 
5
   type Cart_Vector_Type is array (Cart_Axis_Type) of Float;
6
 
7
   function Mag (Item : in Cart_Vector_Type) return Float;
8
 
9
   type Unit_Vector_Type is array (Cart_Axis_Type) of Float;
10
 
11
   type Mag_Axis_Type is
12
   record
13
      Mag  : Float;
14
      Axis : Unit_Vector_Type;
15
   end record;
16
 
17
   type Unit_Quaternion_Type is record
18
      X : Float;
19
      Y : Float;
20
      Z : Float;
21
      S : Float;
22
   end record;
23
 
24
   function Unit_Quaternion_To_Mag_Axis (Quaternion : in Unit_Quaternion_Type)
25
     return Mag_Axis_Type;
26
 
27
   X_Unit : constant Unit_Vector_Type := (1.0, 0.0, 0.0);
28
 
29
end Opt18;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.