--
-- This package is the GNAT/AdaCore Ada.Numerics.Aux ... Defined to
-- to remove gcc warning when compiling Cheddar
--
--

package Doubles is


   pragma Linker_Options ("-lm");


   subtype Double is Long_Float; -- implementation dependent
   

   function Exp (X : Double) return Double;
   pragma Import (C, Exp, "exp");

   function Sqrt (X : Double) return Double;
   pragma Import (C, Sqrt, "sqrt");

   function Log (X : Double) return Double;
   pragma Import (C, Log, "log");

   function Pow (X, Y : Double) return Double;
   pragma Import (C, Pow, "pow");

end Doubles;