summaryrefslogtreecommitdiff
path: root/libm/kvx/fesetenv.c
diff options
context:
space:
mode:
Diffstat (limited to 'libm/kvx/fesetenv.c')
-rw-r--r--libm/kvx/fesetenv.c23
1 files changed, 23 insertions, 0 deletions
diff --git a/libm/kvx/fesetenv.c b/libm/kvx/fesetenv.c
new file mode 100644
index 000000000..0a85f1128
--- /dev/null
+++ b/libm/kvx/fesetenv.c
@@ -0,0 +1,23 @@
+/*
+ (C) Copyright 2019 Kalray S.A.
+ This file provides fesetenv for the Coolidge processor.
+*/
+
+#include <fenv.h>
+
+int fesetenv(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);
+
+ /* Set exception flags and rounding mode bit-fields of $cs, with
+ 'fe' as a set mask and FE_ALL_EXCEPT|FE_RND_MASK as a clear
+ mask. */
+ __builtin_kvx_wfxl(KVX_SFR_CS, ((long long)fe << 32) | FE_ALL_EXCEPT | 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;
+}