Subversion Repositories openrisc

package Opt18_Pkg is

   pragma Pure;

   type Limit_Type is record

      Low  : Float;

      High : Float;

   end record;

   function First_Order_Trig return Float;

  type Trig_Pair_Type is

   record

      Sin : Float;

      Cos : Float;

   end record;

   function Atan2 (Trig : in Trig_Pair_Type) return Float;

   function Unchecked_Trig_Pair (Sin, Cos : in Float) return Trig_Pair_Type;

   function Double_Trig (Trig : in Trig_Pair_Type) return Trig_Pair_Type;

   function Sqrt (X : Float) return Float;

end Opt18_Pkg;