[thirdparty/glibc.git] / math / w_sinh_compat.c

/* @(#)w_sinh.c 5.1 93/09/24 */
/*
 * ====================================================
 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
 *
 * Developed at SunPro, a Sun Microsystems, Inc. business.
 * Permission to use, copy, modify, and distribute this
 * software is freely granted, provided that this notice
 * is preserved.
 * ====================================================
 */

/*
 * wrapper sinh(x)
 */

#include <math.h>
#include <math_private.h>
#include <math-svid-compat.h>
#include <libm-alias-double.h>

#if LIBM_SVID_COMPAT
double
__sinh (double x)
{
	double z = __ieee754_sinh (x);
	if (__builtin_expect (!isfinite (z), 0) && isfinite (x)
	    && _LIB_VERSION != _IEEE_)
		return __kernel_standard (x, x, 25); /* sinh overflow */

	return z;
}
libm_alias_double (__sinh, sinh)
#endif
Commit	Line	Data
f7eac6eb RM	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
cccda09f	8	* software is freely granted, provided that this notice
f7eac6eb RM	9	* is preserved.
	10	* ====================================================
	11	*/
	12
cccda09f	13	/*
f7eac6eb RM	14	* wrapper sinh(x)
	15	*/
	16
9d13fb24	17	#include <math.h>
9277c064	18	#include <math_private.h>
813378e9	19	#include <math-svid-compat.h>
9ac44708	20	#include <libm-alias-double.h>
f7eac6eb	21
4f3647e4	22	#if LIBM_SVID_COMPAT
0ac5ae23 UD	23	double
0ac5ae23 UD	24	__sinh (double x)
f7eac6eb	25	{
0ac5ae23	26	double z = __ieee754_sinh (x);
d81f90cc	27	if (__builtin_expect (!isfinite (z), 0) && isfinite (x)
0ac5ae23 UD	28	&& _LIB_VERSION != _IEEE_)
	29	return __kernel_standard (x, x, 25); /* sinh overflow */
	30
	31	return z;
f7eac6eb	32	}
9ac44708	33	libm_alias_double (__sinh, sinh)
cccda09f	34	#endif