OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libstdc++/56216 (TR1 bessel functions bomb at x == 0!) 

PR libstdc++/56216

From-SVN: r195886
This commit is contained in:
Edward Smith-Rowland 2013-02-08 14:10:48 +00:00 committed by Edward Smith-Rowland
parent ff54464986
commit be59c9322a
13 changed files with 177 additions and 131 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
libstdc++-v3/ChangeLog
View File

@ -1,3 +1,23 @@
2013-02-08 Edward Smith-Rowland <3dw4rd@verizon.net>
PR libstdc++/56216
* include/tr1/special_function_util.h: Remove spurious const
from numeric arguments.
* include/tr1/riemann_zeta.tcc: Ditto.
* include/tr1/exp_integral.tcc: Ditto.
* include/tr1/bessel_function.tcc: Ditto.
* include/tr1/hypergeometric.tcc: Ditto.
* include/tr1/modified_bessel_func.tcc: Ditto.
* include/tr1/poly_laguerre.tcc: Ditto.
* include/tr1/gamma.tcc: Ditto.
* include/tr1/legendre_function.tcc: Ditto.
* include/tr1/poly_hermite.tcc: Ditto.
* include/tr1/ell_integral.tcc: Ditto.
* include/tr1/bessel_function.tcc (__cyl_bessel_ij_series):
If argument is zero return function value.
* testsuite/tr1/5_numerical_facilities/special_functions/08_cyl_bessel_i/pr56216.cc:
New file.
2013-02-07 Paolo Carlini <paolo.carlini@oracle.com> 2013-02-07 Paolo Carlini <paolo.carlini@oracle.com>
* testsuite/27_io/basic_ios/pr56193.cc: Tweak. * testsuite/27_io/basic_ios/pr56193.cc: Tweak.

37
libstdc++-v3/include/tr1/bessel_function.tcc
View File

