ports/sysdeps/m68k/m680x0/fpu/mathimpl.h

   1 /* Definitions of libc internal inline math functions implemented
   2    by the m68881/2.
   3    Copyright (C) 1991,92,93,94,96,97,98,99 Free Software Foundation, Inc.
   4    This file is part of the GNU C Library.
   5
   6    The GNU C Library is free software; you can redistribute it and/or
   7    modify it under the terms of the GNU Lesser General Public
   8    License as published by the Free Software Foundation; either
   9    version 2.1 of the License, or (at your option) any later version.
  10
  11    The GNU C Library is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14    Lesser General Public License for more details.
  15
  16    You should have received a copy of the GNU Lesser General Public
  17    License along with the GNU C Library.  If not, see
  18    <http://www.gnu.org/licenses/>.  */
  19
  20 /* This file contains the definitions of the inline math functions that
  21    are only used internally inside libm, not visible to the user.  */
  22
  23 __inline_mathop (__ieee754_acos, acos)
  24 __inline_mathop (__ieee754_asin, asin)
  25 __inline_mathop (__ieee754_cosh, cosh)
  26 __inline_mathop (__ieee754_sinh, sinh)
  27 __inline_mathop (__ieee754_exp, etox)
  28 __inline_mathop (__ieee754_exp2, twotox)
  29 __inline_mathop (__ieee754_exp10, tentox)
  30 __inline_mathop (__ieee754_log10, log10)
  31 __inline_mathop (__ieee754_log2, log2)
  32 __inline_mathop (__ieee754_log, logn)
  33 __inline_mathop (__ieee754_sqrt, sqrt)
  34 __inline_mathop (__ieee754_atanh, atanh)
  35
  36 __m81_defun (double, __ieee754_remainder, (double __x, double __y))
  37 {
  38   double __result;
  39   __asm ("frem%.x %1, %0" : "=f" (__result) : "f" (__y), "0" (__x));
  40   return __result;
  41 }
  42
  43 __m81_defun (float, __ieee754_remainderf, (float __x, float __y))
  44 {
  45   float __result;
  46   __asm ("frem%.x %1, %0" : "=f" (__result) : "f" (__y), "0" (__x));
  47   return __result;
  48 }
  49
  50 __m81_defun (long double,
  51              __ieee754_remainderl, (long double __x, long double __y))
  52 {
  53   long double __result;
  54   __asm ("frem%.x %1, %0" : "=f" (__result) : "f" (__y), "0" (__x));
  55   return __result;
  56 }
  57
  58 __m81_defun (double, __ieee754_fmod, (double __x, double __y))
  59 {
  60   double __result;
  61   __asm ("fmod%.x %1, %0" : "=f" (__result) : "f" (__y), "0" (__x));
  62   return __result;
  63 }
  64
  65 __m81_defun (float, __ieee754_fmodf, (float __x, float __y))
  66 {
  67   float __result;
  68   __asm ("fmod%.x %1, %0" : "=f" (__result) : "f" (__y), "0" (__x));
  69   return __result;
  70 }
  71
  72 __m81_defun (long double,
  73              __ieee754_fmodl, (long double __x, long double __y))
  74 {
  75   long double __result;
  76   __asm ("fmod%.x %1, %0" : "=f" (__result) : "f" (__y), "0" (__x));
  77   return __result;
  78 }
  79
  80 /* Get the m68881 condition codes, to quickly check multiple conditions.  */
  81 static __inline__ unsigned long
  82 __m81_test (long double __val)
  83 {
  84   unsigned long __fpsr;
  85   __asm ("ftst%.x %1; fmove%.l %/fpsr,%0" : "=dm" (__fpsr) : "f" (__val));
  86   return __fpsr;
  87 }
  88
  89 /* Bit values returned by __m81_test.  */
  90 #define __M81_COND_NAN  (1 << 24)
  91 #define __M81_COND_INF  (2 << 24)
  92 #define __M81_COND_ZERO (4 << 24)
  93 #define __M81_COND_NEG  (8 << 24)