1 files changed, 22 insertions, 0 deletions
diff --git a/winsup/mingw/mingwex/fesetexceptflag.c b/winsup/mingw/mingwex/fesetexceptflag.c
new file mode 100644
index 000000000..7f4b8e562
--- /dev/null
+++ b/winsup/mingw/mingwex/fesetexceptflag.c
@@ -0,0 +1,22 @@
+#include <fenv.h> 
+
+/* 7.6.2.4
+   The fesetexceptflag function sets the complete status for those
+   exception flags indicated by the argument excepts, according to the
+   representation in the object pointed to by flagp. The value of
+   *flagp shall have been set by a previous call to fegetexceptflag
+   whose second argument represented at least those exceptions
+   represented by the argument excepts. This function does not raise
+   exceptions, but only sets the state of the flags. */ 
+
+int fesetexceptflag (const fexcept_t * flagp, int excepts) 
+{ 
+  fenv_t _env;
+
+  excepts &= FE_ALL_EXCEPT;
+  __asm__ volatile ("fnstenv %0;" : "=m" (_env));
+  _env.__status_word &= ~excepts;
+  _env.__status_word |= (*flagp & excepts);
+  __asm__ volatile ("fldenv %0;" : : "m" (_env));
+  return 0;
+}