summaryrefslogtreecommitdiff
path: root/libm/kvx/fesetexceptflag.c
blob: 49180dc87540ca9cfc2916255f56974ee79c06d8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
/*
  (C) Copyright 2019 Kalray S.A.
  This file provides fesetexceptflag for the Coolidge processor.
*/

#include <fenv.h>

int fesetexceptflag(const fexcept_t *flagp, int excepts)
{
  /* Mask excepts to be sure only supported flag bits are set */
  excepts &= FE_ALL_EXCEPT;

  /* Set the requested flags */
  fexcept_t flags = (*flagp & excepts);

  /* Set $cs with 'flags' as a set mask and FE_ALL_EXCEPT as a clear
     mask. */
  __builtin_kvx_wfxl(KVX_SFR_CS, (long long)flags << 32 | FE_ALL_EXCEPT);

  /* The above insn cannot fail (while the OS allows access to the
     floating-point exception flags of the $cs register). Return
     success. */
  return 0;
}