summaryrefslogtreecommitdiff
path: root/libm/kvx/fegetexceptflag.c
diff options
context:
space:
mode:
Diffstat (limited to 'libm/kvx/fegetexceptflag.c')
-rw-r--r--libm/kvx/fegetexceptflag.c24
1 files changed, 24 insertions, 0 deletions
diff --git a/libm/kvx/fegetexceptflag.c b/libm/kvx/fegetexceptflag.c
new file mode 100644
index 000000000..72738ec09
--- /dev/null
+++ b/libm/kvx/fegetexceptflag.c
@@ -0,0 +1,24 @@
+/*
+ (C) Copyright 2019 Kalray S.A.
+ This file provides fegetexceptflag for the Coolidge processor.
+*/
+
+#include <fenv.h>
+
+int fegetexceptflag(fexcept_t *flagp, int excepts)
+{
+ /* Mask excepts to be sure only supported flag bits are set */
+ excepts &= FE_ALL_EXCEPT;
+
+ /* Get the current exception flags of the $cs register. */
+ fexcept_t flags;
+ flags = __builtin_kvx_get(KVX_SFR_CS);
+
+ /* Return the requested flags in flagp */
+ *flagp = flags & excepts;
+
+ /* The above insn cannot fail (while the OS allows access to the
+ floating-point exception flags of the $cs register). Return
+ success. */
+ return 0;
+}