1  /* Software floating-point machine description for RISC-V.
       2  
       3     Copyright (C) 2016-2023 Free Software Foundation, Inc.
       4  
       5  This file is part of GCC.
       6  
       7  GCC is free software; you can redistribute it and/or modify it under
       8  the terms of the GNU General Public License as published by the Free
       9  Software Foundation; either version 3, or (at your option) any later
      10  version.
      11  
      12  GCC is distributed in the hope that it will be useful, but WITHOUT ANY
      13  WARRANTY; without even the implied warranty of MERCHANTABILITY or
      14  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
      15  for more details.
      16  
      17  Under Section 7 of GPL version 3, you are granted additional
      18  permissions described in the GCC Runtime Library Exception, version
      19  3.1, as published by the Free Software Foundation.
      20  
      21  You should have received a copy of the GNU General Public License and
      22  a copy of the GCC Runtime Library Exception along with this program;
      23  see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
      24  <http://www.gnu.org/licenses/>.  */
      25  
      26  #if __riscv_xlen == 32
      27  
      28  #define _FP_W_TYPE_SIZE		32
      29  #define _FP_W_TYPE		unsigned long
      30  #define _FP_WS_TYPE		signed long
      31  #define _FP_I_TYPE		long
      32  
      33  #define _FP_MUL_MEAT_S(R,X,Y)				\
      34    _FP_MUL_MEAT_1_wide(_FP_WFRACBITS_S,R,X,Y,umul_ppmm)
      35  #define _FP_MUL_MEAT_D(R,X,Y)				\
      36    _FP_MUL_MEAT_2_wide(_FP_WFRACBITS_D,R,X,Y,umul_ppmm)
      37  #define _FP_MUL_MEAT_Q(R,X,Y)				\
      38    _FP_MUL_MEAT_4_wide(_FP_WFRACBITS_Q,R,X,Y,umul_ppmm)
      39  
      40  #define _FP_DIV_MEAT_S(R,X,Y)	_FP_DIV_MEAT_1_udiv_norm(S,R,X,Y)
      41  #define _FP_DIV_MEAT_D(R,X,Y)	_FP_DIV_MEAT_2_udiv(D,R,X,Y)
      42  #define _FP_DIV_MEAT_Q(R,X,Y)	_FP_DIV_MEAT_4_udiv(Q,R,X,Y)
      43  
      44  #define _FP_NANFRAC_H		_FP_QNANBIT_H
      45  #define _FP_NANFRAC_S		_FP_QNANBIT_S
      46  #define _FP_NANFRAC_D		_FP_QNANBIT_D, 0
      47  #define _FP_NANFRAC_Q		_FP_QNANBIT_Q, 0, 0, 0
      48  
      49  #else
      50  
      51  #define _FP_W_TYPE_SIZE		64
      52  #define _FP_W_TYPE		unsigned long long
      53  #define _FP_WS_TYPE		signed long long
      54  #define _FP_I_TYPE		long long
      55  
      56  #define _FP_MUL_MEAT_S(R,X,Y)					\
      57    _FP_MUL_MEAT_1_imm(_FP_WFRACBITS_S,R,X,Y)
      58  #define _FP_MUL_MEAT_D(R,X,Y)					\
      59    _FP_MUL_MEAT_1_wide(_FP_WFRACBITS_D,R,X,Y,umul_ppmm)
      60  #define _FP_MUL_MEAT_Q(R,X,Y)					\
      61    _FP_MUL_MEAT_2_wide_3mul(_FP_WFRACBITS_Q,R,X,Y,umul_ppmm)
      62  
      63  #define _FP_DIV_MEAT_S(R,X,Y)	_FP_DIV_MEAT_1_imm(S,R,X,Y,_FP_DIV_HELP_imm)
      64  #define _FP_DIV_MEAT_D(R,X,Y)	_FP_DIV_MEAT_1_udiv_norm(D,R,X,Y)
      65  #define _FP_DIV_MEAT_Q(R,X,Y)	_FP_DIV_MEAT_2_udiv(Q,R,X,Y)
      66  
      67  #define _FP_NANFRAC_H		_FP_QNANBIT_H
      68  #define _FP_NANFRAC_S		_FP_QNANBIT_S
      69  #define _FP_NANFRAC_D		_FP_QNANBIT_D
      70  #define _FP_NANFRAC_Q		_FP_QNANBIT_Q, 0
      71  
      72  #endif
      73  
      74  #if __riscv_xlen == 64
      75  typedef int TItype __attribute__ ((mode (TI)));
      76  typedef unsigned int UTItype __attribute__ ((mode (TI)));
      77  #define TI_BITS (__CHAR_BIT__ * (int)sizeof(TItype))
      78  #endif
      79  
      80  /* The type of the result of a floating point comparison.  This must
      81     match __libgcc_cmp_return__ in GCC for the target.  */
      82  typedef int __gcc_CMPtype __attribute__ ((mode (__libgcc_cmp_return__)));
      83  #define CMPtype __gcc_CMPtype
      84  
      85  #define _FP_NANSIGN_H		0
      86  #define _FP_NANSIGN_S		0
      87  #define _FP_NANSIGN_D		0
      88  #define _FP_NANSIGN_Q		0
      89  
      90  #define _FP_KEEPNANFRACP 0
      91  #define _FP_QNANNEGATEDP 0
      92  
      93  #define _FP_CHOOSENAN(fs, wc, R, X, Y, OP)	\
      94    do {						\
      95      R##_s = _FP_NANSIGN_##fs;			\
      96      _FP_FRAC_SET_##wc(R,_FP_NANFRAC_##fs);	\
      97      R##_c = FP_CLS_NAN;				\
      98    } while (0)
      99  
     100  #define _FP_DECL_EX		int _frm __attribute__ ((unused));
     101  #define FP_ROUNDMODE		_frm
     102  
     103  #define FP_RND_NEAREST		0x0
     104  #define FP_RND_ZERO		0x1
     105  #define FP_RND_PINF		0x3
     106  #define FP_RND_MINF		0x2
     107  
     108  #define FP_EX_INVALID		0x10
     109  #define FP_EX_OVERFLOW		0x04
     110  #define FP_EX_UNDERFLOW		0x02
     111  #define FP_EX_DIVZERO		0x08
     112  #define FP_EX_INEXACT		0x01
     113  
     114  #define _FP_TININESS_AFTER_ROUNDING 1
     115  
     116  #ifdef __riscv_flen
     117  #define FP_INIT_ROUNDMODE			\
     118  do {						\
     119    __asm__ volatile ("frrm %0" : "=r" (_frm));	\
     120  } while (0)
     121  
     122  #define FP_HANDLE_EXCEPTIONS					\
     123  do {								\
     124    if (__builtin_expect (_fex, 0))				\
     125      __asm__ volatile ("csrs fflags, %0" : : "rK" (_fex));	\
     126  } while (0)
     127  #else
     128  #define FP_INIT_ROUNDMODE	_frm = FP_RND_NEAREST
     129  #endif
     130  
     131  #define	__LITTLE_ENDIAN	1234
     132  #define	__BIG_ENDIAN	4321
     133  
     134  #if defined(__BYTE_ORDER__) && (__BYTE_ORDER__ == __ORDER_BIG_ENDIAN__)
     135  #define __BYTE_ORDER __BIG_ENDIAN
     136  #else
     137  #define __BYTE_ORDER __LITTLE_ENDIAN
     138  #endif
     139  
     140  
     141  /* Define ALIASNAME as a strong alias for NAME.  */
     142  # define strong_alias(name, aliasname) _strong_alias(name, aliasname)
     143  # define _strong_alias(name, aliasname) \
     144    extern __typeof (name) aliasname __attribute__ ((alias (#name)));