@ -3,8 +3,6 @@
// General includes.
// General includes.
# include "cl_sysdep.h"
# include "cl_sysdep.h"
CL_PROVIDE ( cl_F_ln10_var )
// Specification.
// Specification.
# include "cl_F_tran.h"
# include "cl_F_tran.h"
@ -18,20 +16,36 @@ CL_PROVIDE(cl_F_ln10_var)
namespace cln {
namespace cln {
// Mantisse von ln(10) :
cl_LF & cl_LF_ln10 ( )
{
// Mantisse von ln(10) :
static const uintD ln10_mantisse [ 64 / intDsize ] =
static const uintD ln10_mantisse [ 64 / intDsize ] =
# include "cl_F_ln10_var.h"
# include "cl_F_ln10_var.h"
cl_LF cl_LF_ln10 = encode_LF_array ( 0 , 2 , ln10_mantisse , 64 / intDsize ) ;
static cl_LF val = encode_LF_array ( 0 , 2 , ln10_mantisse , 64 / intDsize ) ;
return val ;
}
// Problem: If someone changes free_hook, the destructor of this
// Problem: If someone changes free_hook, the destructor of this
// will call the new hook, passing it some pointer obtained by the old
// will call the new hook, passing it some pointer obtained by the old
// malloc_hook. ??
// malloc_hook. ??
const cl_SF cl_SF_ln10 = cl_LF_to_SF ( cl_LF_ln10 ) ;
const cl_FF cl_FF_ln10 = cl_LF_to_FF ( cl_LF_ln10 ) ;
const cl_DF cl_DF_ln10 = cl_LF_to_DF ( cl_LF_ln10 ) ;
const cl_SF & cl_SF_ln10 ( )
{
static const cl_SF val = cl_LF_to_SF ( cl_LF_ln10 ( ) ) ;
return val ;
}
const cl_FF & cl_FF_ln10 ( )
{
static const cl_FF val = cl_LF_to_FF ( cl_LF_ln10 ( ) ) ;
return val ;
}
const cl_DF & cl_DF_ln10 ( )
{
static const cl_DF val = cl_LF_to_DF ( cl_LF_ln10 ( ) ) ;
return val ;
}
} // namespace cln
} // namespace cln
CL_PROVIDE_END ( cl_F_ln10_var )