From eedac861e082bb3e12392e0037842470310f80d6 Mon Sep 17 00:00:00 2001 From: Alexei Sheplyakov Date: Thu, 21 Aug 2008 18:14:24 +0400 Subject: [PATCH] Get rid of CL_REQUIRE/CL_PROVIDE(cl_F_ln10_var). Turn cl_[SDFL]F_ln10 global variables into functions (which return a constant reference to the static value) in order to avoid static initialization order problems. --- src/float/output/cl_F_dprint.cc | 1 - src/float/transcendental/cl_F_ln10.cc | 6 ++-- src/float/transcendental/cl_F_ln10_f.cc | 6 ++-- src/float/transcendental/cl_F_ln10_var.cc | 36 ++++++++++++++++------- src/float/transcendental/cl_F_tran.h | 9 +++--- src/float/transcendental/cl_LF_ln10.cc | 12 ++++---- 6 files changed, 41 insertions(+), 29 deletions(-) diff --git a/src/float/output/cl_F_dprint.cc b/src/float/output/cl_F_dprint.cc index 83f3db2..e3deccc 100644 --- a/src/float/output/cl_F_dprint.cc +++ b/src/float/output/cl_F_dprint.cc @@ -28,7 +28,6 @@ // einen String mit seiner Dezimaldarstellung. // (substring string start [end]) wie subseq, jedoch für Strings schneller. -CL_REQUIRE(cl_F_ln10_var) #include #include "cln/output.h" #include "cl_sstring.h" diff --git a/src/float/transcendental/cl_F_ln10.cc b/src/float/transcendental/cl_F_ln10.cc index f6367bf..b3d581e 100644 --- a/src/float/transcendental/cl_F_ln10.cc +++ b/src/float/transcendental/cl_F_ln10.cc @@ -17,9 +17,9 @@ namespace cln { const cl_F cl_ln10 (const cl_F& y) { floattypecase(y - , return cl_SF_ln10; - , return cl_FF_ln10; - , return cl_DF_ln10; + , return cl_SF_ln10(); + , return cl_FF_ln10(); + , return cl_DF_ln10(); , return cl_ln10(TheLfloat(y)->len); ); } diff --git a/src/float/transcendental/cl_F_ln10_f.cc b/src/float/transcendental/cl_F_ln10_f.cc index 2c0332b..74aa5ce 100644 --- a/src/float/transcendental/cl_F_ln10_f.cc +++ b/src/float/transcendental/cl_F_ln10_f.cc @@ -16,9 +16,9 @@ namespace cln { const cl_F cl_ln10 (float_format_t f) { floatformatcase((uintC)f - , return cl_SF_ln10; - , return cl_FF_ln10; - , return cl_DF_ln10; + , return cl_SF_ln10(); + , return cl_FF_ln10(); + , return cl_DF_ln10(); , return cl_ln10(len); ); } diff --git a/src/float/transcendental/cl_F_ln10_var.cc b/src/float/transcendental/cl_F_ln10_var.cc index 46a1e8d..4cc443d 100644 --- a/src/float/transcendental/cl_F_ln10_var.cc +++ b/src/float/transcendental/cl_F_ln10_var.cc @@ -3,8 +3,6 @@ // General includes. #include "cl_sysdep.h" -CL_PROVIDE(cl_F_ln10_var) - // Specification. #include "cl_F_tran.h" @@ -18,20 +16,36 @@ CL_PROVIDE(cl_F_ln10_var) namespace cln { -// Mantisse von ln(10) : - static const uintD ln10_mantisse [64/intDsize] = - #include "cl_F_ln10_var.h" - -cl_LF cl_LF_ln10 = encode_LF_array(0,2,ln10_mantisse,64/intDsize); +cl_LF& cl_LF_ln10() +{ + // Mantisse von ln(10) : + static const uintD ln10_mantisse [64/intDsize] = + #include "cl_F_ln10_var.h" + 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 // will call the new hook, passing it some pointer obtained by the old // 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 -CL_PROVIDE_END(cl_F_ln10_var) diff --git a/src/float/transcendental/cl_F_tran.h b/src/float/transcendental/cl_F_tran.h index 5ad4da0..b91d00c 100644 --- a/src/float/transcendental/cl_F_tran.h +++ b/src/float/transcendental/cl_F_tran.h @@ -99,12 +99,11 @@ extern const cl_F cl_ln2 (const cl_F& y); extern const cl_F cl_ln2 (float_format_t f); // ln(10). -extern const cl_SF cl_SF_ln10; -extern const cl_FF cl_FF_ln10; -extern const cl_DF cl_DF_ln10; -extern cl_LF cl_LF_ln10; // as long as it has ever been computed +extern const cl_SF& cl_SF_ln10(); +extern const cl_FF& cl_FF_ln10(); +extern const cl_DF& cl_DF_ln10(); +extern cl_LF& cl_LF_ln10(); // as long as it has ever been computed extern const cl_LF cl_ln10 (uintC len); // computes it even further -//CL_REQUIRE(cl_F_ln10_var) // cl_ln10(y) liefert die Zahl ln(10) im selben Float-Format wie y. // > y: ein Float diff --git a/src/float/transcendental/cl_LF_ln10.cc b/src/float/transcendental/cl_LF_ln10.cc index ae57e33..ddf25c2 100644 --- a/src/float/transcendental/cl_LF_ln10.cc +++ b/src/float/transcendental/cl_LF_ln10.cc @@ -48,13 +48,13 @@ static inline const cl_LF compute_ln10_p2357 (uintC len) const cl_LF cl_ln10 (uintC len) { - var uintC oldlen = TheLfloat(cl_LF_ln10)->len; // vorhandene Länge + var uintC oldlen = TheLfloat(cl_LF_ln10())->len; // vorhandene Länge if (len < oldlen) - return shorten(cl_LF_ln10,len); + return shorten(cl_LF_ln10(),len); if (len == oldlen) - return cl_LF_ln10; + return cl_LF_ln10(); - // TheLfloat(cl_LF_ln10)->len um mindestens einen konstanten Faktor + // TheLfloat(cl_LF_ln10())->len um mindestens einen konstanten Faktor // > 1 wachsen lassen, damit es nicht zu häufig nachberechnet wird: var uintC newlen = len; oldlen += floor(oldlen,2); // oldlen * 3/2 @@ -62,8 +62,8 @@ const cl_LF cl_ln10 (uintC len) newlen = oldlen; // gewünschte > vorhandene Länge -> muß nachberechnen: - cl_LF_ln10 = compute_ln10(newlen); - return (len < newlen ? shorten(cl_LF_ln10,len) : cl_LF_ln10); + cl_LF_ln10() = compute_ln10(newlen); + return (len < newlen ? shorten(cl_LF_ln10(),len) : cl_LF_ln10()); } } // namespace cln