Annotation of src/lib/libm/src/w_sinh.c, Revision 1.6
1.1 jtc 1: /* @(#)w_sinh.c 5.1 93/09/24 */
2: /*
3: * ====================================================
4: * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
5: *
6: * Developed at SunPro, a Sun Microsystems, Inc. business.
7: * Permission to use, copy, modify, and distribute this
8: * software is freely granted, provided that this notice
9: * is preserved.
10: * ====================================================
11: */
1.3 jtc 12:
1.5 jtc 13: #if defined(LIBM_SCCS) && !defined(lint)
1.6 ! jtc 14: static char rcsid[] = "$NetBSD: w_sinh.c,v 1.5 1994/09/22 16:46:05 jtc Exp $";
1.3 jtc 15: #endif
1.1 jtc 16:
17: /*
18: * wrapper sinh(x)
19: */
20:
1.4 jtc 21: #include "math.h"
22: #include "math_private.h"
1.1 jtc 23:
24: #ifdef __STDC__
25: double sinh(double x) /* wrapper sinh */
26: #else
27: double sinh(x) /* wrapper sinh */
28: double x;
29: #endif
30: {
31: #ifdef _IEEE_LIBM
32: return __ieee754_sinh(x);
33: #else
34: double z;
35: z = __ieee754_sinh(x);
36: if(_LIB_VERSION == _IEEE_) return z;
37: if(!finite(z)&&finite(x)) {
38: return __kernel_standard(x,x,25); /* sinh overflow */
39: } else
40: return z;
41: #endif
42: }
CVSweb <webmaster@jp.NetBSD.org>