@ -86,8 +86,8 @@ namespace tr1
*/ */
template <typename _Tp> template <typename _Tp>
void void
__gamma_temme(const _Tp __mu, __gamma_temme(_Tp __mu,
_Tp & __gam1, _Tp & __gam2, _Tp & __gampl, _Tp & __gammi) _Tp & __gam1, _Tp & __gam2, _Tp & __gampl, _Tp & __gammi)
{ {
#if _GLIBCXX_USE_C99_MATH_TR1 #if _GLIBCXX_USE_C99_MATH_TR1
__gampl = _Tp(1) / std::tr1::tgamma(_Tp(1) + __mu); __gampl = _Tp(1) / std::tr1::tgamma(_Tp(1) + __mu);
@ -124,7 +124,7 @@ namespace tr1
*/ */
template <typename _Tp> template <typename _Tp>
void void
__bessel_jn(const _Tp __nu, const _Tp __x, __bessel_jn(_Tp __nu, _Tp __x,
_Tp & __Jnu, _Tp & __Nnu, _Tp & __Jpnu, _Tp & __Npnu) _Tp & __Jnu, _Tp & __Nnu, _Tp & __Jpnu, _Tp & __Npnu)
{ {
if (__x == _Tp(0)) if (__x == _Tp(0))
@ -349,11 +349,8 @@ namespace tr1
*/ */
template <typename _Tp> template <typename _Tp>
void void
__cyl_bessel_jn_asymp(const _Tp __nu, const _Tp __x, __cyl_bessel_jn_asymp(_Tp __nu, _Tp __x, _Tp & __Jnu, _Tp & __Nnu)
_Tp & __Jnu, _Tp & __Nnu)
{ {
const _Tp __coef = std::sqrt(_Tp(2)
/ (__numeric_constants<_Tp>::__pi() * __x));
const _Tp __mu = _Tp(4) * __nu * __nu; const _Tp __mu = _Tp(4) * __nu * __nu;
const _Tp __mum1 = __mu - _Tp(1); const _Tp __mum1 = __mu - _Tp(1);
const _Tp __mum9 = __mu - _Tp(9); const _Tp __mum9 = __mu - _Tp(9);
@ -370,6 +367,8 @@ namespace tr1
const _Tp __c = std::cos(__chi); const _Tp __c = std::cos(__chi);
const _Tp __s = std::sin(__chi); const _Tp __s = std::sin(__chi);
const _Tp __coef = std::sqrt(_Tp(2)
/ (__numeric_constants<_Tp>::__pi() * __x));
__Jnu = __coef * (__c * __P - __s * __Q); __Jnu = __coef * (__c * __P - __s * __Q);
__Nnu = __coef * (__s * __P + __c * __Q); __Nnu = __coef * (__s * __P + __c * __Q);
@ -406,10 +405,18 @@ namespace tr1
*/ */
template <typename _Tp> template <typename _Tp>
_Tp _Tp
__cyl_bessel_ij_series(const _Tp __nu, const _Tp __x, const _Tp __sgn, __cyl_bessel_ij_series(_Tp __nu, _Tp __x, _Tp __sgn,
const unsigned int __max_iter) unsigned int __max_iter)
{ {
if (__x == _Tp(0))
{
if (__nu == _Tp(0))
return _Tp(1);
else if (__nu == _Tp(1))
return _Tp(0);
else
return _Tp(0);
}
const _Tp __x2 = __x / _Tp(2); const _Tp __x2 = __x / _Tp(2);
_Tp __fact = __nu * std::log(__x2); _Tp __fact = __nu * std::log(__x2);
#if _GLIBCXX_USE_C99_MATH_TR1 #if _GLIBCXX_USE_C99_MATH_TR1
@ -450,7 +457,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__cyl_bessel_j(const _Tp __nu, const _Tp __x) __cyl_bessel_j(_Tp __nu, _Tp __x)
{ {
if (__nu < _Tp(0) || __x < _Tp(0)) if (__nu < _Tp(0) || __x < _Tp(0))
std::__throw_domain_error(__N("Bad argument " std::__throw_domain_error(__N("Bad argument "
@ -492,7 +499,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__cyl_neumann_n(const _Tp __nu, const _Tp __x) __cyl_neumann_n(_Tp __nu, _Tp __x)
{ {
if (__nu < _Tp(0) || __x < _Tp(0)) if (__nu < _Tp(0) || __x < _Tp(0))
std::__throw_domain_error(__N("Bad argument " std::__throw_domain_error(__N("Bad argument "
@ -529,7 +536,7 @@ namespace tr1
*/ */
template <typename _Tp> template <typename _Tp>
void void
__sph_bessel_jn(const unsigned int __n, const _Tp __x, __sph_bessel_jn(unsigned int __n, _Tp __x,
_Tp & __j_n, _Tp & __n_n, _Tp & __jp_n, _Tp & __np_n) _Tp & __j_n, _Tp & __n_n, _Tp & __jp_n, _Tp & __np_n)
{ {
const _Tp __nu = _Tp(__n) + _Tp(0.5L); const _Tp __nu = _Tp(__n) + _Tp(0.5L);
@ -564,7 +571,7 @@ namespace tr1
*/ */
template <typename _Tp> template <typename _Tp>
_Tp _Tp
__sph_bessel(const unsigned int __n, const _Tp __x) __sph_bessel(unsigned int __n, _Tp __x)
{ {
if (__x < _Tp(0)) if (__x < _Tp(0))
std::__throw_domain_error(__N("Bad argument " std::__throw_domain_error(__N("Bad argument "
@ -602,7 +609,7 @@ namespace tr1
*/ */
template <typename _Tp> template <typename _Tp>
_Tp _Tp
__sph_neumann(const unsigned int __n, const _Tp __x) __sph_neumann(unsigned int __n, _Tp __x)
{ {
if (__x < _Tp(0)) if (__x < _Tp(0))
std::__throw_domain_error(__N("Bad argument " std::__throw_domain_error(__N("Bad argument "

24
libstdc++-v3/include/tr1/ell_integral.tcc
View File

@ -70,7 +70,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__ellint_rf(const _Tp __x, const _Tp __y, const _Tp __z) __ellint_rf(_Tp __x, _Tp __y, _Tp __z)
{ {
const _Tp __min = std::numeric_limits<_Tp>::min(); const _Tp __min = std::numeric_limits<_Tp>::min();
const _Tp __max = std::numeric_limits<_Tp>::max(); const _Tp __max = std::numeric_limits<_Tp>::max();
@ -149,7 +149,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__comp_ellint_1_series(const _Tp __k) __comp_ellint_1_series(_Tp __k)
{ {
const _Tp __kk = __k * __k; const _Tp __kk = __k * __k;
@ -187,7 +187,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__comp_ellint_1(const _Tp __k) __comp_ellint_1(_Tp __k)
{ {
if (__isnan(__k)) if (__isnan(__k))
@ -215,7 +215,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__ellint_1(const _Tp __k, const _Tp __phi) __ellint_1(_Tp __k, _Tp __phi)
{ {
if (__isnan(__k) || __isnan(__phi)) if (__isnan(__k) || __isnan(__phi))
@ -262,7 +262,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__comp_ellint_2_series(const _Tp __k) __comp_ellint_2_series(_Tp __k)
{ {
const _Tp __kk = __k * __k; const _Tp __kk = __k * __k;
@ -310,7 +310,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__ellint_rd(const _Tp __x, const _Tp __y, const _Tp __z) __ellint_rd(_Tp __x, _Tp __y, _Tp __z)
{ {
const _Tp __eps = std::numeric_limits<_Tp>::epsilon(); const _Tp __eps = std::numeric_limits<_Tp>::epsilon();
const _Tp __errtol = std::pow(__eps / _Tp(8), _Tp(1) / _Tp(6)); const _Tp __errtol = std::pow(__eps / _Tp(8), _Tp(1) / _Tp(6));
@ -398,7 +398,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__comp_ellint_2(const _Tp __k) __comp_ellint_2(_Tp __k)
{ {
if (__isnan(__k)) if (__isnan(__k))
@ -432,7 +432,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__ellint_2(const _Tp __k, const _Tp __phi) __ellint_2(_Tp __k, _Tp __phi)
{ {
if (__isnan(__k) || __isnan(__phi)) if (__isnan(__k) || __isnan(__phi))
@ -491,7 +491,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__ellint_rc(const _Tp __x, const _Tp __y) __ellint_rc(_Tp __x, _Tp __y)
{ {
const _Tp __min = std::numeric_limits<_Tp>::min(); const _Tp __min = std::numeric_limits<_Tp>::min();
const _Tp __max = std::numeric_limits<_Tp>::max(); const _Tp __max = std::numeric_limits<_Tp>::max();
@ -562,7 +562,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__ellint_rj(const _Tp __x, const _Tp __y, const _Tp __z, const _Tp __p) __ellint_rj(_Tp __x, _Tp __y, _Tp __z, _Tp __p)
{ {
const _Tp __min = std::numeric_limits<_Tp>::min(); const _Tp __min = std::numeric_limits<_Tp>::min();
const _Tp __max = std::numeric_limits<_Tp>::max(); const _Tp __max = std::numeric_limits<_Tp>::max();
@ -666,7 +666,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__comp_ellint_3(const _Tp __k, const _Tp __nu) __comp_ellint_3(_Tp __k, _Tp __nu)
{ {
if (__isnan(__k) || __isnan(__nu)) if (__isnan(__k) || __isnan(__nu))
@ -706,7 +706,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__ellint_3(const _Tp __k, const _Tp __nu, const _Tp __phi) __ellint_3(_Tp __k, _Tp __nu, _Tp __phi)
{ {
if (__isnan(__k) || __isnan(__nu) || __isnan(__phi)) if (__isnan(__k) || __isnan(__nu) || __isnan(__phi))

28
libstdc++-v3/include/tr1/exp_integral.tcc
View File

@ -58,7 +58,7 @@ namespace tr1
{ {
_GLIBCXX_BEGIN_NAMESPACE_VERSION _GLIBCXX_BEGIN_NAMESPACE_VERSION
template<typename _Tp> _Tp __expint_E1(const _Tp); template<typename _Tp> _Tp __expint_E1(_Tp);
/** /**
* @brief Return the exponential integral @f$ E_1(x) @f$ * @brief Return the exponential integral @f$ E_1(x) @f$
@ -75,7 +75,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__expint_E1_series(const _Tp __x) __expint_E1_series(_Tp __x)
{ {
const _Tp __eps = std::numeric_limits<_Tp>::epsilon(); const _Tp __eps = std::numeric_limits<_Tp>::epsilon();
_Tp __term = _Tp(1); _Tp __term = _Tp(1);
@ -112,7 +112,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__expint_E1_asymp(const _Tp __x) __expint_E1_asymp(_Tp __x)
{ {
_Tp __term = _Tp(1); _Tp __term = _Tp(1);
_Tp __esum = _Tp(1); _Tp __esum = _Tp(1);
@ -149,7 +149,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__expint_En_series(const unsigned int __n, const _Tp __x) __expint_En_series(unsigned int __n, _Tp __x)
{ {
const unsigned int __max_iter = 100; const unsigned int __max_iter = 100;
const _Tp __eps = std::numeric_limits<_Tp>::epsilon(); const _Tp __eps = std::numeric_limits<_Tp>::epsilon();
@ -195,7 +195,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__expint_En_cont_frac(const unsigned int __n, const _Tp __x) __expint_En_cont_frac(unsigned int __n, _Tp __x)
{ {
const unsigned int __max_iter = 100; const unsigned int __max_iter = 100;
const _Tp __eps = std::numeric_limits<_Tp>::epsilon(); const _Tp __eps = std::numeric_limits<_Tp>::epsilon();
@ -240,7 +240,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__expint_En_recursion(const unsigned int __n, const _Tp __x) __expint_En_recursion(unsigned int __n, _Tp __x)
{ {
_Tp __En; _Tp __En;
_Tp __E1 = __expint_E1(__x); _Tp __E1 = __expint_E1(__x);
@ -284,7 +284,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__expint_Ei_series(const _Tp __x) __expint_Ei_series(_Tp __x)
{ {
_Tp __term = _Tp(1); _Tp __term = _Tp(1);
_Tp __sum = _Tp(0); _Tp __sum = _Tp(0);
@ -315,7 +315,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__expint_Ei_asymp(const _Tp __x) __expint_Ei_asymp(_Tp __x)
{ {
_Tp __term = _Tp(1); _Tp __term = _Tp(1);
_Tp __sum = _Tp(1); _Tp __sum = _Tp(1);
@ -348,7 +348,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__expint_Ei(const _Tp __x) __expint_Ei(_Tp __x)
{ {
if (__x < _Tp(0)) if (__x < _Tp(0))
return -__expint_E1(-__x); return -__expint_E1(-__x);
@ -372,7 +372,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__expint_E1(const _Tp __x) __expint_E1(_Tp __x)
{ {
if (__x < _Tp(0)) if (__x < _Tp(0))
return -__expint_Ei(-__x); return -__expint_Ei(-__x);
@ -402,7 +402,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__expint_asymp(const unsigned int __n, const _Tp __x) __expint_asymp(unsigned int __n, _Tp __x)
{ {
_Tp __term = _Tp(1); _Tp __term = _Tp(1);
_Tp __sum = _Tp(1); _Tp __sum = _Tp(1);
@ -436,7 +436,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__expint_large_n(const unsigned int __n, const _Tp __x) __expint_large_n(unsigned int __n, _Tp __x)
{ {
const _Tp __xpn = __x + __n; const _Tp __xpn = __x + __n;
const _Tp __xpn2 = __xpn * __xpn; const _Tp __xpn2 = __xpn * __xpn;
@ -470,7 +470,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__expint(const unsigned int __n, const _Tp __x) __expint(unsigned int __n, _Tp __x)
{ {
// Return NaN on NaN input. // Return NaN on NaN input.
if (__isnan(__x)) if (__isnan(__x))
@ -510,7 +510,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
inline _Tp inline _Tp
__expint(const _Tp __x) __expint(_Tp __x)
{ {
if (__isnan(__x)) if (__isnan(__x))
return std::numeric_limits<_Tp>::quiet_NaN(); return std::numeric_limits<_Tp>::quiet_NaN();

35
libstdc++-v3/include/tr1/gamma.tcc
View File

@ -67,7 +67,8 @@ namespace tr1
* @return The Bernoulli number of order n. * @return The Bernoulli number of order n.
*/ */
template <typename _Tp> template <typename _Tp>
_Tp __bernoulli_series(unsigned int __n) _Tp
__bernoulli_series(unsigned int __n)
{ {
static const _Tp __num[28] = { static const _Tp __num[28] = {
@ -130,10 +131,8 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
inline _Tp inline _Tp
__bernoulli(const int __n) __bernoulli(int __n)
{ { return __bernoulli_series<_Tp>(__n); }
return __bernoulli_series<_Tp>(__n);
}
/** /**
@ -146,7 +145,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__log_gamma_bernoulli(const _Tp __x) __log_gamma_bernoulli(_Tp __x)
{ {
_Tp __lg = (__x - _Tp(0.5L)) * std::log(__x) - __x _Tp __lg = (__x - _Tp(0.5L)) * std::log(__x) - __x
+ _Tp(0.5L) * std::log(_Tp(2) + _Tp(0.5L) * std::log(_Tp(2)
@ -174,7 +173,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__log_gamma_lanczos(const _Tp __x) __log_gamma_lanczos(_Tp __x)
{ {
const _Tp __xm1 = __x - _Tp(1); const _Tp __xm1 = __x - _Tp(1);
@ -218,7 +217,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__log_gamma(const _Tp __x) __log_gamma(_Tp __x)
{ {
if (__x > _Tp(0.5L)) if (__x > _Tp(0.5L))
return __log_gamma_lanczos(__x); return __log_gamma_lanczos(__x);
@ -245,7 +244,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__log_gamma_sign(const _Tp __x) __log_gamma_sign(_Tp __x)
{ {
if (__x > _Tp(0)) if (__x > _Tp(0))
return _Tp(1); return _Tp(1);
@ -276,7 +275,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__log_bincoef(const unsigned int __n, const unsigned int __k) __log_bincoef(unsigned int __n, unsigned int __k)
{ {
// Max e exponent before overflow. // Max e exponent before overflow.
static const _Tp __max_bincoeff static const _Tp __max_bincoeff
@ -307,7 +306,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__bincoef(const unsigned int __n, const unsigned int __k) __bincoef(unsigned int __n, unsigned int __k)
{ {
// Max e exponent before overflow. // Max e exponent before overflow.
static const _Tp __max_bincoeff static const _Tp __max_bincoeff
@ -330,10 +329,8 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
inline _Tp inline _Tp
__gamma(const _Tp __x) __gamma(_Tp __x)
{ { return std::exp(__log_gamma(__x)); }
return std::exp(__log_gamma(__x));
}
/** /**
@ -351,7 +348,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__psi_series(const _Tp __x) __psi_series(_Tp __x)
{ {
_Tp __sum = -__numeric_constants<_Tp>::__gamma_e() - _Tp(1) / __x; _Tp __sum = -__numeric_constants<_Tp>::__gamma_e() - _Tp(1) / __x;
const unsigned int __max_iter = 100000; const unsigned int __max_iter = 100000;
@ -381,7 +378,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__psi_asymp(const _Tp __x) __psi_asymp(_Tp __x)
{ {
_Tp __sum = std::log(__x) - _Tp(0.5L) / __x; _Tp __sum = std::log(__x) - _Tp(0.5L) / __x;
const _Tp __xx = __x * __x; const _Tp __xx = __x * __x;
@ -412,7 +409,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__psi(const _Tp __x) __psi(_Tp __x)
{ {
const int __n = static_cast<int>(__x + 0.5L); const int __n = static_cast<int>(__x + 0.5L);
const _Tp __eps = _Tp(4) * std::numeric_limits<_Tp>::epsilon(); const _Tp __eps = _Tp(4) * std::numeric_limits<_Tp>::epsilon();
@ -441,7 +438,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__psi(const unsigned int __n, const _Tp __x) __psi(unsigned int __n, _Tp __x)
{ {
if (__x <= _Tp(0)) if (__x <= _Tp(0))
std::__throw_domain_error(__N("Argument out of range " std::__throw_domain_error(__N("Argument out of range "

21
libstdc++-v3/include/tr1/hypergeometric.tcc
View File

@ -75,7 +75,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__conf_hyperg_series(const _Tp __a, const _Tp __c, const _Tp __x) __conf_hyperg_series(_Tp __a, _Tp __c, _Tp __x)
{ {
const _Tp __eps = std::numeric_limits<_Tp>::epsilon(); const _Tp __eps = std::numeric_limits<_Tp>::epsilon();
@ -112,7 +112,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__conf_hyperg_luke(const _Tp __a, const _Tp __c, const _Tp __xin) __conf_hyperg_luke(_Tp __a, _Tp __c, _Tp __xin)
{ {
const _Tp __big = std::pow(std::numeric_limits<_Tp>::max(), _Tp(0.16L)); const _Tp __big = std::pow(std::numeric_limits<_Tp>::max(), _Tp(0.16L));
const int __nmax = 20000; const int __nmax = 20000;
@ -218,8 +218,8 @@ namespace tr1
* @return The confluent hypergeometric function. * @return The confluent hypergeometric function.
*/ */
template<typename _Tp> template<typename _Tp>
inline _Tp _Tp
__conf_hyperg(const _Tp __a, const _Tp __c, const _Tp __x) __conf_hyperg(_Tp __a, _Tp __c, _Tp __x)
{ {
#if _GLIBCXX_USE_C99_MATH_TR1 #if _GLIBCXX_USE_C99_MATH_TR1
const _Tp __c_nint = std::tr1::nearbyint(__c); const _Tp __c_nint = std::tr1::nearbyint(__c);
@ -263,8 +263,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__hyperg_series(const _Tp __a, const _Tp __b, __hyperg_series(_Tp __a, _Tp __b, _Tp __c, _Tp __x)
const _Tp __c, const _Tp __x)
{ {
const _Tp __eps = std::numeric_limits<_Tp>::epsilon(); const _Tp __eps = std::numeric_limits<_Tp>::epsilon();
@ -297,8 +296,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__hyperg_luke(const _Tp __a, const _Tp __b, const _Tp __c, __hyperg_luke(_Tp __a, _Tp __b, _Tp __c, _Tp __xin)
const _Tp __xin)
{ {
const _Tp __big = std::pow(std::numeric_limits<_Tp>::max(), _Tp(0.16L)); const _Tp __big = std::pow(std::numeric_limits<_Tp>::max(), _Tp(0.16L));
const int __nmax = 20000; const int __nmax = 20000;
@ -432,8 +430,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__hyperg_reflect(const _Tp __a, const _Tp __b, const _Tp __c, __hyperg_reflect(_Tp __a, _Tp __b, _Tp __c, _Tp __x)
const _Tp __x)
{ {
const _Tp __d = __c - __a - __b; const _Tp __d = __c - __a - __b;
const int __intd = std::floor(__d + _Tp(0.5L)); const int __intd = std::floor(__d + _Tp(0.5L));
@ -722,8 +719,8 @@ namespace tr1
* @return The confluent hypergeometric function. * @return The confluent hypergeometric function.
*/ */
template<typename _Tp> template<typename _Tp>
inline _Tp _Tp
__hyperg(const _Tp __a, const _Tp __b, const _Tp __c, const _Tp __x) __hyperg(_Tp __a, _Tp __b, _Tp __c, _Tp __x)
{ {
#if _GLIBCXX_USE_C99_MATH_TR1 #if _GLIBCXX_USE_C99_MATH_TR1
const _Tp __a_nint = std::tr1::nearbyint(__a); const _Tp __a_nint = std::tr1::nearbyint(__a);

8
libstdc++-v3/include/tr1/legendre_function.tcc
View File

@ -72,7 +72,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__poly_legendre_p(const unsigned int __l, const _Tp __x) __poly_legendre_p(unsigned int __l, _Tp __x)
{ {
if ((__x < _Tp(-1)) || (__x > _Tp(+1))) if ((__x < _Tp(-1)) || (__x > _Tp(+1)))
@ -129,8 +129,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__assoc_legendre_p(const unsigned int __l, const unsigned int __m, __assoc_legendre_p(unsigned int __l, unsigned int __m, _Tp __x)
const _Tp __x)
{ {
if (__x < _Tp(-1) || __x > _Tp(+1)) if (__x < _Tp(-1) || __x > _Tp(+1))
@ -209,8 +208,7 @@ namespace tr1
*/ */
template <typename _Tp> template <typename _Tp>
_Tp _Tp
__sph_legendre(const unsigned int __l, const unsigned int __m, __sph_legendre(unsigned int __l, unsigned int __m, _Tp __theta)
const _Tp __theta)
{ {
if (__isnan(__theta)) if (__isnan(__theta))
return std::numeric_limits<_Tp>::quiet_NaN(); return std::numeric_limits<_Tp>::quiet_NaN();

17
libstdc++-v3/include/tr1/modified_bessel_func.tcc
View File

@ -77,7 +77,7 @@ namespace tr1
*/ */
template <typename _Tp> template <typename _Tp>
void void
__bessel_ik(const _Tp __nu, const _Tp __x, __bessel_ik(_Tp __nu, _Tp __x,
_Tp & __Inu, _Tp & __Knu, _Tp & __Ipnu, _Tp & __Kpnu) _Tp & __Inu, _Tp & __Knu, _Tp & __Ipnu, _Tp & __Kpnu)
{ {
if (__x == _Tp(0)) if (__x == _Tp(0))
@ -132,7 +132,7 @@ namespace tr1
} }
if (__i > __max_iter) if (__i > __max_iter)
std::__throw_runtime_error(__N("Argument x too large " std::__throw_runtime_error(__N("Argument x too large "
"in __bessel_jn; " "in __bessel_ik; "
"try asymptotic expansion.")); "try asymptotic expansion."));
_Tp __Inul = __fp_min; _Tp __Inul = __fp_min;
_Tp __Ipnul = __h * __Inul; _Tp __Ipnul = __h * __Inul;
@ -185,7 +185,7 @@ namespace tr1
} }
if (__i > __max_iter) if (__i > __max_iter)
std::__throw_runtime_error(__N("Bessel k series failed to converge " std::__throw_runtime_error(__N("Bessel k series failed to converge "
"in __bessel_jn.")); "in __bessel_ik."));
__Kmu = __sum; __Kmu = __sum;
__Knu1 = __sum1 * __xi2; __Knu1 = __sum1 * __xi2;
} }
@ -221,7 +221,7 @@ namespace tr1
} }
if (__i > __max_iter) if (__i > __max_iter)
std::__throw_runtime_error(__N("Steed's method failed " std::__throw_runtime_error(__N("Steed's method failed "
"in __bessel_jn.")); "in __bessel_ik."));
__h = __a1 * __h; __h = __a1 * __h;
__Kmu = std::sqrt(__numeric_constants<_Tp>::__pi() / (_Tp(2) * __x)) __Kmu = std::sqrt(__numeric_constants<_Tp>::__pi() / (_Tp(2) * __x))
* std::exp(-__x) / __s; * std::exp(-__x) / __s;
@ -261,7 +261,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__cyl_bessel_i(const _Tp __nu, const _Tp __x) __cyl_bessel_i(_Tp __nu, _Tp __x)
{ {
if (__nu < _Tp(0) || __x < _Tp(0)) if (__nu < _Tp(0) || __x < _Tp(0))
std::__throw_domain_error(__N("Bad argument " std::__throw_domain_error(__N("Bad argument "
@ -297,7 +297,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__cyl_bessel_k(const _Tp __nu, const _Tp __x) __cyl_bessel_k(_Tp __nu, _Tp __x)
{ {
if (__nu < _Tp(0) || __x < _Tp(0)) if (__nu < _Tp(0) || __x < _Tp(0))
std::__throw_domain_error(__N("Bad argument " std::__throw_domain_error(__N("Bad argument "
@ -331,7 +331,7 @@ namespace tr1
*/ */
template <typename _Tp> template <typename _Tp>
void void
__sph_bessel_ik(const unsigned int __n, const _Tp __x, __sph_bessel_ik(unsigned int __n, _Tp __x,
_Tp & __i_n, _Tp & __k_n, _Tp & __ip_n, _Tp & __kp_n) _Tp & __i_n, _Tp & __k_n, _Tp & __ip_n, _Tp & __kp_n)
{ {
const _Tp __nu = _Tp(__n) + _Tp(0.5L); const _Tp __nu = _Tp(__n) + _Tp(0.5L);
@ -366,8 +366,7 @@ namespace tr1
*/ */
template <typename _Tp> template <typename _Tp>
void void
__airy(const _Tp __x, __airy(_Tp __x, _Tp & __Ai, _Tp & __Bi, _Tp & __Aip, _Tp & __Bip)
_Tp & __Ai, _Tp & __Bi, _Tp & __Aip, _Tp & __Bip)
{ {
const _Tp __absx = std::abs(__x); const _Tp __absx = std::abs(__x);
const _Tp __rootx = std::sqrt(__absx); const _Tp __rootx = std::sqrt(__absx);

4
libstdc++-v3/include/tr1/poly_hermite.tcc
View File

@ -66,7 +66,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__poly_hermite_recursion(const unsigned int __n, const _Tp __x) __poly_hermite_recursion(unsigned int __n, _Tp __x)
{ {
// Compute H_0. // Compute H_0.
_Tp __H_0 = 1; _Tp __H_0 = 1;
@ -108,7 +108,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
inline _Tp inline _Tp
__poly_hermite(const unsigned int __n, const _Tp __x) __poly_hermite(unsigned int __n, _Tp __x)
{ {
if (__isnan(__x)) if (__isnan(__x))
return std::numeric_limits<_Tp>::quiet_NaN(); return std::numeric_limits<_Tp>::quiet_NaN();

27
libstdc++-v3/include/tr1/poly_laguerre.tcc
View File

@ -67,8 +67,7 @@ namespace tr1
*/ */
template<typename _Tpa, typename _Tp> template<typename _Tpa, typename _Tp>
_Tp _Tp
__poly_laguerre_large_n(const unsigned __n, const _Tpa __alpha1, __poly_laguerre_large_n(unsigned __n, _Tpa __alpha1, _Tp __x)
const _Tp __x)
{ {
const _Tp __a = -_Tp(__n); const _Tp __a = -_Tp(__n);
const _Tp __b = _Tp(__alpha1) + _Tp(1); const _Tp __b = _Tp(__alpha1) + _Tp(1);
@ -122,8 +121,7 @@ namespace tr1
*/ */
template<typename _Tpa, typename _Tp> template<typename _Tpa, typename _Tp>
_Tp _Tp
__poly_laguerre_hyperg(const unsigned int __n, const _Tpa __alpha1, __poly_laguerre_hyperg(unsigned int __n, _Tpa __alpha1, _Tp __x)
const _Tp __x)
{ {
const _Tp __b = _Tp(__alpha1) + _Tp(1); const _Tp __b = _Tp(__alpha1) + _Tp(1);
const _Tp __mx = -__x; const _Tp __mx = -__x;
@ -179,8 +177,7 @@ namespace tr1
*/ */
template<typename _Tpa, typename _Tp> template<typename _Tpa, typename _Tp>
_Tp _Tp
__poly_laguerre_recursion(const unsigned int __n, __poly_laguerre_recursion(unsigned int __n, _Tpa __alpha1, _Tp __x)
const _Tpa __alpha1, const _Tp __x)
{ {
// Compute l_0. // Compute l_0.
_Tp __l_0 = _Tp(1); _Tp __l_0 = _Tp(1);
@ -238,9 +235,8 @@ namespace tr1
* degree @f$ \alpha @f$, and argument x. * degree @f$ \alpha @f$, and argument x.
*/ */
template<typename _Tpa, typename _Tp> template<typename _Tpa, typename _Tp>
inline _Tp _Tp
__poly_laguerre(const unsigned int __n, const _Tpa __alpha1, __poly_laguerre(unsigned int __n, _Tpa __alpha1, _Tp __x)
const _Tp __x)
{ {
if (__x < _Tp(0)) if (__x < _Tp(0))
std::__throw_domain_error(__N("Negative argument " std::__throw_domain_error(__N("Negative argument "
@ -292,11 +288,8 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
inline _Tp inline _Tp
__assoc_laguerre(const unsigned int __n, const unsigned int __m, __assoc_laguerre(unsigned int __n, unsigned int __m, _Tp __x)
const _Tp __x) { return __poly_laguerre<unsigned int, _Tp>(__n, __m, __x); }
{
return __poly_laguerre<unsigned int, _Tp>(__n, __m, __x);
}
/** /**
@ -315,10 +308,8 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
inline _Tp inline _Tp
__laguerre(const unsigned int __n, const _Tp __x) __laguerre(unsigned int __n, _Tp __x)
{ { return __poly_laguerre<unsigned int, _Tp>(__n, 0, __x); }
return __poly_laguerre<unsigned int, _Tp>(__n, 0, __x);
}
_GLIBCXX_END_NAMESPACE_VERSION _GLIBCXX_END_NAMESPACE_VERSION
} // namespace std::tr1::__detail } // namespace std::tr1::__detail

18
libstdc++-v3/include/tr1/riemann_zeta.tcc
View File

@ -70,7 +70,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__riemann_zeta_sum(const _Tp __s) __riemann_zeta_sum(_Tp __s)
{ {
// A user shouldn't get to this. // A user shouldn't get to this.
if (__s < _Tp(1)) if (__s < _Tp(1))
@ -107,7 +107,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__riemann_zeta_alt(const _Tp __s) __riemann_zeta_alt(_Tp __s)
{ {
_Tp __sgn = _Tp(1); _Tp __sgn = _Tp(1);
_Tp __zeta = _Tp(0); _Tp __zeta = _Tp(0);
@ -149,7 +149,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__riemann_zeta_glob(const _Tp __s) __riemann_zeta_glob(_Tp __s)
{ {
_Tp __zeta = _Tp(0); _Tp __zeta = _Tp(0);
@ -244,7 +244,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__riemann_zeta_product(const _Tp __s) __riemann_zeta_product(_Tp __s)
{ {
static const _Tp __prime[] = { static const _Tp __prime[] = {
_Tp(2), _Tp(3), _Tp(5), _Tp(7), _Tp(11), _Tp(13), _Tp(17), _Tp(19), _Tp(2), _Tp(3), _Tp(5), _Tp(7), _Tp(11), _Tp(13), _Tp(17), _Tp(19),
@ -285,7 +285,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__riemann_zeta(const _Tp __s) __riemann_zeta(_Tp __s)
{ {
if (__isnan(__s)) if (__isnan(__s))
return std::numeric_limits<_Tp>::quiet_NaN(); return std::numeric_limits<_Tp>::quiet_NaN();
@ -357,7 +357,7 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
_Tp _Tp
__hurwitz_zeta_glob(const _Tp __a, const _Tp __s) __hurwitz_zeta_glob(_Tp __a, _Tp __s)
{ {
_Tp __zeta = _Tp(0); _Tp __zeta = _Tp(0);
@ -422,10 +422,8 @@ namespace tr1
*/ */
template<typename _Tp> template<typename _Tp>
inline _Tp inline _Tp
__hurwitz_zeta(const _Tp __a, const _Tp __s) __hurwitz_zeta(_Tp __a, _Tp __s)
{ { return __hurwitz_zeta_glob(__a, __s); }
return __hurwitz_zeta_glob(__a, __s);
}
_GLIBCXX_END_NAMESPACE_VERSION _GLIBCXX_END_NAMESPACE_VERSION
} // namespace std::tr1::__detail } // namespace std::tr1::__detail

22
libstdc++-v3/include/tr1/special_function_util.h
View File

@ -107,30 +107,22 @@ namespace tr1
/// out of intrinsics, this will disappear completely in favor of /// out of intrinsics, this will disappear completely in favor of
/// std::isnan. /// std::isnan.
template<typename _Tp> template<typename _Tp>
inline bool __isnan(const _Tp __x) inline bool __isnan(_Tp __x)
{ { return std::isnan(__x); }
return std::isnan(__x);
}
#else #else
template<typename _Tp> template<typename _Tp>
inline bool __isnan(const _Tp __x) inline bool __isnan(const _Tp __x)
{ { return __builtin_isnan(__x); }
return __builtin_isnan(__x);
}
template<> template<>
inline bool __isnan<float>(const float __x) inline bool __isnan<float>(float __x)
{ { return __builtin_isnanf(__x); }
return __builtin_isnanf(__x);
}
template<> template<>
inline bool __isnan<long double>(const long double __x) inline bool __isnan<long double>(long double __x)
{ { return __builtin_isnanl(__x); }
return __builtin_isnanl(__x);
}
#endif #endif

47
libstdc++-v3/testsuite/tr1/5_numerical_facilities/special_functions/08_cyl_bessel_i/pr56216.cc Normal file
View File

@ -0,0 +1,47 @@
// 2013-02-08 Edward Smith-Rowland <3dw4rd@verizon.net>
//
// Copyright (C) 2013 Free Software Foundation, Inc.
//
// This file is part of the GNU ISO C++ Library. This library is free
// software; you can redistribute it and/or modify it under the
// terms of the GNU General Public License as published by the
// Free Software Foundation; either version 3, or (at your option)
// any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License along
// with this library; see the file COPYING3. If not see
// <http://www.gnu.org/licenses/>.
// PR libstdc++/56216 - Crash of Bessel functions at x==0!
#include <testsuite_hooks.h>
#include <tr1/cmath>
void
test01()
{
bool test __attribute__((unused)) = true;
double j0 = std::tr1::cyl_bessel_j(0.0, 0.0);
double i0 = std::tr1::cyl_bessel_i(0.0, 0.0);
double j1 = std::tr1::cyl_bessel_j(1.0, 0.0);
double i1 = std::tr1::cyl_bessel_i(1.0, 0.0);
VERIFY(j0 == 1.0);
VERIFY(i0 == 1.0);
VERIFY(j1 == 0.0);
VERIFY(i1 == 0.0);
}
int
main()
{
test01();
return 0;
}