Update known-to-work-with compilers.

[cln.git] / src / float / transcendental / cl_F_exp1_var.cc

diff --git a/src/float/transcendental/cl_F_exp1_var.cc b/src/float/transcendental/cl_F_exp1_var.cc
index a68310d2cb83be5b4a1154d00aa7aa093ee59e98..da1283d2346c9b6ca6e2d75fd07a804a29c31e10 100644 (file)
--- a/src/float/transcendental/cl_F_exp1_var.cc
+++ b/src/float/transcendental/cl_F_exp1_var.cc
@@ -1,37 +1,51 @@
 // cl_F_exp1.
 
 // General includes.
-#include "cl_sysdep.h"
-
-CL_PROVIDE(cl_F_exp1_var)
+#include "base/cl_sysdep.h"
 
 // Specification.
-#include "cl_F_tran.h"
+#include "float/transcendental/cl_F_tran.h"
 
 
 // Implementation.
 
-#include "cl_DS.h"
-#include "cl_LF.h"
-#include "cl_LF_impl.h"
-#include "cl_F.h"
+#include "base/digitseq/cl_DS.h"
+#include "float/lfloat/cl_LF.h"
+#include "float/lfloat/cl_LF_impl.h"
+#include "float/cl_F.h"
 
 namespace cln {
 
-// Mantisse von exp(1) :
-  static const uintD exp1_mantisse [64/intDsize] =
-    #include "cl_F_exp1_var.h"
-
-cl_LF cl_LF_exp1 = encode_LF_array(0,2,exp1_mantisse,64/intDsize);
+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 = cl_LF_to_SF(cl_LF_exp1);
-const cl_FF cl_FF_exp1 = cl_LF_to_FF(cl_LF_exp1);
-const cl_DF cl_DF_exp1 = cl_LF_to_DF(cl_LF_exp1);
+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
 
-CL_PROVIDE_END(cl_F_exp1_var)