src/float/transcendental/cl_F_pi_var.cc

   1 // cl_SF_pi, cl_FF_pi, cl_DF_pi, cl_LF_pi.
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 CL_PROVIDE(cl_F_pi_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 von pi :
  20   static const uintD pi_mantisse [2048/intDsize] =
  21     #include "cl_F_pi_var.h"
  22
  23 cl_LF cl_LF_pi = encode_LF_array(0,2,pi_mantisse,2048/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_pi = cl_LF_to_SF(cl_LF_pi);
  30 const cl_FF cl_FF_pi = cl_LF_to_FF(cl_LF_pi);
  31 const cl_DF cl_DF_pi = cl_LF_to_DF(cl_LF_pi);
  32
  33 CL_PROVIDE_END(cl_F_pi_var)