[Boost-commit] svn:boost r64789 - in trunk/boost/math/special_functions: . detail

Subject: [Boost-commit] svn:boost r64789 - in trunk/boost/math/special_functions: . detail
From: john_at_[hidden]
Date: 2010-08-13 13:26:29

Author: johnmaddock
Date: 2010-08-13 13:26:28 EDT (Fri, 13 Aug 2010)
New Revision: 64789
URL: http://svn.boost.org/trac/boost/changeset/64789

Log:
Fix gcc-3.2.x compiler errors.
Fixes #4507.
Text files modified: 
   trunk/boost/math/special_functions/detail/igamma_large.hpp       |     4 ++--                                    
   trunk/boost/math/special_functions/detail/t_distribution_inv.hpp |     4 ++--                                    
   trunk/boost/math/special_functions/lanczos.hpp                   |     2 ++                                      
   3 files changed, 6 insertions(+), 4 deletions(-)

Modified: trunk/boost/math/special_functions/detail/igamma_large.hpp
==============================================================================
--- trunk/boost/math/special_functions/detail/igamma_large.hpp	(original)
+++ trunk/boost/math/special_functions/detail/igamma_large.hpp	2010-08-13 13:26:28 EDT (Fri, 13 Aug 2010)
@@ -257,7 +257,7 @@
    };
    workspace[12] = tools::evaluate_polynomial(C12, z);
 
-   T result = tools::evaluate_polynomial(workspace, 1/a);
+   T result = tools::evaluate_polynomial<13, T, T>(workspace, 1/a);
    result *= exp(-y) / sqrt(2 * constants::pi<T>() * a);
    if(x < a)
       result = -result;
@@ -399,7 +399,7 @@
    workspace[8] = tools::evaluate_polynomial(C8, z);
    workspace[9] = static_cast<T>(-0.00059676129019274625L);
 
-   T result = tools::evaluate_polynomial(workspace, 1/a);
+   T result = tools::evaluate_polynomial<10, T, T>(workspace, 1/a);
    result *= exp(-y) / sqrt(2 * constants::pi<T>() * a);
    if(x < a)
       result = -result;

Modified: trunk/boost/math/special_functions/detail/t_distribution_inv.hpp
==============================================================================
--- trunk/boost/math/special_functions/detail/t_distribution_inv.hpp	(original)
+++ trunk/boost/math/special_functions/detail/t_distribution_inv.hpp	2010-08-13 13:26:28 EDT (Fri, 13 Aug 2010)
@@ -118,7 +118,7 @@
    T rn = sqrt(df);
    T div = pow(rn * w, 1 / df);
    T power = div * div;
-   T result = tools::evaluate_polynomial(d, power);
+   T result = tools::evaluate_polynomial<7, T, T>(d, power);
    result *= rn;
    result /= div;
    return -result;
@@ -200,7 +200,7 @@
    //
    // The result is then a polynomial in v (see Eq 56 of Shaw):
    //
-   return tools::evaluate_odd_polynomial(c, v);
+   return tools::evaluate_odd_polynomial<11, T, T>(c, v);
 }
 
 template <class T, class Policy>

Modified: trunk/boost/math/special_functions/lanczos.hpp
==============================================================================
--- trunk/boost/math/special_functions/lanczos.hpp	(original)
+++ trunk/boost/math/special_functions/lanczos.hpp	2010-08-13 13:26:28 EDT (Fri, 13 Aug 2010)
@@ -1229,9 +1229,11 @@
 } // namespace math
 } // namespace boost
 
+#if !defined(__GNUC__) || (__GNUC__ > 3) || ((__GNUC__ == 3) && (__GNUC_MINOR__ > 3))
 #if (defined(_M_IX86_FP) && (_M_IX86_FP >= 2)) || defined(__SSE2__)
 #include <boost/math/special_functions/detail/lanczos_sse2.hpp>
 #endif
+#endif
 
 #endif // BOOST_MATH_SPECIAL_FUNCTIONS_LANCZOS