```/* <![CDATA[ */
function get_sym_list(){return [["Macro","xm",[["__tanhl",30]]],["Variable","xv",[["big",65],["one",63],["small",63],["threshold",67],["two",63]]],["Function","xf",[["tanhl",70]]]];} /* ]]> */1/*
3 *
4 * The contents of this file are subject to the terms of the
6 * You may not use this file except in compliance with the License.
7 *
8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
12 *
13 * When distributing Covered Code, include this CDDL HEADER in each
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
18 *
20 */
21
22/*
24 */
25/*
27 * Use is subject to license terms.
28 */
29
30#pragma weak __tanhl = tanhl
31
32/*
33 * tanhl(x) returns the hyperbolic tangent of x
34 *
35 * Method :
36 *	1. reduce x to non-negative:  tanhl(-x) = - tanhl(x).
37 *	2.
38 *	  0      <  x <=  small    :  tanhl(x) := x
39 *					          -expm1l(-2x)
40 *	  small  <  x <=  1        :  tanhl(x) := --------------
41 *					         expm1l(-2x) + 2
42 *							  2
43 *	  1      <= x <= threshold :  tanhl(x) := 1 -  ---------------
44 *						      expm1l(2x) + 2
45 *     threshold <  x <= INF       :  tanhl(x) := 1.
46 *
47 * where
48 *	single : 	small = 1.e-5		threshold = 11.0
49 *	double : 	small = 1.e-10		threshold = 22.0
50 *	quad   : 	small = 1.e-20		threshold = 45.0
51 *
52 * Note: threshold was chosen so that
53 *		fl(1.0+2/(expm1(2*threshold)+2)) == 1.
54 *
55 * Special cases:
56 *	tanhl(NaN) is NaN;
57 *	only tanhl(0.0)=0.0 is exact for finite argument.
58 */
59
60#include "libm.h"
61#include "longdouble.h"
62
63static const long double small = 1.0e-20L, one = 1.0, two = 2.0,
64#ifndef lint
65	big = 1.0e+20L,
66#endif
67	threshold = 45.0L;
68
69long double
70tanhl(long double x) {
71	long double t, y, z;
72	int signx;
73#ifndef lint
74	volatile long double dummy;
75#endif
76
77	if (isnanl(x))
78		return (x + x);		/* x is NaN */
79	signx = signbitl(x);
80	t = fabsl(x);
81	z = one;
82	if (t <= threshold) {
83		if (t > one)
84			z = one - two / (expm1l(t + t) + two);
85		else if (t > small) {
86			y = expm1l(-t - t);
87			z = -y / (y + two);
88		} else {
89#ifndef lint
90			dummy = t + big;
91							/* inexact if t != 0 */
92#endif
93			return (x);
94		}
95	} else if (!finitel(t))
96		return (copysignl(one, x));
97	else
98		return (signx ? -z + small * small : z - small * small);
99	return (signx ? -z : z);
100}
101```