summaryrefslogtreecommitdiff
path: root/libm/kvx/feupdateenv.c
blob: f64510308c1914e62a25269e9e60d58ca63fbbfe (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 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;
}