From owner-svn-src-head@FreeBSD.ORG  Fri Dec  5 19:00:56 2014
Return-Path: <owner-svn-src-head@FreeBSD.ORG>
Delivered-To: svn-src-head@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org
 [IPv6:2001:1900:2254:206a::19:1])
 (using TLSv1.2 with cipher AECDH-AES256-SHA (256/256 bits))
 (No client certificate requested)
 by hub.freebsd.org (Postfix) with ESMTPS id A734EF57;
 Fri,  5 Dec 2014 19:00:56 +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))
 (Client did not present a certificate)
 by mx1.freebsd.org (Postfix) with ESMTPS id 93CA2872;
 Fri,  5 Dec 2014 19:00:56 +0000 (UTC)
Received: from svn.freebsd.org ([127.0.1.70])
 by svn.freebsd.org (8.14.9/8.14.9) with ESMTP id sB5J0uJ3080872;
 Fri, 5 Dec 2014 19:00:56 GMT (envelope-from kargl@FreeBSD.org)
Received: (from kargl@localhost)
 by svn.freebsd.org (8.14.9/8.14.9/Submit) id sB5J0u0U080870;
 Fri, 5 Dec 2014 19:00:56 GMT (envelope-from kargl@FreeBSD.org)
Message-Id: <201412051900.sB5J0u0U080870@svn.freebsd.org>
X-Authentication-Warning: svn.freebsd.org: kargl set sender to
 kargl@FreeBSD.org using -f
From: Steve Kargl <kargl@FreeBSD.org>
Date: Fri, 5 Dec 2014 19:00:56 +0000 (UTC)
To: src-committers@freebsd.org, svn-src-all@freebsd.org,
 svn-src-head@freebsd.org
Subject: svn commit: r275518 - head/lib/msun/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.18-1
Precedence: list
List-Id: SVN commit messages for the src tree for head/-current
 <svn-src-head.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/options/svn-src-head>,
 <mailto:svn-src-head-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/svn-src-head/>
List-Post: <mailto:svn-src-head@freebsd.org>
List-Help: <mailto:svn-src-head-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/svn-src-head>,
 <mailto:svn-src-head-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Fri, 05 Dec 2014 19:00:56 -0000

Author: kargl
Date: Fri Dec  5 19:00:55 2014
New Revision: 275518
URL: https://svnweb.freebsd.org/changeset/base/275518

Log:
  Update the constants associated with the evaluation of j0f(x)
  for |x| small.
  
  While here, remove the explicit cast of 0.25 to float.  Replace
  a multiplication involving 0.25 by a division using an integer
  constant 4.  Make a similar change in j0() to minimize the diff.
  
  Suggested by:	bde

Modified:
  head/lib/msun/src/e_j0.c
  head/lib/msun/src/e_j0f.c

Modified: head/lib/msun/src/e_j0.c
==============================================================================
--- head/lib/msun/src/e_j0.c	Fri Dec  5 18:55:32 2014	(r275517)
+++ head/lib/msun/src/e_j0.c	Fri Dec  5 19:00:55 2014	(r275518)
@@ -115,7 +115,7 @@ __ieee754_j0(double x)
 	if(ix<0x3f200000) {	/* |x| < 2**-13 */
 	    if(huge+x>one) {	/* raise inexact if x != 0 */
 	        if(ix<0x3e400000) return one;	/* |x|<2**-27 */
-	        else 	      return one - 0.25*x*x;
+	        else 	      return one - x*x/4;
 	    }
 	}
 	z = x*x;

Modified: head/lib/msun/src/e_j0f.c
==============================================================================
--- head/lib/msun/src/e_j0f.c	Fri Dec  5 18:55:32 2014	(r275517)
+++ head/lib/msun/src/e_j0f.c	Fri Dec  5 19:00:55 2014	(r275518)
@@ -69,10 +69,10 @@ __ieee754_j0f(float x)
 		}
 		return z;
 	}
-	if(ix<0x39000000) {	/* |x| < 2**-13 */
+	if(ix<0x3c000000) {	/* |x| < 2**-7 */
 	    if(huge+x>one) {	/* raise inexact if x != 0 */
-	        if(ix<0x32000000) return one;	/* |x|<2**-27 */
-	        else 	      return one - (float)0.25*x*x;
+	        if(ix<0x39800000) return one;	/* |x|<2**-12 */
+	        else 	      return one - x*x/4;
 	    }
 	}
 	z = x*x;