Home | History | Annotate | Line # | Download | only in src 
      1  1.1     jtc /* w_sqrtf.c -- float version of w_sqrt.c.
      2  1.1     jtc  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian (at) cygnus.com.
      3  1.1     jtc  */
      4  1.1     jtc 
      5  1.1     jtc /*
      6  1.1     jtc  * ====================================================
      7  1.1     jtc  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
      8  1.1     jtc  *
      9  1.1     jtc  * Developed at SunPro, a Sun Microsystems, Inc. business.
     10  1.1     jtc  * Permission to use, copy, modify, and distribute this
     11  1.5  simonb  * software is freely granted, provided that this notice
     12  1.1     jtc  * is preserved.
     13  1.1     jtc  * ====================================================
     14  1.1     jtc  */
     15  1.1     jtc 
     16  1.4   lukem #include <sys/cdefs.h>
     17  1.2     jtc #if defined(LIBM_SCCS) && !defined(lint)
     18  1.6     wiz __RCSID("$NetBSD: w_sqrtf.c,v 1.6 2002/05/26 22:02:03 wiz Exp $");
     19  1.1     jtc #endif
     20  1.1     jtc 
     21  1.5  simonb /*
     22  1.1     jtc  * wrapper sqrtf(x)
     23  1.1     jtc  */
     24  1.1     jtc 
     25  1.1     jtc #include "math.h"
     26  1.1     jtc #include "math_private.h"
     27  1.1     jtc 
     28  1.6     wiz float
     29  1.6     wiz sqrtf(float x)		/* wrapper sqrtf */
     30  1.1     jtc {
     31  1.1     jtc #ifdef _IEEE_LIBM
     32  1.1     jtc 	return __ieee754_sqrtf(x);
     33  1.1     jtc #else
     34  1.1     jtc 	float z;
     35  1.1     jtc 	z = __ieee754_sqrtf(x);
     36  1.1     jtc 	if(_LIB_VERSION == _IEEE_ || isnanf(x)) return z;
     37  1.1     jtc 	if(x<(float)0.0) {
     38  1.1     jtc 	    /* sqrtf(negative) */
     39  1.1     jtc 	    return (float)__kernel_standard((double)x,(double)x,126);
     40  1.1     jtc 	} else
     41  1.1     jtc 	    return z;
     42  1.1     jtc #endif
     43  1.1     jtc }
     44