1 files changed, 24 insertions, 0 deletions
diff --git a/libm/kvx/feupdateenv.c b/libm/kvx/feupdateenv.c
new file mode 100644
index 000000000..f64510308
--- /dev/null
+++ b/libm/kvx/feupdateenv.c
@@ -0,0 +1,24 @@
+/*
+  (C) Copyright 2019 Kalray S.A.
+  This file provides feupdateenv for the Coolidge processor.
+*/
+
+#include <fenv.h>
+
+int feupdateenv(const fenv_t *envp)
+{
+  /* Mask *envp to be sure only valid bits are set */
+  fenv_t fe = *envp;
+  fe &= (FE_ALL_EXCEPT|FE_RND_MASK);
+
+  /* Update exception flags and rounding mode bit-fields of $cs, with
+     'fe' as a set mask and FE_RND_MASK as a clear mask. FE_ALL_EXCEPT
+     is not cleared: restores rounding mode and updates exception
+     flags. */
+  __builtin_kvx_wfxl(KVX_SFR_CS, ((long long)fe << 32) | FE_RND_MASK);
+
+  /* The above insn cannot fail (while the OS allows access to the
+     floating-point exception flags of the $cs register). Return
+     success. */
+  return 0;
+}