src/float/transcendental/cl_F_eulerconst_var.cc

   1 // cl_F_eulerconst.
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 CL_PROVIDE(cl_F_eulerconst_var)
   7
   8 // Specification.
   9 #include "cl_F_tran.h"
  10
  11
  12 // Implementation.
  13
  14 #include "cl_DS.h"
  15 #include "cl_LF.h"
  16 #include "cl_LF_impl.h"
  17 #include "cl_F.h"
  18
  19 // Mantisse der Eulerschen Konstante :
  20   static const uintD eulerconst_mantisse [64/intDsize] =
  21     #include "cl_F_eulerconst_var.h"
  22
  23 cl_LF cl_LF_eulerconst = encode_LF_array(0,0,eulerconst_mantisse,64/intDsize);
  24
  25 // Problem: If someone changes cl_free_hook, the destructor of this
  26 // will call the new hook, passing it some pointer obtained by the old
  27 // cl_malloc_hook. ??
  28
  29 const cl_SF cl_SF_eulerconst = cl_LF_to_SF(cl_LF_eulerconst);
  30 const cl_FF cl_FF_eulerconst = cl_LF_to_FF(cl_LF_eulerconst);
  31 const cl_DF cl_DF_eulerconst = cl_LF_to_DF(cl_LF_eulerconst);
  32
  33 CL_PROVIDE_END(cl_F_eulerconst_var)