feclearexcept.c 504 B

1234567891011121314151617181920
  1. /*
  2. (C) Copyright 2019 Kalray S.A.
  3. This file provides feclearexcept for the Coolidge processor.
  4. */
  5. #include <fenv.h>
  6. int feclearexcept(int excepts)
  7. {
  8. /* Mask excepts to be sure only supported flag bits are set */
  9. excepts &= FE_ALL_EXCEPT;
  10. /* Set $cs with 'excepts' as a clear mask. */
  11. __builtin_kvx_wfxl(KVX_SFR_CS, excepts);
  12. /* The above insn cannot fail (while the OS allows access to the
  13. floating-point exception flags of the $cs register). Return
  14. success. */
  15. return 0;
  16. }