contrib/gcc/config/gofast.h

   1 /* US Software GOFAST floating point library support.
   2    Copyright (C) 1994 Free Software Foundation, Inc.
   3
   4 This file is part of GNU CC.
   5
   6 GNU CC is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2, or (at your option)
   9 any later version.
  10
  11 GNU CC 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
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU CC; see the file COPYING.  If not, write to
  18 the Free Software Foundation, 59 Temple Place - Suite 330,
  19 Boston, MA 02111-1307, USA.  */
  20
  21 /* This is used by fp-bit.c.  */
  22 #define US_SOFTWARE_GOFAST
  23
  24 /* The US Software GOFAST library requires special optabs support.
  25    There is no negation libcall, and several others have names different
  26    from gcc.  This file consolidates the support in one place.
  27
  28    The basic plan is to leave gcc proper alone and via some hook fix things
  29    after the optabs have been set up.  Our main entry point is
  30    INIT_GOFAST_OPTABS.  */
  31
  32 #define INIT_GOFAST_OPTABS \
  33   do { \
  34     GOFAST_CLEAR_NEG_FLOAT_OPTAB; \
  35     GOFAST_RENAME_LIBCALLS; \
  36   } while (0)
  37
  38 #define GOFAST_CLEAR_NEG_FLOAT_OPTAB \
  39   do { \
  40     int mode; \
  41     for (mode = SFmode; (int) mode <= (int) TFmode; \
  42          mode = (enum machine_mode) ((int) mode + 1)) \
  43       neg_optab->handlers[(int) mode].libfunc = NULL_RTX; \
  44   } while (0)
  45
  46 #define GOFAST_RENAME_LIBCALLS \
  47   add_optab->handlers[(int) SFmode].libfunc = gen_rtx (SYMBOL_REF, Pmode, "fpadd"); \
  48   add_optab->handlers[(int) DFmode].libfunc = gen_rtx (SYMBOL_REF, Pmode, "dpadd"); \
  49   sub_optab->handlers[(int) SFmode].libfunc = gen_rtx (SYMBOL_REF, Pmode, "fpsub"); \
  50   sub_optab->handlers[(int) DFmode].libfunc = gen_rtx (SYMBOL_REF, Pmode, "dpsub"); \
  51   smul_optab->handlers[(int) SFmode].libfunc = gen_rtx (SYMBOL_REF, Pmode, "fpmul"); \
  52   smul_optab->handlers[(int) DFmode].libfunc = gen_rtx (SYMBOL_REF, Pmode, "dpmul"); \
  53   flodiv_optab->handlers[(int) SFmode].libfunc = gen_rtx (SYMBOL_REF, Pmode, "fpdiv"); \
  54   flodiv_optab->handlers[(int) DFmode].libfunc = gen_rtx (SYMBOL_REF, Pmode, "dpdiv"); \
  55   cmp_optab->handlers[(int) SFmode].libfunc = gen_rtx (SYMBOL_REF, Pmode, "fpcmp"); \
  56   cmp_optab->handlers[(int) DFmode].libfunc = gen_rtx (SYMBOL_REF, Pmode, "dpcmp"); \
  57 \
  58   extendsfdf2_libfunc = gen_rtx (SYMBOL_REF, Pmode, "fptodp"); \
  59   truncdfsf2_libfunc = gen_rtx (SYMBOL_REF, Pmode, "dptofp"); \
  60 \
  61   eqsf2_libfunc = gen_rtx (SYMBOL_REF, Pmode, "fpcmp"); \
  62   nesf2_libfunc = gen_rtx (SYMBOL_REF, Pmode, "fpcmp"); \
  63   gtsf2_libfunc = gen_rtx (SYMBOL_REF, Pmode, "fpcmp"); \
  64   gesf2_libfunc = gen_rtx (SYMBOL_REF, Pmode, "fpcmp"); \
  65   ltsf2_libfunc = gen_rtx (SYMBOL_REF, Pmode, "fpcmp"); \
  66   lesf2_libfunc = gen_rtx (SYMBOL_REF, Pmode, "fpcmp"); \
  67 \
  68   eqdf2_libfunc = gen_rtx (SYMBOL_REF, Pmode, "dpcmp"); \
  69   nedf2_libfunc = gen_rtx (SYMBOL_REF, Pmode, "dpcmp"); \
  70   gtdf2_libfunc = gen_rtx (SYMBOL_REF, Pmode, "dpcmp"); \
  71   gedf2_libfunc = gen_rtx (SYMBOL_REF, Pmode, "dpcmp"); \
  72   ltdf2_libfunc = gen_rtx (SYMBOL_REF, Pmode, "dpcmp"); \
  73   ledf2_libfunc = gen_rtx (SYMBOL_REF, Pmode, "dpcmp"); \
  74 \
  75   eqxf2_libfunc = NULL_RTX; \
  76   nexf2_libfunc = NULL_RTX; \
  77   gtxf2_libfunc = NULL_RTX; \
  78   gexf2_libfunc = NULL_RTX; \
  79   ltxf2_libfunc = NULL_RTX; \
  80   lexf2_libfunc = NULL_RTX; \
  81 \
  82   eqtf2_libfunc = NULL_RTX; \
  83   netf2_libfunc = NULL_RTX; \
  84   gttf2_libfunc = NULL_RTX; \
  85   getf2_libfunc = NULL_RTX; \
  86   lttf2_libfunc = NULL_RTX; \
  87   letf2_libfunc = NULL_RTX; \
  88 \
  89   floatsisf_libfunc = gen_rtx (SYMBOL_REF, Pmode, "sitofp"); \
  90   floatsidf_libfunc = gen_rtx (SYMBOL_REF, Pmode, "litodp"); \
  91   fixsfsi_libfunc = gen_rtx (SYMBOL_REF, Pmode, "fptosi"); \
  92   fixdfsi_libfunc = gen_rtx (SYMBOL_REF, Pmode, "dptoli"); \
  93   fixunssfsi_libfunc = gen_rtx (SYMBOL_REF, Pmode, "fptoui"); \
  94   fixunsdfsi_libfunc = gen_rtx (SYMBOL_REF, Pmode, "dptoul"); \
  95
  96 /* End of GOFAST_RENAME_LIBCALLS */