]> www.ginac.de Git - cln.git/blob - src/float/transcendental/cl_F_exp1_var.cc
a68310d2cb83be5b4a1154d00aa7aa093ee59e98
[cln.git] / src / float / transcendental / cl_F_exp1_var.cc
1 // cl_F_exp1.
2
3 // General includes.
4 #include "cl_sysdep.h"
5
6 CL_PROVIDE(cl_F_exp1_var)
7
8 // Specification.
9 #include "cl_F_tran.h"
10
11
12 // Implementation.
13
14 #include "cl_DS.h"
15 #include "cl_LF.h"
16 #include "cl_LF_impl.h"
17 #include "cl_F.h"
18
19 namespace cln {
20
21 // Mantisse von exp(1) :
22   static const uintD exp1_mantisse [64/intDsize] =
23     #include "cl_F_exp1_var.h"
24
25 cl_LF cl_LF_exp1 = encode_LF_array(0,2,exp1_mantisse,64/intDsize);
26
27 // Problem: If someone changes free_hook, the destructor of this
28 // will call the new hook, passing it some pointer obtained by the old
29 // malloc_hook. ??
30
31 const cl_SF cl_SF_exp1 = cl_LF_to_SF(cl_LF_exp1);
32 const cl_FF cl_FF_exp1 = cl_LF_to_FF(cl_LF_exp1);
33 const cl_DF cl_DF_exp1 = cl_LF_to_DF(cl_LF_exp1);
34
35 }  // namespace cln
36
37 CL_PROVIDE_END(cl_F_exp1_var)