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

Annotation of src/lib/libm/src/w_sinhf.c, Revision 1.5

1.1       jtc         1: /* w_sinhf.c -- float version of w_sinh.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
1.5     ! simonb     11:  * software is freely granted, provided that this notice
1.1       jtc        12:  * is preserved.
                     13:  * ====================================================
                     14:  */
                     15:
1.4       lukem      16: #include <sys/cdefs.h>
1.2       jtc        17: #if defined(LIBM_SCCS) && !defined(lint)
1.5     ! simonb     18: __RCSID("$NetBSD: w_sinhf.c,v 1.4 1997/10/09 11:36:09 lukem Exp $");
1.1       jtc        19: #endif
                     20:
1.5     ! simonb     21: /*
1.1       jtc        22:  * wrapper sinhf(x)
                     23:  */
                     24:
                     25: #include "math.h"
                     26: #include "math_private.h"
                     27:
                     28: #ifdef __STDC__
                     29:        float sinhf(float x)            /* wrapper sinhf */
                     30: #else
                     31:        float sinhf(x)                  /* wrapper sinhf */
                     32:        float x;
                     33: #endif
                     34: {
                     35: #ifdef _IEEE_LIBM
                     36:        return __ieee754_sinhf(x);
                     37: #else
1.5     ! simonb     38:        float z;
1.1       jtc        39:        z = __ieee754_sinhf(x);
                     40:        if(_LIB_VERSION == _IEEE_) return z;
                     41:        if(!finitef(z)&&finitef(x)) {
                     42:            /* sinhf overflow */
                     43:            return (float)__kernel_standard((double)x,(double)x,125);
                     44:        } else
                     45:            return z;
                     46: #endif
                     47: }

CVSweb <webmaster@jp.NetBSD.org>