From fd2c613b1cec46d0b02df722bb00ae01154d5dc3 Mon Sep 17 00:00:00 2001 From: nobu Date: Tue, 12 Jul 2016 11:53:43 +0000 Subject: math.c: use common constants * math.c (math_log1, math_log10): use common math constants instead of math function calls. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@55641 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- math.c | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) (limited to 'math.c') diff --git a/math.c b/math.c index c3fe7dbd09..a66c9bfb86 100644 --- a/math.c +++ b/math.c @@ -10,6 +10,9 @@ **********************************************************************/ #include "internal.h" +#ifdef _MSC_VER +# define _USE_MATH_DEFINES 1 +#endif #include #include #include @@ -408,6 +411,13 @@ math_exp(VALUE obj, VALUE x) # define log10(x) ((x) < 0.0 ? nan("") : log10(x)) #endif +#ifndef M_LN2 +# define M_LN2 0.693147180559945309417232121458176568 +#endif +#ifndef M_LN10 +# define M_LN10 2.30258509299404568401799145468436421 +#endif + static double math_log1(VALUE x); /* @@ -466,7 +476,7 @@ math_log1(VALUE x) /* check for pole error */ if (d == 0.0) return -INFINITY; - return log(d) + numbits * log(2); /* log(d * 2 ** numbits) */ + return log(d) + numbits * M_LN2; /* log(d * 2 ** numbits) */ } #ifndef log2 @@ -559,7 +569,7 @@ math_log10(VALUE obj, VALUE x) /* check for pole error */ if (d == 0.0) return DBL2NUM(-INFINITY); - return DBL2NUM(log10(d) + numbits * log10(2)); /* log10(d * 2 ** numbits) */ + return DBL2NUM(log10(d) + numbits * M_LN2/M_LN10); /* log10(d * 2 ** numbits) */ } /* -- cgit v1.2.3