nsz Git - musl/blob - src/fenv/powerpc64/fenv.c

   1 #define _GNU_SOURCE
   2 #include <fenv.h>
   3
   4 static inline double get_fpscr_f(void)
   5 {
   6         double d;
   7         __asm__ __volatile__("mffs %0" : "=d"(d));
   8         return d;
   9 }
  10
  11 static inline long get_fpscr(void)
  12 {
  13         return (union {double f; long i;}) {get_fpscr_f()}.i;
  14 }
  15
  16 static inline void set_fpscr_f(double fpscr)
  17 {
  18         __asm__ __volatile__("mtfsf 255, %0" : : "d"(fpscr));
  19 }
  20
  21 static void set_fpscr(long fpscr)
  22 {
  23         set_fpscr_f((union {long i; double f;}) {fpscr}.f);
  24 }
  25
  26 int feclearexcept(int mask)
  27 {
  28         mask &= FE_ALL_EXCEPT;
  29         if (mask & FE_INVALID) mask |= FE_ALL_INVALID;
  30         set_fpscr(get_fpscr() & ~mask);
  31         return 0;
  32 }
  33
  34 int feraiseexcept(int mask)
  35 {
  36         mask &= FE_ALL_EXCEPT;
  37         if (mask & FE_INVALID) mask |= FE_INVALID_SOFTWARE;
  38         set_fpscr(get_fpscr() | mask);
  39         return 0;
  40 }
  41
  42 int fetestexcept(int mask)
  43 {
  44         return get_fpscr() & mask & FE_ALL_EXCEPT;
  45 }
  46
  47 int fegetround(void)
  48 {
  49         return get_fpscr() & 3;
  50 }
  51
  52 int __fesetround(int r)
  53 {
  54         set_fpscr(get_fpscr() & ~3L | r);
  55         return 0;
  56 }
  57
  58 int fegetenv(fenv_t *envp)
  59 {
  60         *envp = get_fpscr_f();
  61         return 0;
  62 }
  63
  64 int fesetenv(const fenv_t *envp)
  65 {
  66         set_fpscr_f(envp != FE_DFL_ENV ? *envp : 0);
  67         return 0;
  68 }