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
   7 // Specification.
   8 #include "cl_F_tran.h"
   9
  10
  11 // Implementation.
  12
  13 #include "cl_DS.h"
  14 #include "cl_LF.h"
  15 #include "cl_LF_impl.h"
  16 #include "cl_F.h"
  17
  18 namespace cln {
  19
  20 cl_LF& cl_LF_pi()
  21 {
  22         // Mantisse von pi :
  23         static const uintD pi_mantisse [2048/intDsize] =
  24                 #include "cl_F_pi_var.h"
  25         static cl_LF val = encode_LF_array(0,2,pi_mantisse,2048/intDsize);
  26         return val;
  27 }
  28
  29 // Problem: If someone changes free_hook, the destructor of this
  30 // will call the new hook, passing it some pointer obtained by the old
  31 // malloc_hook. ??
  32
  33 const cl_SF& cl_SF_pi()
  34 {
  35         static const cl_SF val = cl_LF_to_SF(cl_LF_pi());
  36         return val;
  37 }
  38
  39 const cl_DF& cl_DF_pi()
  40 {
  41         static const cl_DF val = cl_LF_to_DF(cl_LF_pi());
  42         return val;
  43 }
  44
  45 const cl_FF& cl_FF_pi()
  46 {
  47         static const cl_FF val = cl_LF_to_FF(cl_LF_pi());
  48         return val;
  49 }
  50
  51 }  // namespace cln
  52