From owner-svn-src-head@FreeBSD.ORG Tue Dec 31 23:59:35 2013 Return-Path: Delivered-To: svn-src-head@freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:1900:2254:206a::19:1]) (using TLSv1 with cipher ADH-AES256-SHA (256/256 bits)) (No client certificate requested) by hub.freebsd.org (Postfix) with ESMTPS id A3623FEB; Tue, 31 Dec 2013 23:59:35 +0000 (UTC) Received: from svn.freebsd.org (svn.freebsd.org [IPv6:2001:1900:2254:2068::e6a:0]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by mx1.freebsd.org (Postfix) with ESMTPS id 83E2419DC; Tue, 31 Dec 2013 23:59:35 +0000 (UTC) Received: from svn.freebsd.org ([127.0.1.70]) by svn.freebsd.org (8.14.7/8.14.7) with ESMTP id rBVNxZlb046335; Tue, 31 Dec 2013 23:59:35 GMT (envelope-from kargl@svn.freebsd.org) Received: (from kargl@localhost) by svn.freebsd.org (8.14.7/8.14.7/Submit) id rBVNxYle046329; Tue, 31 Dec 2013 23:59:34 GMT (envelope-from kargl@svn.freebsd.org) Message-Id: <201312312359.rBVNxYle046329@svn.freebsd.org> From: Steve Kargl Date: Tue, 31 Dec 2013 23:59:34 +0000 (UTC) To: src-committers@freebsd.org, svn-src-all@freebsd.org, svn-src-head@freebsd.org Subject: svn commit: r260145 - in head/lib/msun: man src X-SVN-Group: head MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-BeenThere: svn-src-head@freebsd.org X-Mailman-Version: 2.1.17 Precedence: list List-Id: SVN commit messages for the src tree for head/-current List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 31 Dec 2013 23:59:35 -0000 Author: kargl Date: Tue Dec 31 23:59:33 2013 New Revision: 260145 URL: http://svnweb.freebsd.org/changeset/base/260145 Log: * msun/man/cosh.3: * msun/man/sinh.3: * msun/man/tanh.3: . Fix grammar. * msun/src/e_coshl.c: * msun/src/e_sinhl.c: . Fix comment. * msun/src/s_tanhl.c: . Remove unused variables. . Fix location/indentation of comments. . Use comparison involving ints instead of long double. . Re-order polynomial evaluation on ld128 for |x| < 0.25. For now, retain the older order in an "#if 0 ... #else" block. . Use int comparison to short-circuit the |x| < 1.5 condition. Requested by: bde Modified: head/lib/msun/man/cosh.3 head/lib/msun/man/sinh.3 head/lib/msun/man/tanh.3 head/lib/msun/src/e_coshl.c head/lib/msun/src/e_sinhl.c head/lib/msun/src/s_tanhl.c Modified: head/lib/msun/man/cosh.3 ============================================================================== --- head/lib/msun/man/cosh.3 Tue Dec 31 22:00:25 2013 (r260144) +++ head/lib/msun/man/cosh.3 Tue Dec 31 23:59:33 2013 (r260145) @@ -50,7 +50,7 @@ The .Fn cosh , .Fn coshf , -and the +and .Fn coshl functions compute the hyperbolic cosine of .Fa x . Modified: head/lib/msun/man/sinh.3 ============================================================================== --- head/lib/msun/man/sinh.3 Tue Dec 31 22:00:25 2013 (r260144) +++ head/lib/msun/man/sinh.3 Tue Dec 31 23:59:33 2013 (r260145) @@ -50,7 +50,7 @@ The .Fn sinh , .Fn sinhf , -and the +and .Fn sinhl functions compute the hyperbolic sine of .Fa x . Modified: head/lib/msun/man/tanh.3 ============================================================================== --- head/lib/msun/man/tanh.3 Tue Dec 31 22:00:25 2013 (r260144) +++ head/lib/msun/man/tanh.3 Tue Dec 31 23:59:33 2013 (r260145) @@ -50,7 +50,7 @@ The .Fn tanh , .Fn tanhf , -and the +and .Fn tanhl functions compute the hyperbolic tangent of .Fa x . Modified: head/lib/msun/src/e_coshl.c ============================================================================== --- head/lib/msun/src/e_coshl.c Tue Dec 31 22:00:25 2013 (r260144) +++ head/lib/msun/src/e_coshl.c Tue Dec 31 23:59:33 2013 (r260145) @@ -78,7 +78,7 @@ C26 = 2.5022374732804632e-27; /* 0x18 #error "Unsupported long double format" #endif /* LDBL_MANT_DIG == 64 */ -/* log(2**16385 - 0.5) rounded towards up: */ +/* log(2**16385 - 0.5) rounded up: */ static const float o_threshold = 1.13572168e4; /* 0xb174de.0p-10 */ Modified: head/lib/msun/src/e_sinhl.c ============================================================================== --- head/lib/msun/src/e_sinhl.c Tue Dec 31 22:00:25 2013 (r260144) +++ head/lib/msun/src/e_sinhl.c Tue Dec 31 23:59:33 2013 (r260145) @@ -77,7 +77,7 @@ S25 = 6.5067867911512749e-26; /* 0x14 #error "Unsupported long double format" #endif /* LDBL_MANT_DIG == 64 */ -/* log(2**16385 - 0.5) rounded towards up: */ +/* log(2**16385 - 0.5) rounded up: */ static const float o_threshold = 1.13572168e4; /* 0xb174de.0p-10 */ Modified: head/lib/msun/src/s_tanhl.c ============================================================================== --- head/lib/msun/src/s_tanhl.c Tue Dec 31 22:00:25 2013 (r260144) +++ head/lib/msun/src/s_tanhl.c Tue Dec 31 23:59:33 2013 (r260145) @@ -86,9 +86,8 @@ static inline long double divl(long double a, long double b, long double c, long double d, long double e, long double f) { - long double inv, r, w; + long double inv, r; float fr, fw; - uint32_t hx; _2sumF(a, c); b = b + c; @@ -128,12 +127,13 @@ tanhl(long double x) ENTERI(); - if (fabsl(x) < 40) { /* |x|<40 */ + /* |x| < 40 */ + if (ix < 0x4004 || fabsl(x) < 40) { /* |x|<40 */ if (__predict_false(ix