svn commit: r268589 - head/lib/msun/src

Steve Kargl kargl at FreeBSD.org
Sun Jul 13 16:05:34 UTC 2014


Author: kargl
Date: Sun Jul 13 16:05:33 2014
New Revision: 268589
URL: http://svnweb.freebsd.org/changeset/base/268589

Log:
  * Update the comments that refer to erf[c](nan) and erf[c](+-inf)
    to use erf[c]f.

Modified:
  head/lib/msun/src/s_erff.c

Modified: head/lib/msun/src/s_erff.c
==============================================================================
--- head/lib/msun/src/s_erff.c	Sun Jul 13 15:45:45 2014	(r268588)
+++ head/lib/msun/src/s_erff.c	Sun Jul 13 16:05:33 2014	(r268589)
@@ -89,9 +89,9 @@ erff(float x)
 	float R,S,P,Q,s,y,z,r;
 	GET_FLOAT_WORD(hx,x);
 	ix = hx&0x7fffffff;
-	if(ix>=0x7f800000) {		/* erf(nan)=nan */
+	if(ix>=0x7f800000) {		/* erff(nan)=nan */
 	    i = ((u_int32_t)hx>>31)<<1;
-	    return (float)(1-i)+one/x;	/* erf(+-inf)=+-1 */
+	    return (float)(1-i)+one/x;	/* erff(+-inf)=+-1 */
 	}
 
 	if(ix < 0x3f580000) {		/* |x|<0.84375 */
@@ -136,8 +136,8 @@ erfcf(float x)
 	float R,S,P,Q,s,y,z,r;
 	GET_FLOAT_WORD(hx,x);
 	ix = hx&0x7fffffff;
-	if(ix>=0x7f800000) {			/* erfc(nan)=nan */
-						/* erfc(+-inf)=0,2 */
+	if(ix>=0x7f800000) {			/* erfcf(nan)=nan */
+						/* erfcf(+-inf)=0,2 */
 	    return (float)(((u_int32_t)hx>>31)<<1)+one/x;
 	}
 


More information about the svn-src-head mailing list