e_coshl.c (a48e1f224c561c156d130496638b5defbb3081d0) e_coshl.c (1531aa5f6a264a372718b83500f957f703797b41)
1/* from: FreeBSD: head/lib/msun/src/e_coshl.c XXX */
2
3/*
4 * ====================================================
5 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
6 *
7 * Developed at SunPro, a Sun Microsystems, Inc. business.
8 * Permission to use, copy, modify, and distribute this

--- 64 unchanged lines hidden (view full) ---

73C20 = 4.1103176218528049e-19, /* 0x1e542ba3d3c269.0p-114 */
74C22 = 8.8967926401641701e-22, /* 0x10ce399542a014.0p-122 */
75C24 = 1.6116681626523904e-24, /* 0x1f2c981d1f0cb7.0p-132 */
76C26 = 2.5022374732804632e-27; /* 0x18c7ecf8b2c4a0.0p-141 */
77#else
78#error "Unsupported long double format"
79#endif /* LDBL_MANT_DIG == 64 */
80
1/* from: FreeBSD: head/lib/msun/src/e_coshl.c XXX */
2
3/*
4 * ====================================================
5 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
6 *
7 * Developed at SunPro, a Sun Microsystems, Inc. business.
8 * Permission to use, copy, modify, and distribute this

--- 64 unchanged lines hidden (view full) ---

73C20 = 4.1103176218528049e-19, /* 0x1e542ba3d3c269.0p-114 */
74C22 = 8.8967926401641701e-22, /* 0x10ce399542a014.0p-122 */
75C24 = 1.6116681626523904e-24, /* 0x1f2c981d1f0cb7.0p-132 */
76C26 = 2.5022374732804632e-27; /* 0x18c7ecf8b2c4a0.0p-141 */
77#else
78#error "Unsupported long double format"
79#endif /* LDBL_MANT_DIG == 64 */
80
81/* log(2**16385 - 0.5) rounded towards up: */
81/* log(2**16385 - 0.5) rounded up: */
82static const float
83o_threshold = 1.13572168e4; /* 0xb174de.0p-10 */
84
85long double
86coshl(long double x)
87{
88 long double hi,lo,x2,x4;
89 double dx2;

--- 41 unchanged lines hidden --- 		82static const float
83o_threshold = 1.13572168e4; /* 0xb174de.0p-10 */
84
85long double
86coshl(long double x)
87{
88 long double hi,lo,x2,x4;
89 double dx2;

--- 41 unchanged lines hidden ---