@@ -90,7 +90,7 @@ tests = test-matherr test-fenv atest-exp atest-sincos atest-exp2 basic-test \
test-misc test-fpucw test-fpucw-ieee tst-definitions test-tgmath \
test-tgmath-ret bug-nextafter bug-nexttoward bug-tgmath1 \
test-tgmath-int test-tgmath2 test-powl tst-CMPLX tst-CMPLX2 test-snan \
- test-fenv-tls $(tests-static)
+ test-fenv-tls test-fenv-preserve $(tests-static)
tests-static = test-fpucw-static test-fpucw-ieee-static
# We do the `long double' tests only if this data type is available and
# distinct from `double'.
new file mode 100644
@@ -0,0 +1,53 @@
+/* Test fegetenv preserves exception mask (bug 16198).
+ Copyright (C) 2014 Free Software Foundation, Inc.
+ This file is part of the GNU C Library.
+
+ The GNU C Library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Lesser General Public
+ License as published by the Free Software Foundation; either
+ version 2.1 of the License, or (at your option) any later version.
+
+ The GNU C 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
+ Lesser General Public License for more details.
+
+ You should have received a copy of the GNU Lesser General Public
+ License along with the GNU C Library; if not, see
+ <http://www.gnu.org/licenses/>. */
+
+#include <fenv.h>
+#include <stdio.h>
+
+static int
+do_test (void)
+{
+ fenv_t env;
+
+ if (feenableexcept (FE_INVALID) != 0)
+ {
+ puts ("feenableexcept (FE_INVALID) failed, cannot test");
+ return 0;
+ }
+
+ if (fegetenv (&env) != 0)
+ {
+ puts ("fegetenv failed, cannot test");
+ return 0;
+ }
+
+ int ret = fegetexcept ();
+ if (ret == FE_INVALID)
+ {
+ puts ("fegetenv preserved exception mask, OK");
+ return 0;
+ }
+ else
+ {
+ printf ("fegetexcept returned %d, expected %d\n", ret, FE_INVALID);
+ return 1;
+ }
+}
+
+#define TEST_FUNCTION do_test ()
+#include "../test-skeleton.c"
@@ -22,6 +22,9 @@ int
fegetenv (fenv_t *envp)
{
__asm__ ("fnstenv %0\n"
+ /* fnstenv changes the exception mask, so load back the
+ stored environment. */
+ "fldenv %0\n"
"stmxcsr %1" : "=m" (*envp), "=m" (envp->__mxcsr));
/* Success. */