1 files changed, 26 insertions, 0 deletions
diff --git a/libm/kvx/feholdexcept.c b/libm/kvx/feholdexcept.c
new file mode 100644
index 000000000..e9dfc1862
--- /dev/null
+++ b/libm/kvx/feholdexcept.c
@@ -0,0 +1,26 @@
+/*
+  (C) Copyright 2019 Kalray S.A.
+  This file provides feholdexcept for the Coolidge processor.
+*/
+
+#include <fenv.h>
+
+int feholdexcept(fenv_t *envp)
+{
+  /* Get the current environment ($cs) */
+  fenv_t fe;
+  fe = __builtin_kvx_get(KVX_SFR_CS);
+
+  /* Mask $cs status to keep exception flags and rounding mode only. */
+  *envp = (fe & (FE_ALL_EXCEPT | FE_RND_MASK));
+
+  /* Set $cs with 'FE_ALL_EXCEPT' as a clear mask. */
+  __builtin_kvx_wfxl(KVX_SFR_CS, FE_ALL_EXCEPT);
+  
+  /* KVX does not raise FP traps so it is always in a "non-stop" mode */
+
+  /* The above insn cannot fail (while the OS allows access to the
+     floating-point exception flags of the $cs register). Return
+     success. */
+  return 0;
+}