src/float/transcendental/cl_F_ln10_var.cc

   1 // cl_F_ln10.
   2
   3 // General includes.
   4 #include "base/cl_sysdep.h"
   5
   6 // Specification.
   7 #include "float/transcendental/cl_F_tran.h"
   8
   9
  10 // Implementation.
  11
  12 #include "base/digitseq/cl_DS.h"
  13 #include "float/lfloat/cl_LF.h"
  14 #include "float/lfloat/cl_LF_impl.h"
  15 #include "float/cl_F.h"
  16
  17 namespace cln {
  18
  19 cl_LF& cl_LF_ln10()
  20 {
  21         // Mantisse von ln(10) :
  22         static const uintD ln10_mantisse [64/intDsize] =
  23                 #include "cl_F_ln10_var.h"
  24         static cl_LF val = encode_LF_array(0,2,ln10_mantisse,64/intDsize);
  25         return val;
  26 }
  27
  28 // Problem: If someone changes free_hook, the destructor of this
  29 // will call the new hook, passing it some pointer obtained by the old
  30 // malloc_hook. ??
  31
  32 const cl_SF& cl_SF_ln10()
  33 {
  34         static const cl_SF val = cl_LF_to_SF(cl_LF_ln10());
  35         return val;
  36 }
  37
  38 const cl_FF& cl_FF_ln10()
  39 {
  40         static const cl_FF val = cl_LF_to_FF(cl_LF_ln10());
  41         return val;
  42 }
  43
  44 const cl_DF& cl_DF_ln10()
  45 {
  46         static const cl_DF val = cl_LF_to_DF(cl_LF_ln10());
  47         return val;
  48 }
  49
  50 }  // namespace cln
  51