Return to w_acosf.c CVS log

Up to [cvs.NetBSD.org] / src / lib / libm / src

Annotation of src/lib/libm/src/w_acosf.c, Revision 1.1

1.1     ! jtc         1: /* w_acosf.c -- float version of w_acos.c.
        !             2:  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
        !             3:  */
        !             4:
        !             5: /*
        !             6:  * ====================================================
        !             7:  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
        !             8:  *
        !             9:  * Developed at SunPro, a Sun Microsystems, Inc. business.
        !            10:  * Permission to use, copy, modify, and distribute this
        !            11:  * software is freely granted, provided that this notice
        !            12:  * is preserved.
        !            13:  * ====================================================
        !            14:  */
        !            15:
        !            16: #ifndef lint
        !            17: static char rcsid[] = "$Id: $";
        !            18: #endif
        !            19:
        !            20: /*
        !            21:  * wrap_acosf(x)
        !            22:  */
        !            23:
        !            24: #include "math.h"
        !            25: #include "math_private.h"
        !            26:
        !            27:
        !            28: #ifdef __STDC__
        !            29:        float acosf(float x)            /* wrapper acosf */
        !            30: #else
        !            31:        float acosf(x)                  /* wrapper acosf */
        !            32:        float x;
        !            33: #endif
        !            34: {
        !            35: #ifdef _IEEE_LIBM
        !            36:        return __ieee754_acosf(x);
        !            37: #else
        !            38:        float z;
        !            39:        z = __ieee754_acosf(x);
        !            40:        if(_LIB_VERSION == _IEEE_ || isnanf(x)) return z;
        !            41:        if(fabsf(x)>(float)1.0) {
        !            42:                /* acosf(|x|>1) */
        !            43:                return (float)__kernel_standard((double)x,(double)x,101);
        !            44:        } else
        !            45:            return z;
        !            46: #endif
        !            47: }