Resolve llvm#106

Author: pizlonator

filc/include/pizlonated_math.h

@@ -63,6 +63,7 @@ long double zmath_log1pl(long double value);
 long double zmath_nearbyintl(long double value);
 unsigned zmath_getcw(void);
 void zmath_setcw(unsigned cw);
+void zmath_feclearexcept(int excepts);
 
 #ifdef __cplusplus
 }

filc/tests/feclearexcept/feclearexcept.c

@@ -0,0 +1,8 @@
+#include <fenv.h>
+
+int main()
+{
+    feclearexcept(FE_INVALID | FE_DIVBYZERO | FE_OVERFLOW | FE_UNDERFLOW);
+    return 0;
+}
+

filc/tests/feclearexcept/manifest

@@ -0,0 +1,4 @@
+return:
+  success
+extraLinkerArgs:
+  "-lm"

libpas/src/libpas/filc_runtime.c

@@ -103,6 +103,7 @@
 #include <sys/statvfs.h>
 #include <sys/reboot.h>
 #include <linux/keyctl.h>
+#include <fenv.h>
 
 #if PAS_GLIBC
 #include <sys/pidfd.h>
@@ -13166,6 +13167,12 @@ void filc_native_zmath_setcw(filc_thread* my_thread, unsigned cw)
     asm volatile ("fldcw %0" : : "m"(cw));
 }
 
+void filc_native_zmath_feclearexcept(filc_thread* my_thread, int excepts)
+{
+    PAS_UNUSED_PARAM(my_thread);
+    PAS_ASSERT(!feclearexcept(excepts));
+}
+
 #endif /* PAS_ENABLE_FILC */
 
 #endif /* LIBPAS_ENABLED */

libpas/src/libpas/generate_pizlonated_forwarders.rb

@@ -557,6 +557,7 @@ def addOutSig(name, rets, *args)
 addSig "long double", "zmath_nearbyintl", "long double"
 addSig "unsigned", "zmath_getcw"
 addSig "void", "zmath_setcw", "unsigned"
+addSig "void", "zmath_feclearexcept", "int"
 
 addOutSig "void_ptr_ptr", "void", "filc_ptr", "filc_ptr"
 addOutSig "main", "exception/int", "int", "filc_ptr", "filc_ptr"

projects/user-glibc-2.40/sysdeps/x86_64/fpu/fclrexcpt.c

@@ -17,36 +17,12 @@
    <https://www.gnu.org/licenses/>.  */
 
 #include <fenv.h>
+#include <pizlonated_math.h>
 
 int
 feclearexcept (int excepts)
 {
-  fenv_t temp;
-  unsigned int mxcsr;
-
-  /* Mask out unsupported bits/exceptions.  */
-  excepts &= FE_ALL_EXCEPT;
-
-  /* Bah, we have to clear selected exceptions.  Since there is no
-     `fldsw' instruction we have to do it the hard way.  */
-  __asm__ ("fnstenv %0" : "=m" (*&temp));
-
-  /* Clear the relevant bits.  */
-  temp.__status_word &= excepts ^ FE_ALL_EXCEPT;
-
-  /* Put the new data in effect.  */
-  __asm__ ("fldenv %0" : : "m" (*&temp));
-
-  /* And the same procedure for SSE.  */
-  __asm__ ("stmxcsr %0" : "=m" (*&mxcsr));
-
-  /* Clear the relevant bits.  */
-  mxcsr &= ~excepts;
-
-  /* And put them into effect.  */
-  __asm__ ("ldmxcsr %0" : : "m" (*&mxcsr));
-
-  /* Success.  */
+  zmath_feclearexcept(excepts);
   return 0;
 }
 libm_hidden_def (feclearexcept)