You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
52 lines
918 B
52 lines
918 B
// cl_SF_pi(), cl_FF_pi(), cl_DF_pi(), cl_LF_pi().
|
|
|
|
// 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_pi()
|
|
{
|
|
// Mantisse von pi :
|
|
static const uintD pi_mantisse [2048/intDsize] =
|
|
#include "cl_F_pi_var.h"
|
|
static cl_LF val = encode_LF_array(0,2,pi_mantisse,2048/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_pi()
|
|
{
|
|
static const cl_SF val = cl_LF_to_SF(cl_LF_pi());
|
|
return val;
|
|
}
|
|
|
|
const cl_DF& cl_DF_pi()
|
|
{
|
|
static const cl_DF val = cl_LF_to_DF(cl_LF_pi());
|
|
return val;
|
|
}
|
|
|
|
const cl_FF& cl_FF_pi()
|
|
{
|
|
static const cl_FF val = cl_LF_to_FF(cl_LF_pi());
|
|
return val;
|
|
}
|
|
|
|
} // namespace cln
|
|
|