1/* US Software GOFAST floating point library support. 2 Copyright (C) 1994, 1998, 1999, 2002, 2003, 2004 3 Free Software Foundation, Inc. 4 5This file is part of GCC. 6 7GCC is free software; you can redistribute it and/or modify 8it under the terms of the GNU General Public License as published by 9the Free Software Foundation; either version 2, or (at your option) 10any later version. 11 12GCC is distributed in the hope that it will be useful, 13but WITHOUT ANY WARRANTY; without even the implied warranty of 14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15GNU General Public License for more details. 16 17You should have received a copy of the GNU General Public License 18along with GCC; see the file COPYING. If not, write to 19the Free Software Foundation, 51 Franklin Street, Fifth Floor, 20Boston, MA 02110-1301, USA. */ 21 22/* The US Software GOFAST library requires special optabs support. 23 This file is intended to be included by config/ARCH/ARCH.c. It 24 defines one function, gofast_maybe_init_libfuncs, which should be 25 called from the TARGET_INIT_LIBFUNCS hook. When tm.h has defined 26 US_SOFTWARE_GOFAST, this function will adjust all the optabs and 27 libfuncs appropriately. Otherwise it will do nothing. */ 28 29static void 30gofast_maybe_init_libfuncs (void) 31{ 32#ifdef US_SOFTWARE_GOFAST 33 int mode; 34 35 set_optab_libfunc (add_optab, SFmode, "fpadd"); 36 set_optab_libfunc (add_optab, DFmode, "dpadd"); 37 set_optab_libfunc (sub_optab, SFmode, "fpsub"); 38 set_optab_libfunc (sub_optab, DFmode, "dpsub"); 39 set_optab_libfunc (smul_optab, SFmode, "fpmul"); 40 set_optab_libfunc (smul_optab, DFmode, "dpmul"); 41 set_optab_libfunc (sdiv_optab, SFmode, "fpdiv"); 42 set_optab_libfunc (sdiv_optab, DFmode, "dpdiv"); 43 set_optab_libfunc (cmp_optab, SFmode, "fpcmp"); 44 set_optab_libfunc (cmp_optab, DFmode, "dpcmp"); 45 46 /* GOFAST does not provide libfuncs for negation, so we use the 47 standard names. */ 48 49 /* GCC does not use fpcmp/dpcmp for gt or ge because its own 50 FP-emulation library returns +1 for both > and unord. So we 51 leave gt and ge unset, such that, instead of fpcmp(a,b) >[=], we 52 generate fpcmp(b,a) <[=] 0, which is unambiguous. For unord 53 libfuncs, we use our own functions, since GOFAST doesn't supply 54 them. */ 55 56 set_optab_libfunc (eq_optab, SFmode, "fpcmp"); 57 set_optab_libfunc (ne_optab, SFmode, "fpcmp"); 58 set_optab_libfunc (gt_optab, SFmode, 0); 59 set_optab_libfunc (ge_optab, SFmode, 0); 60 set_optab_libfunc (lt_optab, SFmode, "fpcmp"); 61 set_optab_libfunc (le_optab, SFmode, "fpcmp"); 62 63 set_optab_libfunc (eq_optab, DFmode, "dpcmp"); 64 set_optab_libfunc (ne_optab, DFmode, "dpcmp"); 65 set_optab_libfunc (gt_optab, DFmode, 0); 66 set_optab_libfunc (ge_optab, DFmode, 0); 67 set_optab_libfunc (lt_optab, DFmode, "dpcmp"); 68 set_optab_libfunc (le_optab, DFmode, "dpcmp"); 69 70 set_conv_libfunc (sext_optab, DFmode, SFmode, "fptodp"); 71 set_conv_libfunc (trunc_optab, SFmode, DFmode, "dptofp"); 72 73 set_conv_libfunc (sfix_optab, SImode, SFmode, "fptosi"); 74 set_conv_libfunc (sfix_optab, SImode, DFmode, "dptoli"); 75 set_conv_libfunc (ufix_optab, SImode, SFmode, "fptoui"); 76 set_conv_libfunc (ufix_optab, SImode, DFmode, "dptoul"); 77 78 set_conv_libfunc (sfloat_optab, SFmode, SImode, "sitofp"); 79 set_conv_libfunc (sfloat_optab, DFmode, SImode, "litodp"); 80#endif 81} 82