mirror of
https://github.com/python/cpython.git
synced 2025-09-26 18:29:57 +00:00
Add autoconf test to detect x87-style double rounding, as described in
issue #2937. This information can be helpful for diagnosing platform- specific problems in math and cmath. The result of the test also serves as a fairly reliable indicator of whether the x87 floating-point instructions (as opposed to SSE2) are in use on Intel x86/x86_64 systems.
This commit is contained in:
parent
d81780b8b0
commit
04b272336d
3 changed files with 131 additions and 2 deletions
92
configure
vendored
92
configure
vendored
|
@ -1,5 +1,5 @@
|
||||||
#! /bin/sh
|
#! /bin/sh
|
||||||
# From configure.in Revision: 67463 .
|
# From configure.in Revision: 68292 .
|
||||||
# Guess values for system-dependent variables and create Makefiles.
|
# Guess values for system-dependent variables and create Makefiles.
|
||||||
# Generated by GNU Autoconf 2.61 for python 2.7.
|
# Generated by GNU Autoconf 2.61 for python 2.7.
|
||||||
#
|
#
|
||||||
|
@ -2256,7 +2256,7 @@ echo $ECHO_N "checking for --without-gcc... $ECHO_C" >&6; }
|
||||||
if test "${with_gcc+set}" = set; then
|
if test "${with_gcc+set}" = set; then
|
||||||
withval=$with_gcc;
|
withval=$with_gcc;
|
||||||
case $withval in
|
case $withval in
|
||||||
no) CC=cc
|
no) CC=${CC:-cc}
|
||||||
without_gcc=yes;;
|
without_gcc=yes;;
|
||||||
yes) CC=gcc
|
yes) CC=gcc
|
||||||
without_gcc=no;;
|
without_gcc=no;;
|
||||||
|
@ -21523,6 +21523,94 @@ fi
|
||||||
LIBS_SAVE=$LIBS
|
LIBS_SAVE=$LIBS
|
||||||
LIBS="$LIBS $LIBM"
|
LIBS="$LIBS $LIBM"
|
||||||
|
|
||||||
|
# Detect whether system arithmetic is subject to x87-style double
|
||||||
|
# rounding issues. The result of this test has little meaning on non
|
||||||
|
# IEEE 754 platforms. On IEEE 754, test should return 1 if rounding
|
||||||
|
# mode is round-to-nearest and double rounding issues are present, and
|
||||||
|
# 0 otherwise. See http://bugs.python.org/issue2937 for more info.
|
||||||
|
{ echo "$as_me:$LINENO: checking for x87-style double rounding" >&5
|
||||||
|
echo $ECHO_N "checking for x87-style double rounding... $ECHO_C" >&6; }
|
||||||
|
if test "${ac_cv_x87_double_rounding+set}" = set; then
|
||||||
|
echo $ECHO_N "(cached) $ECHO_C" >&6
|
||||||
|
else
|
||||||
|
|
||||||
|
if test "$cross_compiling" = yes; then
|
||||||
|
ac_cv_x87_double_rounding=no
|
||||||
|
else
|
||||||
|
cat >conftest.$ac_ext <<_ACEOF
|
||||||
|
/* confdefs.h. */
|
||||||
|
_ACEOF
|
||||||
|
cat confdefs.h >>conftest.$ac_ext
|
||||||
|
cat >>conftest.$ac_ext <<_ACEOF
|
||||||
|
/* end confdefs.h. */
|
||||||
|
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <math.h>
|
||||||
|
int main() {
|
||||||
|
volatile double x, y, z;
|
||||||
|
/* 1./(1-2**-53) -> 1+2**-52 (correct), 1.0 (double rounding) */
|
||||||
|
x = 0.99999999999999989; /* 1-2**-53 */
|
||||||
|
y = 1./x;
|
||||||
|
if (y != 1.)
|
||||||
|
exit(0);
|
||||||
|
/* 1e16+2.99999 -> 1e16+2. (correct), 1e16+4. (double rounding) */
|
||||||
|
x = 1e16;
|
||||||
|
y = 2.99999;
|
||||||
|
z = x + y;
|
||||||
|
if (z != 1e16+4.)
|
||||||
|
exit(0);
|
||||||
|
/* both tests show evidence of double rounding */
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
|
||||||
|
_ACEOF
|
||||||
|
rm -f conftest$ac_exeext
|
||||||
|
if { (ac_try="$ac_link"
|
||||||
|
case "(($ac_try" in
|
||||||
|
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
|
||||||
|
*) ac_try_echo=$ac_try;;
|
||||||
|
esac
|
||||||
|
eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5
|
||||||
|
(eval "$ac_link") 2>&5
|
||||||
|
ac_status=$?
|
||||||
|
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
||||||
|
(exit $ac_status); } && { ac_try='./conftest$ac_exeext'
|
||||||
|
{ (case "(($ac_try" in
|
||||||
|
*\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
|
||||||
|
*) ac_try_echo=$ac_try;;
|
||||||
|
esac
|
||||||
|
eval "echo \"\$as_me:$LINENO: $ac_try_echo\"") >&5
|
||||||
|
(eval "$ac_try") 2>&5
|
||||||
|
ac_status=$?
|
||||||
|
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
||||||
|
(exit $ac_status); }; }; then
|
||||||
|
ac_cv_x87_double_rounding=no
|
||||||
|
else
|
||||||
|
echo "$as_me: program exited with status $ac_status" >&5
|
||||||
|
echo "$as_me: failed program was:" >&5
|
||||||
|
sed 's/^/| /' conftest.$ac_ext >&5
|
||||||
|
|
||||||
|
( exit $ac_status )
|
||||||
|
ac_cv_x87_double_rounding=yes
|
||||||
|
fi
|
||||||
|
rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext conftest.$ac_objext conftest.$ac_ext
|
||||||
|
fi
|
||||||
|
|
||||||
|
|
||||||
|
fi
|
||||||
|
|
||||||
|
{ echo "$as_me:$LINENO: result: $ac_cv_x87_double_rounding" >&5
|
||||||
|
echo "${ECHO_T}$ac_cv_x87_double_rounding" >&6; }
|
||||||
|
if test "$ac_cv_x87_double_rounding" = yes
|
||||||
|
then
|
||||||
|
|
||||||
|
cat >>confdefs.h <<\_ACEOF
|
||||||
|
#define X87_DOUBLE_ROUNDING 1
|
||||||
|
_ACEOF
|
||||||
|
|
||||||
|
fi
|
||||||
|
|
||||||
|
|
||||||
# On FreeBSD 6.2, it appears that tanh(-0.) returns 0. instead of
|
# On FreeBSD 6.2, it appears that tanh(-0.) returns 0. instead of
|
||||||
# -0. on some architectures.
|
# -0. on some architectures.
|
||||||
{ echo "$as_me:$LINENO: checking whether tanh preserves the sign of zero" >&5
|
{ echo "$as_me:$LINENO: checking whether tanh preserves the sign of zero" >&5
|
||||||
|
|
38
configure.in
38
configure.in
|
@ -3143,6 +3143,44 @@ fi],
|
||||||
LIBS_SAVE=$LIBS
|
LIBS_SAVE=$LIBS
|
||||||
LIBS="$LIBS $LIBM"
|
LIBS="$LIBS $LIBM"
|
||||||
|
|
||||||
|
# Detect whether system arithmetic is subject to x87-style double
|
||||||
|
# rounding issues. The result of this test has little meaning on non
|
||||||
|
# IEEE 754 platforms. On IEEE 754, test should return 1 if rounding
|
||||||
|
# mode is round-to-nearest and double rounding issues are present, and
|
||||||
|
# 0 otherwise. See http://bugs.python.org/issue2937 for more info.
|
||||||
|
AC_MSG_CHECKING(for x87-style double rounding)
|
||||||
|
AC_CACHE_VAL(ac_cv_x87_double_rounding, [
|
||||||
|
AC_TRY_RUN([
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <math.h>
|
||||||
|
int main() {
|
||||||
|
volatile double x, y, z;
|
||||||
|
/* 1./(1-2**-53) -> 1+2**-52 (correct), 1.0 (double rounding) */
|
||||||
|
x = 0.99999999999999989; /* 1-2**-53 */
|
||||||
|
y = 1./x;
|
||||||
|
if (y != 1.)
|
||||||
|
exit(0);
|
||||||
|
/* 1e16+2.99999 -> 1e16+2. (correct), 1e16+4. (double rounding) */
|
||||||
|
x = 1e16;
|
||||||
|
y = 2.99999;
|
||||||
|
z = x + y;
|
||||||
|
if (z != 1e16+4.)
|
||||||
|
exit(0);
|
||||||
|
/* both tests show evidence of double rounding */
|
||||||
|
exit(1);
|
||||||
|
}
|
||||||
|
],
|
||||||
|
ac_cv_x87_double_rounding=no,
|
||||||
|
ac_cv_x87_double_rounding=yes,
|
||||||
|
ac_cv_x87_double_rounding=no)])
|
||||||
|
AC_MSG_RESULT($ac_cv_x87_double_rounding)
|
||||||
|
if test "$ac_cv_x87_double_rounding" = yes
|
||||||
|
then
|
||||||
|
AC_DEFINE(X87_DOUBLE_ROUNDING, 1,
|
||||||
|
[Define if arithmetic is subject to x87-style double rounding issue])
|
||||||
|
fi
|
||||||
|
|
||||||
|
|
||||||
# On FreeBSD 6.2, it appears that tanh(-0.) returns 0. instead of
|
# On FreeBSD 6.2, it appears that tanh(-0.) returns 0. instead of
|
||||||
# -0. on some architectures.
|
# -0. on some architectures.
|
||||||
AC_MSG_CHECKING(whether tanh preserves the sign of zero)
|
AC_MSG_CHECKING(whether tanh preserves the sign of zero)
|
||||||
|
|
|
@ -983,6 +983,9 @@
|
||||||
first (like Motorola and SPARC, unlike Intel and VAX). */
|
first (like Motorola and SPARC, unlike Intel and VAX). */
|
||||||
#undef WORDS_BIGENDIAN
|
#undef WORDS_BIGENDIAN
|
||||||
|
|
||||||
|
/* Define if arithmetic is subject to x87-style double rounding issue */
|
||||||
|
#undef X87_DOUBLE_ROUNDING
|
||||||
|
|
||||||
/* Define to 1 if on AIX 3.
|
/* Define to 1 if on AIX 3.
|
||||||
System headers sometimes define this.
|
System headers sometimes define this.
|
||||||
We just want to avoid a redefinition error message. */
|
We just want to avoid a redefinition error message. */
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue