[BACK]Return to w_coshf.c CVS log [TXT][DIR] Up to [cvs.NetBSD.org] / src / lib / libm / src

Annotation of src/lib/libm/src/w_coshf.c, Revision 1.2

1.1       jtc         1: /* w_coshf.c -- float version of w_cosh.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:
1.2     ! jtc        16: #if defined(LIBM_SCCS) && !defined(lint)
        !            17: static char rcsid[] = "$Id: w_coshf.c,v 1.1 1994/08/10 20:33:56 jtc Exp $";
1.1       jtc        18: #endif
                     19:
                     20: /*
                     21:  * wrapper coshf(x)
                     22:  */
                     23:
                     24: #include "math.h"
                     25: #include "math_private.h"
                     26:
                     27: #ifdef __STDC__
                     28:        float coshf(float x)            /* wrapper coshf */
                     29: #else
                     30:        float coshf(x)                  /* wrapper coshf */
                     31:        float x;
                     32: #endif
                     33: {
                     34: #ifdef _IEEE_LIBM
                     35:        return __ieee754_coshf(x);
                     36: #else
                     37:        float z;
                     38:        z = __ieee754_coshf(x);
                     39:        if(_LIB_VERSION == _IEEE_ || isnanf(x)) return z;
                     40:        if(fabsf(x)>(float)8.9415985107e+01) {
                     41:                /* cosh overflow */
                     42:                return (float)__kernel_standard((double)x,(double)x,105);
                     43:        } else
                     44:            return z;
                     45: #endif
                     46: }

CVSweb <webmaster@jp.NetBSD.org>