51 lines
900 B
51 lines
900 B
// cl_F_exp1.
|
|
|
|
// General includes.
|
|
#include "cl_sysdep.h"
|
|
|
|
// Specification.
|
|
#include "cl_F_tran.h"
|
|
|
|
|
|
// Implementation.
|
|
|
|
#include "cl_DS.h"
|
|
#include "cl_LF.h"
|
|
#include "cl_LF_impl.h"
|
|
#include "cl_F.h"
|
|
|
|
namespace cln {
|
|
|
|
cl_LF& cl_LF_exp1()
|
|
{
|
|
// Mantisse von exp(1) :
|
|
static const uintD exp1_mantisse [64/intDsize] =
|
|
#include "cl_F_exp1_var.h"
|
|
static cl_LF val = encode_LF_array(0,2,exp1_mantisse,64/intDsize);
|
|
return val;
|
|
}
|
|
|
|
// Problem: If someone changes free_hook, the destructor of this
|
|
// will call the new hook, passing it some pointer obtained by the old
|
|
// malloc_hook. ??
|
|
|
|
const cl_SF& cl_SF_exp1()
|
|
{
|
|
static const cl_SF val = cl_LF_to_SF(cl_LF_exp1());
|
|
return val;
|
|
}
|
|
|
|
const cl_FF& cl_FF_exp1()
|
|
{
|
|
static const cl_FF val = cl_LF_to_FF(cl_LF_exp1());
|
|
return val;
|
|
}
|
|
|
|
const cl_DF& cl_DF_exp1()
|
|
{
|
|
static const cl_DF val = cl_LF_to_DF(cl_LF_exp1());
|
|
return val;
|
|
}
|
|
|
|
} // namespace cln
|
|
|