sysdeps/alpha/fpu/math_private.h

   1 #ifndef ALPHA_MATH_PRIVATE_H
   2 #define ALPHA_MATH_PRIVATE_H 1
   3
   4 /* In bits/mathinline.h we define __isnan et al.
   5    In sysdeps/alpha/fpu/s_isnan.c we move the identifier out of the way
   6    via macro hackery.  In both cases, tell math/math_private.h that
   7    we have a local copy of the function.  */
   8
   9 #ifndef __isnan
  10 # define __isnan  __isnan
  11 #endif
  12 #ifndef __isnanf
  13 # define __isnanf __isnanf
  14 #endif
  15
  16 /* Generic code forces values to memory; we don't need to do that.  */
  17 #define math_opt_barrier(x) \
  18   ({ __typeof (x) __x = (x); __asm ("" : "+frm" (__x)); __x; })
  19 #define math_force_eval(x) \
  20   ({ __typeof (x) __x = (x); __asm __volatile__ ("" : : "frm" (__x)); })
  21
  22 #include_next <math_private.h>
  23
  24 #ifdef __alpha_fix__
  25 extern __always_inline double
  26 __ieee754_sqrt (double d)
  27 {
  28   double ret;
  29 # ifdef _IEEE_FP_INEXACT
  30   asm ("sqrtt/suid %1,%0" : "=f"(ret) : "f"(d));
  31 # else
  32   asm ("sqrtt/sud %1,%0" : "=f"(ret) : "f"(d));
  33 # endif
  34   return ret;
  35 }
  36
  37 extern __always_inline float
  38 __ieee754_sqrtf (float d)
  39 {
  40   float ret;
  41 # ifdef _IEEE_FP_INEXACT
  42   asm ("sqrts/suid %1,%0" : "=f"(ret) : "f"(d));
  43 # else
  44   asm ("sqrts/sud %1,%0" : "=f"(ret) : "f"(d));
  45 # endif
  46   return ret;
  47 }
  48 #endif /* FIX */
  49
  50 #endif /* ALPHA_MATH_PRIVATE_H */