s_tanh.c (260067) | s_tanh.c (270845) |
---|---|
1/* @(#)s_tanh.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 */ 12 13#include <sys/cdefs.h> | 1/* @(#)s_tanh.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 */ 12 13#include <sys/cdefs.h> |
14__FBSDID("$FreeBSD: head/lib/msun/src/s_tanh.c 260067 2013-12-30 01:06:21Z kargl $"); | 14__FBSDID("$FreeBSD: head/lib/msun/src/s_tanh.c 270845 2014-08-30 17:14:47Z kargl $"); |
15 16/* Tanh(x) 17 * Return the Hyperbolic Tangent of x 18 * 19 * Method : 20 * x -x 21 * e - e 22 * 0. tanh(x) is defined to be ----------- --- 14 unchanged lines hidden (view full) --- 37 * only tanh(0)=0 is exact for finite argument. 38 */ 39 40#include <float.h> 41 42#include "math.h" 43#include "math_private.h" 44 | 15 16/* Tanh(x) 17 * Return the Hyperbolic Tangent of x 18 * 19 * Method : 20 * x -x 21 * e - e 22 * 0. tanh(x) is defined to be ----------- --- 14 unchanged lines hidden (view full) --- 37 * only tanh(0)=0 is exact for finite argument. 38 */ 39 40#include <float.h> 41 42#include "math.h" 43#include "math_private.h" 44 |
45static const double one = 1.0, two = 2.0, tiny = 1.0e-300, huge = 1.0e300; | 45static volatile const double tiny = 1.0e-300; 46static const double one = 1.0, two = 2.0, huge = 1.0e300; |
46 47double 48tanh(double x) 49{ 50 double t,z; 51 int32_t jx,ix; 52 53 GET_HIGH_WORD(jx,x); --- 30 unchanged lines hidden --- | 47 48double 49tanh(double x) 50{ 51 double t,z; 52 int32_t jx,ix; 53 54 GET_HIGH_WORD(jx,x); --- 30 unchanged lines hidden --- |