sysdeps/alpha/sfp-machine.h

   1 /* Machine-dependent software floating-point definitions.
   2    Alpha userland IEEE 128-bit version.
   3    Copyright (C) 2004-2021 Free Software Foundation, Inc.
   4    This file is part of the GNU C Library.
   5    Contributed by Richard Henderson (rth@cygnus.com),
   6                   Jakub Jelinek (jj@ultra.linux.cz) and
   7                   David S. Miller (davem@redhat.com).
   8
   9    The GNU C Library is free software; you can redistribute it and/or
  10    modify it under the terms of the GNU Lesser General Public
  11    License as published by the Free Software Foundation; either
  12    version 2.1 of the License, or (at your option) any later version.
  13
  14    The GNU C Library is distributed in the hope that it will be useful,
  15    but WITHOUT ANY WARRANTY; without even the implied warranty of
  16    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17    Lesser General Public License for more details.
  18
  19    You should have received a copy of the GNU Lesser General Public
  20    License along with the GNU C Library.  If not, see
  21    <https://www.gnu.org/licenses/>.  */
  22
  23 #include <fenv_libc.h>
  24
  25 #define _FP_W_TYPE_SIZE         64
  26 #define _FP_W_TYPE              unsigned long
  27 #define _FP_WS_TYPE             signed long
  28 #define _FP_I_TYPE              long
  29
  30 #define _FP_MUL_MEAT_S(R,X,Y)                                   \
  31   _FP_MUL_MEAT_1_imm(_FP_WFRACBITS_S,R,X,Y)
  32 #define _FP_MUL_MEAT_D(R,X,Y)                                   \
  33   _FP_MUL_MEAT_1_wide(_FP_WFRACBITS_D,R,X,Y,umul_ppmm)
  34 #define _FP_MUL_MEAT_Q(R,X,Y)                                   \
  35   _FP_MUL_MEAT_2_wide(_FP_WFRACBITS_Q,R,X,Y,umul_ppmm)
  36
  37 #define _FP_DIV_MEAT_S(R,X,Y)   _FP_DIV_MEAT_1_imm(S,R,X,Y,_FP_DIV_HELP_imm)
  38 #define _FP_DIV_MEAT_D(R,X,Y)   _FP_DIV_MEAT_1_udiv_norm(D,R,X,Y)
  39 #define _FP_DIV_MEAT_Q(R,X,Y)   _FP_DIV_MEAT_2_udiv(Q,R,X,Y)
  40
  41 #define _FP_NANFRAC_S           ((_FP_QNANBIT_S << 1) - 1)
  42 #define _FP_NANFRAC_D           ((_FP_QNANBIT_D << 1) - 1)
  43 #define _FP_NANFRAC_Q           ((_FP_QNANBIT_Q << 1) - 1), -1
  44 #define _FP_NANSIGN_S           0
  45 #define _FP_NANSIGN_D           0
  46 #define _FP_NANSIGN_Q           0
  47
  48 #define _FP_KEEPNANFRACP 1
  49 #define _FP_QNANNEGATEDP 0
  50
  51 /* Alpha Architecture Handbook, 4.7.10.4 sez that we should prefer any
  52    type of NaN in Fb, then Fa.  */
  53 #define _FP_CHOOSENAN(fs, wc, R, X, Y, OP)                      \
  54   do {                                                          \
  55     R##_s = Y##_s;                                              \
  56     _FP_FRAC_COPY_##wc(R,X);                                    \
  57     R##_c = FP_CLS_NAN;                                         \
  58   } while (0)
  59
  60 /* Rounding mode settings.  */
  61 #define FP_RND_NEAREST          FE_TONEAREST
  62 #define FP_RND_ZERO             FE_TOWARDZERO
  63 #define FP_RND_PINF             FE_UPWARD
  64 #define FP_RND_MINF             FE_DOWNWARD
  65
  66 /* Obtain the current rounding mode.  It's given as an argument to
  67    all the Ots functions, with 4 meaning "dynamic".  */
  68 #define FP_ROUNDMODE            _round
  69
  70 /* Exception flags. */
  71 #define FP_EX_INVALID           FE_INVALID
  72 #define FP_EX_OVERFLOW          FE_OVERFLOW
  73 #define FP_EX_UNDERFLOW         FE_UNDERFLOW
  74 #define FP_EX_DIVZERO           FE_DIVBYZERO
  75 #define FP_EX_INEXACT           FE_INEXACT
  76
  77 #define _FP_TININESS_AFTER_ROUNDING 1
  78
  79 #define FP_INIT_ROUNDMODE                                       \
  80 do {                                                            \
  81   if (__builtin_expect (_round == 4, 0))                        \
  82     {                                                           \
  83       unsigned long t;                                          \
  84       __asm__ __volatile__("excb; mf_fpcr %0" : "=f"(t));       \
  85       _round = (t >> FPCR_ROUND_SHIFT) & 3;                     \
  86     }                                                           \
  87 } while (0)
  88
  89 /* We copy the libm function into libc for soft-fp.  */
  90 extern int __feraiseexcept (int __excepts) attribute_hidden;
  91
  92 #define FP_HANDLE_EXCEPTIONS                                    \
  93 do {                                                            \
  94   if (__builtin_expect (_fex, 0))                               \
  95     __feraiseexcept (_fex);                                     \
  96 } while (0)
  97
  98 #define FP_TRAPPING_EXCEPTIONS                                  \
  99   ((__ieee_get_fp_control () & SWCR_ENABLE_MASK) << SWCR_ENABLE_SHIFT)