mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-16 13:01:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

Merged with libbbid branch at revision 126349.

Browse Source 
From-SVN: r126353
This commit is contained in:
H.J. Lu 2007-07-04 22:36:50 -07:00
parent e5e941450f
commit 200359e888
153 changed files with 178204 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,11 @@
2007-07-04 H.J. Lu <hongjiu.lu@intel.com>
* gcc.dg/dfp/dfp-round.h (FE_DEC_TONEAREST): Redfined for BID.
(FE_DEC_DOWNWARD): Likewise.
(FE_DEC_UPWARD): Likewise.
(FE_DEC_TOWARDZERO): Likewise.
(FE_DEC_TONEARESTFROMZERO): Likewise.
2007-07-04 Daniel Berlin <dberlin@dberlin.org>
* gcc.c-torture/compile/pr32606.c: New.

8
gcc/testsuite/gcc.dg/dfp/dfp-round.h
View File

@ -2,11 +2,19 @@
pass on the rounding mode to decNumber, but later it can be replaced
with Official Stuff. */
#ifdef __DECIMAL_BID_FORMAT__
#define FE_DEC_TONEAREST 0
#define FE_DEC_DOWNWARD 1
#define FE_DEC_UPWARD 2
#define FE_DEC_TOWARDZERO 3
#define FE_DEC_TONEARESTFROMZERO 4
#else
#define FE_DEC_DOWNWARD 0
#define FE_DEC_TONEAREST 1
#define FE_DEC_TONEARESTFROMZERO 2
#define FE_DEC_TOWARDZERO 3
#define FE_DEC_UPWARD 4
#endif
extern void __dfp_set_round (int);
#define DFP_SETROUND(M) __dfp_set_round(M)

6
libgcc/ChangeLog
View File

@ -1,3 +1,7 @@
2007-07-04 H.J. Lu <hongjiu.lu@intel.com>
* Makefile.in: Use libbid for DFP when BID is enabled.
2007-06-14 Danny Smith <dannysmith@users.sourceforge.net>
* config.host(*-cygwin* |*-mingw* ): Add crtbegin.o, crtend.o to
@ -6,7 +10,7 @@
2007-05-29 Zuxy Meng <zuxy.meng@gmail.com>
Danny Smith <dannysmith@users.sourceforge.net>
Danny Smith <dannysmith@users.sourceforge.net>
PR target/29498
* config.host (i[34567]86-*-cygwin* | i[34567]86-*-mingw*) Add

65
libgcc/Makefile.in
View File

@ -185,9 +185,13 @@ export slibdir
version := $(shell $(CC) -dumpversion)
ifeq ($(decimal_float),yes)
ifeq ($(enable_decimal_float),bid)
DECNUMINC = -I$(srcdir)/config/libbid -DENABLE_DECIMAL_BID_FORMAT
else
DECNUMINC = -I$(srcdir)/../libdecnumber/$(enable_decimal_float) \
-I$(srcdir)/../libdecnumber \
-I$(MULTIBUILDTOP)../../libdecnumber
endif
else
DECNUMINC =
endif
@ -469,17 +473,35 @@ D64PBIT = 1
D128PBIT = 1
endif
dec-filenames =
dfp-filenames =
ifneq ($(D32PBIT)$(D64PBIT)$(D128PBIT),)
dec-filenames += decContext decNumber decExcept decRound decLibrary decUtility
ifeq ($(enable_decimal_float),bid)
dfp-filenames += decimal_globals decimal_data binarydecimal \
_isinfd32 _isinfd64 _isinfd128 bid64_noncomp \
bid128_fma bid_round bid_from_int convert_data \
bid64_add bid128_add bid64_div bid128_div \
bid64_mul bid128_mul bid64_compare bid128_compare \
bid128 bid32_to_bid64 bid32_to_bid128 bid64_to_bid128 \
bid64_to_int32 bid64_to_int64 \
bid64_to_uint32 bid64_to_uint64 \
bid128_to_int32 bid128_to_int64 \
bid128_to_uint32 bid128_to_uint64
else
dfp-filenames += decContext decNumber decExcept decRound decLibrary decUtility
endif
endif
dec-objects = $(patsubst %,%$(objext),$(dec-filenames))
$(dec-objects): %$(objext): $(srcdir)/../libdecnumber/%.c
dfp-objects = $(patsubst %,%$(objext),$(dfp-filenames))
ifeq ($(enable_decimal_float),bid)
$(dfp-objects): %$(objext): $(srcdir)/config/libbid/%.c
else
$(dfp-objects): %$(objext): $(srcdir)/../libdecnumber/%.c
endif
$(gcc_compile) -c $<
libgcc-objects += $(dec-objects)
libgcc-objects += $(dfp-objects)
decbits-filenames =
ifneq ($(enable_decimal_float),bid)
ifneq ($(D32PBIT),)
decbits-filenames += decimal32
endif
@ -491,34 +513,61 @@ endif
ifneq ($(D128PBIT),)
decbits-filenames += decimal128
endif
ifeq ($(enable_decimal_float),bid)
decbits-filenames += bid2dpd_dpd2bid
endif
decbits-objects = $(patsubst %,%$(objext),$(decbits-filenames))
ifeq ($(enable_decimal_float),bid)
$(decbits-objects): %$(objext): $(srcdir)/config/libbid/%.c
else
$(decbits-objects): %$(objext): $(srcdir)/../libdecnumber/$(enable_decimal_float)/%.c
endif
$(gcc_compile) -c $<
libgcc-objects += $(decbits-objects)
# Next build individual support functions.
ifeq ($(enable_decimal_float),bid)
ifneq ($(D32PBIT),)
D32PBIT_FUNCS:=$(filter-out _plus_sd _minus_sd _conv_sd, $(D32PBIT_FUNCS))
endif
ifneq ($(D64PBIT),)
D64PBIT_FUNCS:=$(filter-out _plus_dd _minus_dd _conv_dd, $(D64PBIT_FUNCS))
endif
ifneq ($(D128PBIT),)
D128PBIT_FUNCS:=$(filter-out _plus_td _minus_td _conv_td, $(D128PBIT_FUNCS))
endif
endif
ifneq ($(D32PBIT),)
d32pbit-o = $(patsubst %,%$(objext),$(D32PBIT_FUNCS))
ifeq ($(enable_decimal_float),bid)
$(d32pbit-o): %$(objext): $(srcdir)/config/libbid/%.c
else
$(d32pbit-o): %$(objext): $(gcc_srcdir)/config/dfp-bit.c
endif
$(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -DWIDTH=32 -c $<
libgcc-objects += $(d32pbit-o)
endif
ifneq ($(D64PBIT),)
d64pbit-o = $(patsubst %,%$(objext),$(D64PBIT_FUNCS))
ifeq ($(enable_decimal_float),bid)
$(d64pbit-o): %$(objext): $(srcdir)/config/libbid/%.c
else
$(d64pbit-o): %$(objext): $(gcc_srcdir)/config/dfp-bit.c
endif
$(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -DWIDTH=64 -c $<
libgcc-objects += $(d64pbit-o)
endif
ifneq ($(D128PBIT),)
d128pbit-o = $(patsubst %,%$(objext),$(D128PBIT_FUNCS))
ifeq ($(enable_decimal_float),bid)
$(d128pbit-o): %$(objext): $(srcdir)/config/libbid/%.c
else
$(d128pbit-o): %$(objext): $(gcc_srcdir)/config/dfp-bit.c
endif
$(gcc_compile) -DFINE_GRAINED_LIBRARIES -DL$* -DWIDTH=128 -c $<
libgcc-objects += $(d128pbit-o)
endif

153
libgcc/config/libbid/ChangeLog Normal file
View File

@ -0,0 +1,153 @@
2007-07-04 Marius Cornea <marius.cornea@intel.com>
H.J. Lu <hongjiu.lu@intel.com>
* _addsub_dd.c: New file from Intel BID library.
* _addsub_sd.c: Likewise.
* _addsub_td.c: Likewise.
* _dd_to_df.c: Likewise.
* _dd_to_di.c: Likewise.
* _dd_to_sd.c: Likewise.
* _dd_to_sf.c: Likewise.
* _dd_to_si.c: Likewise.
* _dd_to_td.c: Likewise.
* _dd_to_tf.c: Likewise.
* _dd_to_udi.c: Likewise.
* _dd_to_usi.c: Likewise.
* _dd_to_xf.c: Likewise.
* _df_to_dd.c: Likewise.
* _df_to_sd.c: Likewise.
* _df_to_td.c: Likewise.
* _di_to_dd.c: Likewise.
* _di_to_sd.c: Likewise.
* _di_to_td.c: Likewise.
* _div_dd.c: Likewise.
* _div_sd.c: Likewise.
* _div_td.c: Likewise.
* _eq_dd.c: Likewise.
* _eq_sd.c: Likewise.
* _eq_td.c: Likewise.
* _ge_dd.c: Likewise.
* _ge_sd.c: Likewise.
* _ge_td.c: Likewise.
* _gt_dd.c: Likewise.
* _gt_sd.c: Likewise.
* _gt_td.c: Likewise.
* _isinfd128.c: Likewise.
* _isinfd32.c: Likewise.
* _isinfd64.c: Likewise.
* _le_dd.c: Likewise.
* _le_sd.c: Likewise.
* _le_td.c: Likewise.
* _lt_dd.c: Likewise.
* _lt_sd.c: Likewise.
* _lt_td.c: Likewise.
* _mul_dd.c: Likewise.
* _mul_sd.c: Likewise.
* _mul_td.c: Likewise.
* _ne_dd.c: Likewise.
* _ne_sd.c: Likewise.
* _ne_td.c: Likewise.
* _sd_to_dd.c: Likewise.
* _sd_to_df.c: Likewise.
* _sd_to_di.c: Likewise.
* _sd_to_sf.c: Likewise.
* _sd_to_si.c: Likewise.
* _sd_to_td.c: Likewise.
* _sd_to_tf.c: Likewise.
* _sd_to_udi.c: Likewise.
* _sd_to_usi.c: Likewise.
* _sd_to_xf.c: Likewise.
* _sf_to_dd.c: Likewise.
* _sf_to_sd.c: Likewise.
* _sf_to_td.c: Likewise.
* _si_to_dd.c: Likewise.
* _si_to_sd.c: Likewise.
* _si_to_td.c: Likewise.
* _td_to_dd.c: Likewise.
* _td_to_df.c: Likewise.
* _td_to_di.c: Likewise.
* _td_to_sd.c: Likewise.
* _td_to_sf.c: Likewise.
* _td_to_si.c: Likewise.
* _td_to_tf.c: Likewise.
* _td_to_udi.c: Likewise.
* _td_to_usi.c: Likewise.
* _td_to_xf.c: Likewise.
* _tf_to_dd.c: Likewise.
* _tf_to_sd.c: Likewise.
* _tf_to_td.c: Likewise.
* _udi_to_dd.c: Likewise.
* _udi_to_sd.c: Likewise.
* _udi_to_td.c: Likewise.
* _unord_dd.c: Likewise.
* _unord_sd.c: Likewise.
* _unord_td.c: Likewise.
* _usi_to_dd.c: Likewise.
* _usi_to_sd.c: Likewise.
* _usi_to_td.c: Likewise.
* _xf_to_dd.c: Likewise.
* _xf_to_sd.c: Likewise.
* _xf_to_td.c: Likewise.
2007-07-04 Marius Cornea <marius.cornea@intel.com>
* b2d.h: New file from Intel BID library.
* bid128_2_str.h: Likewise.
* bid128_2_str_macros.h: Likewise.
* bid128_2_str_tables.c: Likewise.
* bid128_add.c: Likewise.
* bid128.c: Likewise.
* bid128_compare.c: Likewise.
* bid128_div.c: Likewise.
* bid128_fma.c: Likewise.
* bid128_fromstring.c: Likewise.
* bid128_logb.c: Likewise.
* bid128_minmax.c: Likewise.
* bid128_mul.c: Likewise.
* bid128_next.c: Likewise.
* bid128_noncomp.c: Likewise.
* bid128_quantize.c: Likewise.
* bid128_rem.c: Likewise.
* bid128_round_integral.c: Likewise.
* bid128_scalb.c: Likewise.
* bid128_sqrt.c: Likewise.
* bid128_to_int32.c: Likewise.
* bid128_to_int64.c: Likewise.
* bid128_to_string.c: Likewise.
* bid128_to_uint32.c: Likewise.
* bid128_to_uint64.c: Likewise.
* bid32_to_bid128.c: Likewise.
* bid32_to_bid64.c: Likewise.
* bid64_add.c: Likewise.
* bid64_compare.c: Likewise.
* bid64_div.c: Likewise.
* bid64_fma.c: Likewise.
* bid64_logb.c: Likewise.
* bid64_minmax.c: Likewise.
* bid64_mul.c: Likewise.
* bid64_next.c: Likewise.
* bid64_noncomp.c: Likewise.
* bid64_quantize.c: Likewise.
* bid64_rem.c: Likewise.
* bid64_round_integral.c: Likewise.
* bid64_scalb.c: Likewise.
* bid64_sqrt.c: Likewise.
* bid64_to_bid128.c: Likewise.
* bid64_to_int32.c: Likewise.
* bid64_to_int64.c: Likewise.
* bid64_to_uint32.c: Likewise.
* bid64_to_uint64.c: Likewise.
* bid_conf.h: Likewise.
* bid_flag_operations.c: Likewise.
* bid_from_int.c: Likewise.
* bid_functions.h: Likewise.
* bid_internal.h: Likewise.
* bid_round.c: Likewise.
* bid_string.c: Likewise.
* binarydecimal.c: Likewise.
* convert_data.c: Likewise.
* decimal_data.c: Likewise.
* decimal_globals.c: Likewise.
* div_macros.h: Likewise.
* inline_bid_add.h: Likewise.
* sqrt_macros.h: Likewise.

50
libgcc/config/libbid/_addsub_dd.c Normal file
View File

@ -0,0 +1,50 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal64
__bid_adddd3 (_Decimal64 x, _Decimal64 y) {
union decimal64 ux, uy, res;
ux.d = x;
uy.d = y;
res.i = __bid64_add (ux.i, uy.i);
return (res.d);
}
_Decimal64
__bid_subdd3 (_Decimal64 x, _Decimal64 y) {
union decimal64 ux, uy, res;
ux.d = x;
uy.d = y;
res.i = __bid64_sub (ux.i, uy.i);
return (res.d);
}

58
libgcc/config/libbid/_addsub_sd.c Normal file
View File

@ -0,0 +1,58 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal32
__bid_addsd3 (_Decimal32 x, _Decimal32 y) {
UINT64 x64, y64, res64;
union decimal32 ux, uy, res;
ux.d = x;
uy.d = y;
x64 = __bid32_to_bid64 (ux.i);
y64 = __bid32_to_bid64 (uy.i);
res64 = __bid64_add (x64, y64);
res.i = __bid64_to_bid32 (res64);
return (res.d);
}
_Decimal32
__bid_subsd3 (_Decimal32 x, _Decimal32 y) {
UINT64 x64, y64, res64;
union decimal32 ux, uy, res;
ux.d = x;
uy.d = y;
x64 = __bid32_to_bid64 (ux.i);
y64 = __bid32_to_bid64 (uy.i);
res64 = __bid64_sub (x64, y64);
res.i = __bid64_to_bid32 (res64);
return (res.d);
}

50
libgcc/config/libbid/_addsub_td.c Normal file
View File

@ -0,0 +1,50 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal128
__bid_addtd3 (_Decimal128 x, _Decimal128 y) {
union decimal128 ux, uy, res;
ux.d = x;
uy.d = y;
res.i = __bid128_add (ux.i, uy.i);
return (res.d);
}
_Decimal128
__bid_subtd3 (_Decimal128 x, _Decimal128 y) {
union decimal128 ux, uy, res;
ux.d = x;
uy.d = y;
res.i = __bid128_sub (ux.i, uy.i);
return (res.d);
}

40
libgcc/config/libbid/_dd_to_df.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
DFtype
__bid_truncdddf (_Decimal64 x) {
DFtype res;
union decimal64 ux;
ux.d = x;
res = __bid64_to_binary64 (ux.i);
return (res);
}

42
libgcc/config/libbid/_dd_to_di.c Normal file
View File

@ -0,0 +1,42 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
DItype
__bid_fixdddi (_Decimal64 x) {
DItype res;
union decimal64 ux;
ux.d = x;
res = __bid64_to_int64_xint (ux.i);
return (res);
}

40
libgcc/config/libbid/_dd_to_sd.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal32
__bid_truncddsd2 (_Decimal64 x) {
union decimal32 res;
union decimal64 ux;
ux.d = x;
res.i = __bid64_to_bid32 (ux.i);
return (res.d);
}

40
libgcc/config/libbid/_dd_to_sf.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
SFtype
__bid_truncddsf (_Decimal64 x) {
SFtype res;
union decimal64 ux;
ux.d = x;
res = __bid64_to_binary32 (ux.i);
return (res);
}

42
libgcc/config/libbid/_dd_to_si.c Normal file
View File

@ -0,0 +1,42 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
SItype
__bid_fixddsi (_Decimal64 x) {
SItype res;
union decimal64 ux;
ux.d = x;
res = __bid64_to_int32_xint (ux.i);
return (res);
}

40
libgcc/config/libbid/_dd_to_td.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal128
__bid_extendddtd2 (_Decimal64 x) {
union decimal128 res;
union decimal64 ux;
ux.d = x;
res.i = __bid64_to_bid128 (ux.i);
return (res.d);
}

42
libgcc/config/libbid/_dd_to_tf.c Normal file
View File

@ -0,0 +1,42 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
#if LIBGCC2_HAS_TF_MODE || BID_HAS_TF_MODE
TFtype
__bid_extendddtf (_Decimal64 x) {
union float128 res;
union decimal64 ux;
ux.d = x;
res.i = __bid64_to_binary128 (ux.i);
return (res.f);
}
#endif

42
libgcc/config/libbid/_dd_to_udi.c Normal file
View File

@ -0,0 +1,42 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
UDItype
__bid_fixunsdddi (_Decimal64 x) {
UDItype res;
union decimal64 ux;
ux.d = x;
res = __bid64_to_uint64_xint (ux.i);
if (res == 0x8000000000000000ull) res = 0; // for NaNs too
return (res);
}

42
libgcc/config/libbid/_dd_to_usi.c Normal file
View File

@ -0,0 +1,42 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
USItype
__bid_fixunsddsi (_Decimal64 x) {
USItype res;
union decimal64 ux;
ux.d = x;
res = __bid64_to_uint32_xint (ux.i);
if (res == 0x80000000) res = 0; // for NaNs too
return (res);
}

40
libgcc/config/libbid/_dd_to_xf.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
XFtype
__bid_extendddxf (_Decimal64 x) {
XFtype res;
union decimal64 ux;
ux.d = x;
res = __bid64_to_binary80 (ux.i);
return (res);
}

37
libgcc/config/libbid/_df_to_dd.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal64
__bid_extenddfdd (DFtype x) {
union decimal64 res;
res.i = __binary64_to_bid64 (x);
return (res.d);
}

37
libgcc/config/libbid/_df_to_sd.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal32
__bid_truncdfsd (DFtype x) {
union decimal32 res;
res.i = __binary64_to_bid32 (x);
return (res.d);
}

37
libgcc/config/libbid/_df_to_td.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal128
__bid_extenddftd (DFtype x) {
union decimal128 res;
res.i = __binary64_to_bid128 (x);
return (res.d);
}

37
libgcc/config/libbid/_di_to_dd.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal64
__bid_floatdidd (DItype x) {
union decimal64 res;
res.i = __bid64_from_int64 (x);
return (res.d);
}

40
libgcc/config/libbid/_di_to_sd.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal32
__bid_floatdisd (DItype x) {
union decimal32 res;
UINT64 res64;
res64 = __bid64_from_int64 (x);
res.i = __bid64_to_bid32 (res64);
return (res.d);
}

37
libgcc/config/libbid/_di_to_td.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal128
__bid_floatditd (DItype x) {
union decimal128 res;
res.i = __bid128_from_int64 (x);
return (res.d);
}

40
libgcc/config/libbid/_div_dd.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal64
__bid_divdd3 (_Decimal64 x, _Decimal64 y) {
union decimal64 ux, uy, res;
ux.d = x;
uy.d = y;
res.i = __bid64_div (ux.i, uy.i);
return (res.d);
}

44
libgcc/config/libbid/_div_sd.c Normal file
View File

@ -0,0 +1,44 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal32
__bid_divsd3 (_Decimal32 x, _Decimal32 y) {
UINT64 x64, y64, res64;
union decimal32 ux, uy, res;
ux.d = x;
uy.d = y;
x64 = __bid32_to_bid64 (ux.i);
y64 = __bid32_to_bid64 (uy.i);
res64 = __bid64_div (x64, y64);
res.i = __bid64_to_bid32 (res64);
return (res.d);
}

40
libgcc/config/libbid/_div_td.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal128
__bid_divtd3 (_Decimal128 x, _Decimal128 y) {
union decimal128 ux, uy, res;
ux.d = x;
uy.d = y;
res.i = __bid128_div (ux.i, uy.i);
return (res.d);
}

45
libgcc/config/libbid/_eq_dd.c Normal file
View File

@ -0,0 +1,45 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_eqdd2 (_Decimal64 x, _Decimal64 y) {
CMPtype res;
union decimal64 ux, uy;
ux.d = x;
uy.d = y;
res = __bid64_quiet_equal (ux.i, uy.i);
if (res == 0)
res = 1;
else
res = 0;
return (res);
}

48
libgcc/config/libbid/_eq_sd.c Normal file
View File

@ -0,0 +1,48 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_eqsd2 (_Decimal32 x, _Decimal32 y) {
CMPtype res;
UINT64 x64, y64;
union decimal32 ux, uy;
ux.d = x;
uy.d = y;
x64 = __bid32_to_bid64 (ux.i);
y64 = __bid32_to_bid64 (uy.i);
res = __bid64_quiet_equal (x64, y64);
if (res == 0)
res = 1;
else
res = 0;
return (res);
}

45
libgcc/config/libbid/_eq_td.c Normal file
View File

@ -0,0 +1,45 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_eqtd2 (_Decimal128 x, _Decimal128 y) {
CMPtype res;
union decimal128 ux, uy;
ux.d = x;
uy.d = y;
res = __bid128_quiet_equal (ux.i, uy.i);
if (res == 0)
res = 1;
else
res = 0;
return (res);
}

43
libgcc/config/libbid/_ge_dd.c Normal file
View File

@ -0,0 +1,43 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_gedd2 (_Decimal64 x, _Decimal64 y) {
CMPtype res;
union decimal64 ux, uy;
ux.d = x;
uy.d = y;
res = __bid64_quiet_greater_equal (ux.i, uy.i);
if (res == 0) res = -1;
return (res);
}

46
libgcc/config/libbid/_ge_sd.c Normal file
View File

@ -0,0 +1,46 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_gesd2 (_Decimal32 x, _Decimal32 y) {
CMPtype res;
UINT64 x64, y64;
union decimal32 ux, uy;
ux.d = x;
uy.d = y;
x64 = __bid32_to_bid64 (ux.i);
y64 = __bid32_to_bid64 (uy.i);
res = __bid64_quiet_greater_equal (x64, y64);
if (res == 0) res = -1;
return (res);
}

43
libgcc/config/libbid/_ge_td.c Normal file
View File

@ -0,0 +1,43 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_getd2 (_Decimal128 x, _Decimal128 y) {
CMPtype res;
union decimal128 ux, uy;
ux.d = x;
uy.d = y;
res = __bid128_quiet_greater_equal (ux.i, uy.i);
if (res == 0) res = -1;
return (res);
}

41
libgcc/config/libbid/_gt_dd.c Normal file
View File

@ -0,0 +1,41 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_gtdd2 (_Decimal64 x, _Decimal64 y) {
CMPtype res;
union decimal64 ux, uy;
ux.d = x;
uy.d = y;
res = __bid64_quiet_greater (ux.i, uy.i);
return (res);
}

44
libgcc/config/libbid/_gt_sd.c Normal file
View File

@ -0,0 +1,44 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_gtsd2 (_Decimal32 x, _Decimal32 y) {
CMPtype res;
UINT64 x64, y64;
union decimal32 ux, uy;
ux.d = x;
uy.d = y;
x64 = __bid32_to_bid64 (ux.i);
y64 = __bid32_to_bid64 (uy.i);
res = __bid64_quiet_greater (x64, y64);
return (res);
}

41
libgcc/config/libbid/_gt_td.c Normal file
View File

@ -0,0 +1,41 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_gttd2 (_Decimal128 x, _Decimal128 y) {
CMPtype res;
union decimal128 ux, uy;
ux.d = x;
uy.d = y;
res = __bid128_quiet_greater (ux.i, uy.i);
return (res);
}

41
libgcc/config/libbid/_isinfd128.c Normal file
View File

@ -0,0 +1,41 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
int
isinfd128 (_Decimal128 x) {
int res;
union decimal128 ux;
ux.d = x;
res = __bid128_isInf (ux.i);
return (res);
}

43
libgcc/config/libbid/_isinfd32.c Normal file
View File

@ -0,0 +1,43 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
int
isinfd32 (_Decimal32 x) {
int res;
UINT64 x64;
union decimal32 ux;
ux.d = x;
x64 = __bid32_to_bid64 (ux.i);
res = __bid64_isInf (x64);
return (res);
}

41
libgcc/config/libbid/_isinfd64.c Normal file
View File

@ -0,0 +1,41 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
int
isinfd64 (_Decimal64 x) {
int res;
union decimal64 ux;
ux.d = x;
res = __bid64_isInf (ux.i);
return (res);
}

45
libgcc/config/libbid/_le_dd.c Normal file
View File

@ -0,0 +1,45 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_ledd2 (_Decimal64 x, _Decimal64 y) {
CMPtype res;
union decimal64 ux, uy;
ux.d = x;
uy.d = y;
res = __bid64_quiet_less_equal (ux.i, uy.i);
if (res != 0)
res = -1;
else
res = 1;
return (res);
}

48
libgcc/config/libbid/_le_sd.c Normal file
View File

@ -0,0 +1,48 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_lesd2 (_Decimal32 x, _Decimal32 y) {
CMPtype res;
UINT64 x64, y64;
union decimal32 ux, uy;
ux.d = x;
uy.d = y;
x64 = __bid32_to_bid64 (ux.i);
y64 = __bid32_to_bid64 (uy.i);
res = __bid64_quiet_less_equal (x64, y64);
if (res != 0)
res = -1;
else
res = 1;
return (res);
}

45
libgcc/config/libbid/_le_td.c Normal file
View File

@ -0,0 +1,45 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_letd2 (_Decimal128 x, _Decimal128 y) {
CMPtype res;
union decimal128 ux, uy;
ux.d = x;
uy.d = y;
res = __bid128_quiet_less_equal (ux.i, uy.i);
if (res != 0)
res = -1;
else
res = 1;
return (res);
}

41
libgcc/config/libbid/_lt_dd.c Normal file
View File

@ -0,0 +1,41 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_ltdd2 (_Decimal64 x, _Decimal64 y) {
CMPtype res;
union decimal64 ux, uy;
ux.d = x;
uy.d = y;
res = -__bid64_quiet_less (ux.i, uy.i);
return (res);
}

44
libgcc/config/libbid/_lt_sd.c Normal file
View File

@ -0,0 +1,44 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_ltsd2 (_Decimal32 x, _Decimal32 y) {
CMPtype res;
UINT64 x64, y64;
union decimal32 ux, uy;
ux.d = x;
uy.d = y;
x64 = __bid32_to_bid64 (ux.i);
y64 = __bid32_to_bid64 (uy.i);
res = -__bid64_quiet_less (x64, y64);
return (res);
}

41
libgcc/config/libbid/_lt_td.c Normal file
View File

@ -0,0 +1,41 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_lttd2 (_Decimal128 x, _Decimal128 y) {
CMPtype res;
union decimal128 ux, uy;
ux.d = x;
uy.d = y;
res = -__bid128_quiet_less (ux.i, uy.i);
return (res);
}

40
libgcc/config/libbid/_mul_dd.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal64
__bid_muldd3 (_Decimal64 x, _Decimal64 y) {
union decimal64 ux, uy, res;
ux.d = x;
uy.d = y;
res.i = __bid64_mul (ux.i, uy.i);
return (res.d);
}

44
libgcc/config/libbid/_mul_sd.c Normal file
View File

@ -0,0 +1,44 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal32
__bid_mulsd3 (_Decimal32 x, _Decimal32 y) {
UINT64 x64, y64, res64;
union decimal32 ux, uy, res;
ux.d = x;
uy.d = y;
x64 = __bid32_to_bid64 (ux.i);
y64 = __bid32_to_bid64 (uy.i);
res64 = __bid64_mul (x64, y64);
res.i = __bid64_to_bid32 (res64);
return (res.d);
}

40
libgcc/config/libbid/_mul_td.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal128
__bid_multd3 (_Decimal128 x, _Decimal128 y) {
union decimal128 ux, uy, res;
ux.d = x;
uy.d = y;
res.i = __bid128_mul (ux.i, uy.i);
return (res.d);
}

41
libgcc/config/libbid/_ne_dd.c Normal file
View File

@ -0,0 +1,41 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_nedd2 (_Decimal64 x, _Decimal64 y) {
CMPtype res;
union decimal64 ux, uy;
ux.d = x;
uy.d = y;
res = __bid64_quiet_not_equal (ux.i, uy.i);
return (res);
}

44
libgcc/config/libbid/_ne_sd.c Normal file
View File

@ -0,0 +1,44 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_nesd2 (_Decimal32 x, _Decimal32 y) {
CMPtype res;
UINT64 x64, y64;
union decimal32 ux, uy;
ux.d = x;
uy.d = y;
x64 = __bid32_to_bid64 (ux.i);
y64 = __bid32_to_bid64 (uy.i);
res = __bid64_quiet_not_equal (x64, y64);
return (res);
}

41
libgcc/config/libbid/_ne_td.c Normal file
View File

@ -0,0 +1,41 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_netd2 (_Decimal128 x, _Decimal128 y) {
CMPtype res;
union decimal128 ux, uy;
ux.d = x;
uy.d = y;
res = __bid128_quiet_not_equal (ux.i, uy.i);
return (res);
}

40
libgcc/config/libbid/_sd_to_dd.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal64
__bid_extendsddd2 (_Decimal32 x) {
union decimal64 res;
union decimal32 ux;
ux.d = x;
res.i = __bid32_to_bid64 (ux.i);
return (res.d);
}

40
libgcc/config/libbid/_sd_to_df.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
DFtype
__bid_extendsddf (_Decimal32 x) {
DFtype res;
union decimal32 ux;
ux.d = x;
res = __bid32_to_binary64 (ux.i);
return (res);
}

44
libgcc/config/libbid/_sd_to_di.c Normal file
View File

@ -0,0 +1,44 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
DItype
__bid_fixsddi (_Decimal32 x) {
DItype res;
UINT64 x64;
union decimal32 ux;
ux.d = x;
x64 = __bid32_to_bid64 (ux.i);
res = __bid64_to_int64_xint (x64);
return (res);
}

40
libgcc/config/libbid/_sd_to_sf.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
SFtype
__bid_truncsdsf (_Decimal32 x) {
SFtype res;
union decimal32 ux;
ux.d = x;
res = __bid32_to_binary32 (ux.i);
return (res);
}

44
libgcc/config/libbid/_sd_to_si.c Normal file
View File

@ -0,0 +1,44 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
SItype
__bid_fixsdsi (_Decimal32 x) {
SItype res;
UINT64 x64;
union decimal32 ux;
ux.d = x;
x64 = __bid32_to_bid64 (ux.i);
res = __bid64_to_int32_xint (x64);
return (res);
}

40
libgcc/config/libbid/_sd_to_td.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal128
__bid_extendsdtd2 (_Decimal32 x) {
union decimal128 res;
union decimal32 ux;
ux.d = x;
res.i = __bid32_to_bid128 (ux.i);
return (res.d);
}

42
libgcc/config/libbid/_sd_to_tf.c Normal file
View File

@ -0,0 +1,42 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
#if LIBGCC2_HAS_TF_MODE || BID_HAS_TF_MODE
TFtype
__bid_extendsdtf (_Decimal32 x) {
union float128 res;
union decimal32 ux;
ux.d = x;
res.i = __bid32_to_binary128 (ux.i);
return (res.f);
}
#endif

44
libgcc/config/libbid/_sd_to_udi.c Normal file
View File

@ -0,0 +1,44 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
UDItype
__bid_fixunssddi (_Decimal32 x) {
UDItype res;
UINT64 x64;
union decimal32 ux;
ux.d = x;
x64 = __bid32_to_bid64 (ux.i);
res = __bid64_to_uint64_xint (x64);
if (res == 0x8000000000000000ull) res = 0; // for NaNs too
return (res);
}

44
libgcc/config/libbid/_sd_to_usi.c Normal file
View File

@ -0,0 +1,44 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
USItype
__bid_fixunssdsi (_Decimal32 x) {
USItype res;
UINT64 x64;
union decimal32 ux;
ux.d = x;
x64 = __bid32_to_bid64 (ux.i);
res = __bid64_to_uint32_xint (x64);
if (res == 0x80000000) res = 0; // for NaNs too
return (res);
}

40
libgcc/config/libbid/_sd_to_xf.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
XFtype
__bid_extendsdxf (_Decimal32 x) {
XFtype res;
union decimal32 ux;
ux.d = x;
res = __bid32_to_binary80 (ux.i);
return (res);
}

37
libgcc/config/libbid/_sf_to_dd.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal64
__bid_extendsfdd (SFtype x) {
union decimal64 res;
res.i = __binary32_to_bid64 (x);
return (res.d);
}

37
libgcc/config/libbid/_sf_to_sd.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal32
__bid_extendsfsd (SFtype x) {
union decimal32 res;
res.i = __binary32_to_bid32 (x);
return (res.d);
}

37
libgcc/config/libbid/_sf_to_td.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal128
__bid_extendsftd (SFtype x) {
union decimal128 res;
res.i = __binary32_to_bid128 (x);
return (res.d);
}

37
libgcc/config/libbid/_si_to_dd.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal64
__bid_floatsidd (SItype x) {
union decimal64 res;
res.i = __bid64_from_int32 (x);
return (res.d);
}

40
libgcc/config/libbid/_si_to_sd.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal32
__bid_floatsisd (SItype x) {
union decimal32 res;
UINT64 res64;
res64 = __bid64_from_int32 (x);
res.i = __bid64_to_bid32 (res64);
return (res.d);
}

37
libgcc/config/libbid/_si_to_td.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal128
__bid_floatsitd (SItype x) {
union decimal128 res;
res.i = __bid128_from_int32 (x);
return (res.d);
}

40
libgcc/config/libbid/_td_to_dd.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal64
__bid_trunctddd2 (_Decimal128 x) {
union decimal128 ux;
union decimal64 res;
ux.d = x;
res.i = __bid128_to_bid64 (ux.i);
return (res.d);
}

40
libgcc/config/libbid/_td_to_df.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
DFtype
__bid_trunctddf (_Decimal128 x) {
DFtype res;
union decimal128 ux;
ux.d = x;
res = __bid128_to_binary64 (ux.i);
return (res);
}

42
libgcc/config/libbid/_td_to_di.c Normal file
View File

@ -0,0 +1,42 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
DItype
__bid_fixtddi (_Decimal128 x) {
DItype res;
union decimal128 ux;
ux.d = x;
res = __bid128_to_int64_xint (ux.i);
return (res);
}

40
libgcc/config/libbid/_td_to_sd.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal32
__bid_trunctdsd2 (_Decimal128 x) {
union decimal128 ux;
union decimal32 res;
ux.d = x;
res.i = __bid128_to_bid32 (ux.i);
return (res.d);
}

40
libgcc/config/libbid/_td_to_sf.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
SFtype
__bid_trunctdsf (_Decimal128 x) {
SFtype res;
union decimal128 ux;
ux.d = x;
res = __bid128_to_binary32 (ux.i);
return (res);
}

41
libgcc/config/libbid/_td_to_si.c Normal file
View File

@ -0,0 +1,41 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
SItype
__bid_fixtdsi (_Decimal128 x) {
SItype res;
union decimal128 ux;
ux.d = x;
res = __bid128_to_int32_xint (ux.i);
return (res);
}

42
libgcc/config/libbid/_td_to_tf.c Normal file
View File

@ -0,0 +1,42 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
#if LIBGCC2_HAS_TF_MODE || BID_HAS_TF_MODE
TFtype
__bid_trunctdtf (_Decimal128 x) {
union float128 res;
union decimal128 ux;
ux.d = x;
res.i = __bid128_to_binary128 (ux.i);
return (res.f);
}
#endif

43
libgcc/config/libbid/_td_to_udi.c Normal file
View File

@ -0,0 +1,43 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
UDItype
__bid_fixunstddi (_Decimal128 x) {
UDItype res;
union decimal128 ux;
ux.d = x;
res = __bid128_to_uint64_xint (ux.i);
if (res == 0x8000000000000000ull) res = 0; // for NaNs too
return (res);
}

43
libgcc/config/libbid/_td_to_usi.c Normal file
View File

@ -0,0 +1,43 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
USItype
__bid_fixunstdsi (_Decimal128 x) {
USItype res;
union decimal128 ux;
ux.d = x;
res = __bid128_to_uint32_xint (ux.i);
if (res == 0x80000000) res = 0; // for NaNs too
return (res);
}

40
libgcc/config/libbid/_td_to_xf.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
XFtype
__bid_trunctdxf (_Decimal128 x) {
XFtype res;
union decimal128 ux;
ux.d = x;
res = __bid128_to_binary80 (ux.i);
return (res);
}

42
libgcc/config/libbid/_tf_to_dd.c Normal file
View File

@ -0,0 +1,42 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
#if LIBGCC2_HAS_TF_MODE || BID_HAS_TF_MODE
_Decimal64
__bid_trunctfdd (TFtype x) {
union decimal64 res;
union float128 ux;
ux.f = x;
res.i = __binary128_to_bid64 (ux.i);
return (res.d);
}
#endif

42
libgcc/config/libbid/_tf_to_sd.c Normal file
View File

@ -0,0 +1,42 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
#if LIBGCC2_HAS_TF_MODE || BID_HAS_TF_MODE
_Decimal32
__bid_trunctfsd (TFtype x) {
union decimal32 res;
union float128 ux;
ux.f = x;
res.i = __binary128_to_bid32 (ux.i);
return (res.d);
}
#endif

42
libgcc/config/libbid/_tf_to_td.c Normal file
View File

@ -0,0 +1,42 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
#if LIBGCC2_HAS_TF_MODE || BID_HAS_TF_MODE
_Decimal128
__bid_extendtftd (TFtype x) {
union decimal128 res;
union float128 ux;
ux.f = x;
res.i = __binary128_to_bid128 (ux.i);
return (res.d);
}
#endif

37
libgcc/config/libbid/_udi_to_dd.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal64
__bid_floatunsdidd (UDItype x) {
union decimal64 res;
res.i = __bid64_from_uint64 (x);
return (res.d);
}

40
libgcc/config/libbid/_udi_to_sd.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal32
__bid_floatunsdisd (UDItype x) {
union decimal32 res;
UINT64 res64;
res64 = __bid64_from_uint64 (x);
res.i = __bid64_to_bid32 (res64);
return (res.d);
}

37
libgcc/config/libbid/_udi_to_td.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal128
__bid_floatunsditd (UDItype x) {
union decimal128 res;
res.i = __bid128_from_uint64 (x);
return (res.d);
}

41
libgcc/config/libbid/_unord_dd.c Normal file
View File

@ -0,0 +1,41 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_unorddd2 (_Decimal64 x, _Decimal64 y) {
CMPtype res;
union decimal64 ux, uy;
ux.d = x;
uy.d = y;
res = __bid64_quiet_unordered (ux.i, uy.i);
return (res);
}

45
libgcc/config/libbid/_unord_sd.c Normal file
View File

@ -0,0 +1,45 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_unordsd2 (_Decimal32 x, _Decimal32 y) {
CMPtype res;
UINT64 x64, y64;
union decimal32 ux, uy;
ux.d = x;
uy.d = y;
x64 = __bid32_to_bid64 (ux.i);
y64 = __bid32_to_bid64 (uy.i);
res = __bid64_quiet_unordered (x64, y64);
return (res);
}

41
libgcc/config/libbid/_unord_td.c Normal file
View File

@ -0,0 +1,41 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
CMPtype
__bid_unordtd2 (_Decimal128 x, _Decimal128 y) {
CMPtype res;
union decimal128 ux, uy;
ux.d = x;
uy.d = y;
res = __bid128_quiet_unordered (ux.i, uy.i);
return (res);
}

37
libgcc/config/libbid/_usi_to_dd.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal64
__bid_floatunssidd (USItype x) {
union decimal64 res;
res.i = __bid64_from_uint32 (x);
return (res.d);
}

40
libgcc/config/libbid/_usi_to_sd.c Normal file
View File

@ -0,0 +1,40 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal32
__bid_floatunssisd (USItype x) {
union decimal32 res;
UINT64 res64;
res64 = __bid64_from_uint32 (x);
res.i = __bid64_to_bid32 (res64);
return (res.d);
}

37
libgcc/config/libbid/_usi_to_td.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal128
__bid_floatunssitd (USItype x) {
union decimal128 res;
res.i = __bid128_from_uint32 (x);
return (res.d);
}

37
libgcc/config/libbid/_xf_to_dd.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal64
__bid_truncxfdd (XFtype x) {
union decimal64 res;
res.i = __binary80_to_bid64 (x);
return (res.d);
}

37
libgcc/config/libbid/_xf_to_sd.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal32
__bid_truncxfsd (XFtype x) {
union decimal32 res;
res.i = __binary80_to_bid32 (x);
return (res.d);
}

37
libgcc/config/libbid/_xf_to_td.c Normal file
View File

@ -0,0 +1,37 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_conf.h"
#include "bid_functions.h"
_Decimal128
__bid_extendxftd (XFtype x) {
union decimal128 res;
res.i = __binary80_to_bid128 (x);
return (res.d);
}

3050
libgcc/config/libbid/b2d.h Normal file
View File

File diff suppressed because it is too large Load Diff

4042
libgcc/config/libbid/bid128.c Normal file
View File

File diff suppressed because it is too large Load Diff

38
libgcc/config/libbid/bid128_2_str.h Normal file
View File

@ -0,0 +1,38 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
extern UINT64 __bid_Twoto60_m_10to18;
extern UINT64 __bid_Twoto60;
extern UINT64 __bid_Inv_Tento9;
extern UINT32 __bid_Twoto30_m_10to9;
extern UINT32 __bid_Tento9;
extern UINT32 __bid_Tento6;
extern UINT32 __bid_Tento3;
extern char __bid_midi_tbl[1000][3];
extern UINT64 __bid_mod10_18_tbl[9][128];

154
libgcc/config/libbid/bid128_2_str_macros.h Normal file
View File

@ -0,0 +1,154 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#define __L0_Normalize_10to18( X_hi, X_lo ) \
{ \
UINT64 L0_tmp; \
L0_tmp = (X_lo) + __bid_Twoto60_m_10to18; \
if (L0_tmp & __bid_Twoto60) \
{(X_hi)=(X_hi)+1;(X_lo)=((L0_tmp<<4)>>4);} \
}
#define __L0_Normalize_10to9( X_hi, X_lo ) \
{ \
UINT32 L0_tmp; \
L0_tmp = (X_lo) + __bid_Twoto30_m_10to9; \
if (L0_tmp & 0x40000000) \
{(X_hi)=(X_hi)+1;(X_lo)=((L0_tmp<<2)>>2);} \
}
#define __L0_Split_MiDi_2( X, ptr ) \
{ \
UINT32 L0_head, L0_tail, L0_tmp; \
L0_head = (X) >> 10; \
L0_tail = ((X)&(0x03FF))+(L0_head<<5)-(L0_head<<3); \
L0_tmp = (L0_tail)>>10; L0_head += L0_tmp; \
L0_tail = (L0_tail&(0x03FF))+(L0_tmp<<5)-(L0_tmp<<3); \
if (L0_tail > 999){L0_tail -= 1000; L0_head += 1;} \
*((ptr)++) = L0_head; *((ptr)++) = L0_tail; \
}
#define __L0_Split_MiDi_3( X, ptr ) \
{ \
UINT32 L0_X, L0_head, L0_mid, L0_tail, L0_tmp; \
L0_X = (UINT32)((X)); \
L0_head = ((L0_X>>17)*34359)>>18; \
L0_X -= L0_head*1000000; \
if (L0_X >= 1000000){L0_X -= 1000000;L0_head+=1;} \
L0_mid = L0_X >> 10; \
L0_tail = (L0_X & (0x03FF))+(L0_mid<<5)-(L0_mid<<3); \
L0_tmp = (L0_tail)>>10; L0_mid += L0_tmp; \
L0_tail = (L0_tail&(0x3FF))+(L0_tmp<<5)-(L0_tmp<<3); \
if (L0_tail>999){L0_tail-=1000;L0_mid+=1;} \
*((ptr)++)=L0_head;*((ptr)++)=L0_mid; \
*((ptr)++)=L0_tail; \
}
#define __L1_Split_MiDi_6( X, ptr ) \
{ \
UINT32 L1_X_hi, L1_X_lo; \
UINT64 L1_Xhi_64, L1_Xlo_64; \
L1_Xhi_64 = ( ((X)>>28)*__bid_Inv_Tento9 ) >> 33; \
L1_Xlo_64 = (X) - L1_Xhi_64*(UINT64)__bid_Tento9; \
if (L1_Xlo_64 >= (UINT64)__bid_Tento9) \
{L1_Xlo_64-=(UINT64)__bid_Tento9;L1_Xhi_64+=1;} \
L1_X_hi=(UINT32)L1_Xhi_64; L1_X_lo=(UINT32)L1_Xlo_64; \
__L0_Split_MiDi_3(L1_X_hi,(ptr)); \
__L0_Split_MiDi_3(L1_X_lo,(ptr)); \
}
#define __L1_Split_MiDi_6_Lead( X, ptr ) \
{ \
UINT32 L1_X_hi, L1_X_lo; \
UINT64 L1_Xhi_64, L1_Xlo_64; \
if ((X)>=(UINT64)__bid_Tento9){ \
L1_Xhi_64 = ( ((X)>>28)*__bid_Inv_Tento9 ) >> 33; \
L1_Xlo_64 = (X) - L1_Xhi_64*(UINT64)__bid_Tento9; \
if (L1_Xlo_64 >= (UINT64)__bid_Tento9) \
{L1_Xlo_64-=(UINT64)__bid_Tento9;L1_Xhi_64+=1;} \
L1_X_hi=(UINT32)L1_Xhi_64; \
L1_X_lo=(UINT32)L1_Xlo_64; \
if (L1_X_hi>=__bid_Tento6){ \
__L0_Split_MiDi_3(L1_X_hi,(ptr)); \
__L0_Split_MiDi_3(L1_X_lo,(ptr)); \
} \
else if (L1_X_hi>=__bid_Tento3){ \
__L0_Split_MiDi_2(L1_X_hi,(ptr)); \
__L0_Split_MiDi_3(L1_X_lo,(ptr)); \
} \
else { \
*((ptr)++) = L1_X_hi; \
__L0_Split_MiDi_3(L1_X_lo,(ptr)); \
} \
} \
else { \
L1_X_lo = (UINT32)(X); \
if (L1_X_lo>=__bid_Tento6){ \
__L0_Split_MiDi_3(L1_X_lo,(ptr)); \
} \
else if (L1_X_lo>=__bid_Tento3){ \
__L0_Split_MiDi_2(L1_X_lo,(ptr)); \
} \
else { \
*((ptr)++) = L1_X_lo; \
} \
} \
}
#define __L0_MiDi2Str( X, c_ptr ) \
{ \
char *L0_src; \
L0_src = __bid_midi_tbl[(X)]; \
*((c_ptr)++) = *(L0_src++); \
*((c_ptr)++) = *(L0_src++); \
*((c_ptr)++) = *(L0_src); \
}
#define __L0_MiDi2Str_Lead( X, c_ptr ) \
{ \
char *L0_src; \
L0_src = __bid_midi_tbl[(X)]; \
if ((X)>=100){ \
*((c_ptr)++) = *(L0_src++); \
*((c_ptr)++) = *(L0_src++); \
*((c_ptr)++) = *(L0_src); \
} \
else if ((X)>=10){ \
L0_src++; \
*((c_ptr)++) = *(L0_src++); \
*((c_ptr)++) = *(L0_src); \
} \
else { \
L0_src++;L0_src++; \
*((c_ptr)++) = *(L0_src); \
} \
}

523
libgcc/config/libbid/bid128_2_str_tables.c Normal file
View File

@ -0,0 +1,523 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#include "bid_internal.h"
UINT64 __bid_Twoto60_m_10to18 = 152921504606846976LL;
UINT64 __bid_Twoto60 = 0x1000000000000000LL;
UINT64 __bid_Inv_Tento9 = 2305843009LL; /* floor(2^61/10^9) */
UINT32 __bid_Twoto30_m_10to9 = 73741824;
UINT32 __bid_Tento9 = 1000000000;
UINT32 __bid_Tento6 = 1000000;
UINT32 __bid_Tento3 = 1000;
char __bid_midi_tbl[1000][3] = {
"000", "001", "002", "003", "004", "005", "006", "007", "008", "009",
"010", "011", "012", "013", "014", "015", "016", "017", "018", "019",
"020", "021", "022", "023", "024", "025", "026", "027", "028", "029",
"030", "031", "032", "033", "034", "035", "036", "037", "038", "039",
"040", "041", "042", "043", "044", "045", "046", "047", "048", "049",
"050", "051", "052", "053", "054", "055", "056", "057", "058", "059",
"060", "061", "062", "063", "064", "065", "066", "067", "068", "069",
"070", "071", "072", "073", "074", "075", "076", "077", "078", "079",
"080", "081", "082", "083", "084", "085", "086", "087", "088", "089",
"090", "091", "092", "093", "094", "095", "096", "097", "098", "099",
"100", "101", "102", "103", "104", "105", "106", "107", "108", "109",
"110", "111", "112", "113", "114", "115", "116", "117", "118", "119",
"120", "121", "122", "123", "124", "125", "126", "127", "128", "129",
"130", "131", "132", "133", "134", "135", "136", "137", "138", "139",
"140", "141", "142", "143", "144", "145", "146", "147", "148", "149",
"150", "151", "152", "153", "154", "155", "156", "157", "158", "159",
"160", "161", "162", "163", "164", "165", "166", "167", "168", "169",
"170", "171", "172", "173", "174", "175", "176", "177", "178", "179",
"180", "181", "182", "183", "184", "185", "186", "187", "188", "189",
"190", "191", "192", "193", "194", "195", "196", "197", "198", "199",
"200", "201", "202", "203", "204", "205", "206", "207", "208", "209",
"210", "211", "212", "213", "214", "215", "216", "217", "218", "219",
"220", "221", "222", "223", "224", "225", "226", "227", "228", "229",
"230", "231", "232", "233", "234", "235", "236", "237", "238", "239",
"240", "241", "242", "243", "244", "245", "246", "247", "248", "249",
"250", "251", "252", "253", "254", "255", "256", "257", "258", "259",
"260", "261", "262", "263", "264", "265", "266", "267", "268", "269",
"270", "271", "272", "273", "274", "275", "276", "277", "278", "279",
"280", "281", "282", "283", "284", "285", "286", "287", "288", "289",
"290", "291", "292", "293", "294", "295", "296", "297", "298", "299",
"300", "301", "302", "303", "304", "305", "306", "307", "308", "309",
"310", "311", "312", "313", "314", "315", "316", "317", "318", "319",
"320", "321", "322", "323", "324", "325", "326", "327", "328", "329",
"330", "331", "332", "333", "334", "335", "336", "337", "338", "339",
"340", "341", "342", "343", "344", "345", "346", "347", "348", "349",
"350", "351", "352", "353", "354", "355", "356", "357", "358", "359",
"360", "361", "362", "363", "364", "365", "366", "367", "368", "369",
"370", "371", "372", "373", "374", "375", "376", "377", "378", "379",
"380", "381", "382", "383", "384", "385", "386", "387", "388", "389",
"390", "391", "392", "393", "394", "395", "396", "397", "398", "399",
"400", "401", "402", "403", "404", "405", "406", "407", "408", "409",
"410", "411", "412", "413", "414", "415", "416", "417", "418", "419",
"420", "421", "422", "423", "424", "425", "426", "427", "428", "429",
"430", "431", "432", "433", "434", "435", "436", "437", "438", "439",
"440", "441", "442", "443", "444", "445", "446", "447", "448", "449",
"450", "451", "452", "453", "454", "455", "456", "457", "458", "459",
"460", "461", "462", "463", "464", "465", "466", "467", "468", "469",
"470", "471", "472", "473", "474", "475", "476", "477", "478", "479",
"480", "481", "482", "483", "484", "485", "486", "487", "488", "489",
"490", "491", "492", "493", "494", "495", "496", "497", "498", "499",
"500", "501", "502", "503", "504", "505", "506", "507", "508", "509",
"510", "511", "512", "513", "514", "515", "516", "517", "518", "519",
"520", "521", "522", "523", "524", "525", "526", "527", "528", "529",
"530", "531", "532", "533", "534", "535", "536", "537", "538", "539",
"540", "541", "542", "543", "544", "545", "546", "547", "548", "549",
"550", "551", "552", "553", "554", "555", "556", "557", "558", "559",
"560", "561", "562", "563", "564", "565", "566", "567", "568", "569",
"570", "571", "572", "573", "574", "575", "576", "577", "578", "579",
"580", "581", "582", "583", "584", "585", "586", "587", "588", "589",
"590", "591", "592", "593", "594", "595", "596", "597", "598", "599",
"600", "601", "602", "603", "604", "605", "606", "607", "608", "609",
"610", "611", "612", "613", "614", "615", "616", "617", "618", "619",
"620", "621", "622", "623", "624", "625", "626", "627", "628", "629",
"630", "631", "632", "633", "634", "635", "636", "637", "638", "639",
"640", "641", "642", "643", "644", "645", "646", "647", "648", "649",
"650", "651", "652", "653", "654", "655", "656", "657", "658", "659",
"660", "661", "662", "663", "664", "665", "666", "667", "668", "669",
"670", "671", "672", "673", "674", "675", "676", "677", "678", "679",
"680", "681", "682", "683", "684", "685", "686", "687", "688", "689",
"690", "691", "692", "693", "694", "695", "696", "697", "698", "699",
"700", "701", "702", "703", "704", "705", "706", "707", "708", "709",
"710", "711", "712", "713", "714", "715", "716", "717", "718", "719",
"720", "721", "722", "723", "724", "725", "726", "727", "728", "729",
"730", "731", "732", "733", "734", "735", "736", "737", "738", "739",
"740", "741", "742", "743", "744", "745", "746", "747", "748", "749",
"750", "751", "752", "753", "754", "755", "756", "757", "758", "759",
"760", "761", "762", "763", "764", "765", "766", "767", "768", "769",
"770", "771", "772", "773", "774", "775", "776", "777", "778", "779",
"780", "781", "782", "783", "784", "785", "786", "787", "788", "789",
"790", "791", "792", "793", "794", "795", "796", "797", "798", "799",
"800", "801", "802", "803", "804", "805", "806", "807", "808", "809",
"810", "811", "812", "813", "814", "815", "816", "817", "818", "819",
"820", "821", "822", "823", "824", "825", "826", "827", "828", "829",
"830", "831", "832", "833", "834", "835", "836", "837", "838", "839",
"840", "841", "842", "843", "844", "845", "846", "847", "848", "849",
"850", "851", "852", "853", "854", "855", "856", "857", "858", "859",
"860", "861", "862", "863", "864", "865", "866", "867", "868", "869",
"870", "871", "872", "873", "874", "875", "876", "877", "878", "879",
"880", "881", "882", "883", "884", "885", "886", "887", "888", "889",
"890", "891", "892", "893", "894", "895", "896", "897", "898", "899",
"900", "901", "902", "903", "904", "905", "906", "907", "908", "909",
"910", "911", "912", "913", "914", "915", "916", "917", "918", "919",
"920", "921", "922", "923", "924", "925", "926", "927", "928", "929",
"930", "931", "932", "933", "934", "935", "936", "937", "938", "939",
"940", "941", "942", "943", "944", "945", "946", "947", "948", "949",
"950", "951", "952", "953", "954", "955", "956", "957", "958", "959",
"960", "961", "962", "963", "964", "965", "966", "967", "968", "969",
"970", "971", "972", "973", "974", "975", "976", "977", "978", "979",
"980", "981", "982", "983", "984", "985", "986", "987", "988", "989",
"990", "991", "992", "993", "994", "995", "996", "997", "998", "999"
};
UINT64 __bid_mod10_18_tbl[9][128] = {
// 2^59 = 576460752303423488, A and B breakdown, where data = A*10^18 + B
{
0LL, 0LL, 0LL, 576460752303423488LL,
// 0*2^59, 1*2^59
1LL, 152921504606846976LL, 1LL, 729382256910270464LL,
// 2*2^59, 3*2^59
2LL, 305843009213693952LL, 2LL, 882303761517117440LL,
// 4*2^59, 5*2^59
3LL, 458764513820540928LL, 4LL, 35225266123964416LL,
// 6*2^59, 7*2^59
4LL, 611686018427387904LL, 5LL, 188146770730811392LL,
// 8*2^59, 9*2^59
5LL, 764607523034234880LL, 6LL, 341068275337658368LL,
// 10*2^59, 11*2^59
6LL, 917529027641081856LL, 7LL, 493989779944505344LL,
// 12*2^59, 13*2^59
8LL, 70450532247928832LL, 8LL, 646911284551352320LL,
// 14*2^59, 15*2^59
9LL, 223372036854775808LL, 9LL, 799832789158199296LL,
// 16*2^59, 17*2^59
10LL, 376293541461622784LL, 10LL, 952754293765046272LL,
// 18*2^59, 19*2^59
11LL, 529215046068469760LL, 12LL, 105675798371893248LL,
// 20*2^59, 21*2^59
12LL, 682136550675316736LL, 13LL, 258597302978740224LL,
// 22*2^59, 23*2^59
13LL, 835058055282163712LL, 14LL, 411518807585587200LL,
// 24*2^59, 25*2^59
14LL, 987979559889010688LL, 15LL, 564440312192434176LL,
// 26*2^59, 27*2^59
16LL, 140901064495857664LL, 16LL, 717361816799281152LL,
// 28*2^59, 29*2^59
17LL, 293822569102704640LL, 17LL, 870283321406128128LL,
// 30*2^59, 31*2^59
18LL, 446744073709551616LL, 19LL, 23204826012975104LL,
// 32*2^59, 33*2^59
19LL, 599665578316398592LL, 20LL, 176126330619822080LL,
// 34*2^59, 35*2^59
20LL, 752587082923245568LL, 21LL, 329047835226669056LL,
// 36*2^59, 37*2^59
21LL, 905508587530092544LL, 22LL, 481969339833516032LL,
// 38*2^59, 39*2^59
23LL, 58430092136939520LL, 23LL, 634890844440363008LL,
// 40*2^59, 41*2^59
24LL, 211351596743786496LL, 24LL, 787812349047209984LL,
// 42*2^59, 43*2^59
25LL, 364273101350633472LL, 25LL, 940733853654056960LL,
// 44*2^59, 45*2^59
26LL, 517194605957480448LL, 27LL, 93655358260903936LL,
// 46*2^59, 47*2^59
27LL, 670116110564327424LL, 28LL, 246576862867750912LL,
// 48*2^59, 49*2^59
28LL, 823037615171174400LL, 29LL, 399498367474597888LL,
// 50*2^59, 51*2^59
29LL, 975959119778021376LL, 30LL, 552419872081444864LL,
// 52*2^59, 53*2^59
31LL, 128880624384868352LL, 31LL, 705341376688291840LL,
// 54*2^59, 55*2^59
32LL, 281802128991715328LL, 32LL, 858262881295138816LL,
// 56*2^59, 57*2^59
33LL, 434723633598562304LL, 34LL, 11184385901985792LL,
// 58*2^59, 59*2^59
34LL, 587645138205409280LL, 35LL, 164105890508832768LL,
// 60*2^59, 61*2^59
35LL, 740566642812256256LL, 36LL, 317027395115679744LL,
// 62*2^59, 63*2^59
},
{
// 2^65 = 36*10^18 + 893488147419103232
0LL, 0LL, 36LL, 893488147419103232LL,
// 0*2^65, 1*2^65
73LL, 786976294838206464LL, 110LL, 680464442257309696LL,
// 2*2^65, 3*2^65
147LL, 573952589676412928LL, 184LL, 467440737095516160LL,
// 4*2^65, 5*2^65
221LL, 360928884514619392LL, 258LL, 254417031933722624LL,
// 6*2^65, 7*2^65
295LL, 147905179352825856LL, 332LL, 41393326771929088LL,
// 8*2^65, 9*2^65
368LL, 934881474191032320LL, 405LL, 828369621610135552LL,
// 0*2^65, 1*2^65
442LL, 721857769029238784LL, 479LL, 615345916448342016LL,
// 2*2^65, 3*2^65
516LL, 508834063867445248LL, 553LL, 402322211286548480LL,
// 4*2^65, 5*2^65
590LL, 295810358705651712LL, 627LL, 189298506124754944LL,
// 6*2^65, 7*2^65
664LL, 82786653543858176LL, 700LL, 976274800962961408LL,
// 8*2^65, 9*2^65
737LL, 869762948382064640LL, 774LL, 763251095801167872LL,
// 0*2^65, 1*2^65
811LL, 656739243220271104LL, 848LL, 550227390639374336LL,
// 2*2^65, 3*2^65
885LL, 443715538058477568LL, 922LL, 337203685477580800LL,
// 4*2^65, 5*2^65
959LL, 230691832896684032LL, 996LL, 124179980315787264LL,
// 6*2^65, 7*2^65
1033LL, 17668127734890496LL, 1069LL, 911156275153993728LL,
// 8*2^65, 9*2^65
1106LL, 804644422573096960LL, 1143LL, 698132569992200192LL,
// 0*2^65, 1*2^65
1180LL, 591620717411303424LL, 1217LL, 485108864830406656LL,
// 2*2^65, 3*2^65
1254LL, 378597012249509888LL, 1291LL, 272085159668613120LL,
// 4*2^65, 5*2^65
1328LL, 165573307087716352LL, 1365LL, 59061454506819584LL,
// 6*2^65, 7*2^65
1401LL, 952549601925922816LL, 1438LL, 846037749345026048LL,
// 8*2^65, 9*2^65
1475LL, 739525896764129280LL, 1512LL, 633014044183232512LL,
// 0*2^65, 1*2^65
1549LL, 526502191602335744LL, 1586LL, 419990339021438976LL,
// 2*2^65, 3*2^65
1623LL, 313478486440542208LL, 1660LL, 206966633859645440LL,
// 4*2^65, 5*2^65
1697LL, 100454781278748672LL, 1733LL, 993942928697851904LL,
// 6*2^65, 7*2^65
1770LL, 887431076116955136LL, 1807LL, 780919223536058368LL,
// 8*2^65, 9*2^65
1844LL, 674407370955161600LL, 1881LL, 567895518374264832LL,
// 0*2^65, 1*2^65
1918LL, 461383665793368064LL, 1955LL, 354871813212471296LL,
// 2*2^65, 3*2^65
1992LL, 248359960631574528LL, 2029LL, 141848108050677760LL,
// 4*2^65, 5*2^65
2066LL, 35336255469780992LL, 2102LL, 928824402888884224LL,
// 6*2^65, 7*2^65
2139LL, 822312550307987456LL, 2176LL, 715800697727090688LL,
// 8*2^65, 9*2^65
2213LL, 609288845146193920LL, 2250LL, 502776992565297152LL,
// 0*2^65, 1*2^65
2287LL, 396265139984400384LL, 2324LL, 289753287403503616LL,
// 2*2^65, 3*2^65
},
{
0LL, 0LL, 2361LL, 183241434822606848LL,
4722LL, 366482869645213696LL, 7083LL, 549724304467820544LL,
9444LL, 732965739290427392LL, 11805LL, 916207174113034240LL,
14167LL, 99448608935641088LL, 16528LL, 282690043758247936LL,
18889LL, 465931478580854784LL, 21250LL, 649172913403461632LL,
23611LL, 832414348226068480LL, 25973LL, 15655783048675328LL,
28334LL, 198897217871282176LL, 30695LL, 382138652693889024LL,
33056LL, 565380087516495872LL, 35417LL, 748621522339102720LL,
37778LL, 931862957161709568LL, 40140LL, 115104391984316416LL,
42501LL, 298345826806923264LL, 44862LL, 481587261629530112LL,
47223LL, 664828696452136960LL, 49584LL, 848070131274743808LL,
51946LL, 31311566097350656LL, 54307LL, 214553000919957504LL,
56668LL, 397794435742564352LL, 59029LL, 581035870565171200LL,
61390LL, 764277305387778048LL, 63751LL, 947518740210384896LL,
66113LL, 130760175032991744LL, 68474LL, 314001609855598592LL,
70835LL, 497243044678205440LL, 73196LL, 680484479500812288LL,
75557LL, 863725914323419136LL, 77919LL, 46967349146025984LL,
80280LL, 230208783968632832LL, 82641LL, 413450218791239680LL,
85002LL, 596691653613846528LL, 87363LL, 779933088436453376LL,
89724LL, 963174523259060224LL, 92086LL, 146415958081667072LL,
94447LL, 329657392904273920LL, 96808LL, 512898827726880768LL,
99169LL, 696140262549487616LL, 101530LL, 879381697372094464LL,
103892LL, 62623132194701312LL, 106253LL, 245864567017308160LL,
108614LL, 429106001839915008LL, 110975LL, 612347436662521856LL,
113336LL, 795588871485128704LL, 115697LL, 978830306307735552LL,
118059LL, 162071741130342400LL, 120420LL, 345313175952949248LL,
122781LL, 528554610775556096LL, 125142LL, 711796045598162944LL,
127503LL, 895037480420769792LL, 129865LL, 78278915243376640LL,
132226LL, 261520350065983488LL, 134587LL, 444761784888590336LL,
136948LL, 628003219711197184LL, 139309LL, 811244654533804032LL,
141670LL, 994486089356410880LL, 144032LL, 177727524179017728LL,
146393LL, 360968959001624576LL, 148754LL, 544210393824231424LL,
},
{
0LL, 0LL, 151115LL, 727451828646838272LL,
302231LL, 454903657293676544LL, 453347LL, 182355485940514816LL,
604462LL, 909807314587353088LL, 755578LL, 637259143234191360LL,
906694LL, 364710971881029632LL, 1057810LL, 92162800527867904LL,
1208925LL, 819614629174706176LL, 1360041LL, 547066457821544448LL,
1511157LL, 274518286468382720LL, 1662273LL, 1970115115220992LL,
1813388LL, 729421943762059264LL, 1964504LL, 456873772408897536LL,
2115620LL, 184325601055735808LL, 2266735LL, 911777429702574080LL,
2417851LL, 639229258349412352LL, 2568967LL, 366681086996250624LL,
2720083LL, 94132915643088896LL, 2871198LL, 821584744289927168LL,
3022314LL, 549036572936765440LL, 3173430LL, 276488401583603712LL,
3324546LL, 3940230230441984LL, 3475661LL, 731392058877280256LL,
3626777LL, 458843887524118528LL, 3777893LL, 186295716170956800LL,
3929008LL, 913747544817795072LL, 4080124LL, 641199373464633344LL,
4231240LL, 368651202111471616LL, 4382356LL, 96103030758309888LL,
4533471LL, 823554859405148160LL, 4684587LL, 551006688051986432LL,
4835703LL, 278458516698824704LL, 4986819LL, 5910345345662976LL,
5137934LL, 733362173992501248LL, 5289050LL, 460814002639339520LL,
5440166LL, 188265831286177792LL, 5591281LL, 915717659933016064LL,
5742397LL, 643169488579854336LL, 5893513LL, 370621317226692608LL,
6044629LL, 98073145873530880LL, 6195744LL, 825524974520369152LL,
6346860LL, 552976803167207424LL, 6497976LL, 280428631814045696LL,
6649092LL, 7880460460883968LL, 6800207LL, 735332289107722240LL,
6951323LL, 462784117754560512LL, 7102439LL, 190235946401398784LL,
7253554LL, 917687775048237056LL, 7404670LL, 645139603695075328LL,
7555786LL, 372591432341913600LL, 7706902LL, 100043260988751872LL,
7858017LL, 827495089635590144LL, 8009133LL, 554946918282428416LL,
8160249LL, 282398746929266688LL, 8311365LL, 9850575576104960LL,
8462480LL, 737302404222943232LL, 8613596LL, 464754232869781504LL,
8764712LL, 192206061516619776LL, 8915827LL, 919657890163458048LL,
9066943LL, 647109718810296320LL, 9218059LL, 374561547457134592LL,
9369175LL, 102013376103972864LL, 9520290LL, 829465204750811136LL,
},
{
0LL, 0LL, 9671406LL, 556917033397649408LL,
19342813LL, 113834066795298816LL, 29014219LL, 670751100192948224LL,
38685626LL, 227668133590597632LL, 48357032LL, 784585166988247040LL,
58028439LL, 341502200385896448LL, 67699845LL, 898419233783545856LL,
77371252LL, 455336267181195264LL, 87042659LL, 12253300578844672LL,
96714065LL, 569170333976494080LL, 106385472LL, 126087367374143488LL,
116056878LL, 683004400771792896LL, 125728285LL, 239921434169442304LL,
135399691LL, 796838467567091712LL, 145071098LL, 353755500964741120LL,
154742504LL, 910672534362390528LL, 164413911LL, 467589567760039936LL,
174085318LL, 24506601157689344LL, 183756724LL, 581423634555338752LL,
193428131LL, 138340667952988160LL, 203099537LL, 695257701350637568LL,
212770944LL, 252174734748286976LL, 222442350LL, 809091768145936384LL,
232113757LL, 366008801543585792LL, 241785163LL, 922925834941235200LL,
251456570LL, 479842868338884608LL, 261127977LL, 36759901736534016LL,
270799383LL, 593676935134183424LL, 280470790LL, 150593968531832832LL,
290142196LL, 707511001929482240LL, 299813603LL, 264428035327131648LL,
309485009LL, 821345068724781056LL, 319156416LL, 378262102122430464LL,
328827822LL, 935179135520079872LL, 338499229LL, 492096168917729280LL,
348170636LL, 49013202315378688LL, 357842042LL, 605930235713028096LL,
367513449LL, 162847269110677504LL, 377184855LL, 719764302508326912LL,
386856262LL, 276681335905976320LL, 396527668LL, 833598369303625728LL,
406199075LL, 390515402701275136LL, 415870481LL, 947432436098924544LL,
425541888LL, 504349469496573952LL, 435213295LL, 61266502894223360LL,
444884701LL, 618183536291872768LL, 454556108LL, 175100569689522176LL,
464227514LL, 732017603087171584LL, 473898921LL, 288934636484820992LL,
483570327LL, 845851669882470400LL, 493241734LL, 402768703280119808LL,
502913140LL, 959685736677769216LL, 512584547LL, 516602770075418624LL,
522255954LL, 73519803473068032LL, 531927360LL, 630436836870717440LL,
541598767LL, 187353870268366848LL, 551270173LL, 744270903666016256LL,
560941580LL, 301187937063665664LL, 570612986LL, 858104970461315072LL,
580284393LL, 415022003858964480LL, 589955799LL, 971939037256613888LL,
599627206LL, 528856070654263296LL, 609298613LL, 85773104051912704LL,
},
{
0LL, 0LL, 618970019LL, 642690137449562112LL,
1237940039LL, 285380274899124224LL, 1856910058LL, 928070412348686336LL,
2475880078LL, 570760549798248448LL, 3094850098LL, 213450687247810560LL,
3713820117LL, 856140824697372672LL, 4332790137LL, 498830962146934784LL,
4951760157LL, 141521099596496896LL, 5570730176LL, 784211237046059008LL,
6189700196LL, 426901374495621120LL, 6808670216LL, 69591511945183232LL,
7427640235LL, 712281649394745344LL, 8046610255LL, 354971786844307456LL,
8665580274LL, 997661924293869568LL, 9284550294LL, 640352061743431680LL,
9903520314LL, 283042199192993792LL, 10522490333LL, 925732336642555904LL,
11141460353LL, 568422474092118016LL, 11760430373LL, 211112611541680128LL,
12379400392LL, 853802748991242240LL, 12998370412LL, 496492886440804352LL,
13617340432LL, 139183023890366464LL, 14236310451LL, 781873161339928576LL,
14855280471LL, 424563298789490688LL, 15474250491LL, 67253436239052800LL,
16093220510LL, 709943573688614912LL, 16712190530LL, 352633711138177024LL,
17331160549LL, 995323848587739136LL, 17950130569LL, 638013986037301248LL,
18569100589LL, 280704123486863360LL, 19188070608LL, 923394260936425472LL,
19807040628LL, 566084398385987584LL, 20426010648LL, 208774535835549696LL,
21044980667LL, 851464673285111808LL, 21663950687LL, 494154810734673920LL,
22282920707LL, 136844948184236032LL, 22901890726LL, 779535085633798144LL,
23520860746LL, 422225223083360256LL, 24139830766LL, 64915360532922368LL,
24758800785LL, 707605497982484480LL, 25377770805LL, 350295635432046592LL,
25996740824LL, 992985772881608704LL, 26615710844LL, 635675910331170816LL,
27234680864LL, 278366047780732928LL, 27853650883LL, 921056185230295040LL,
28472620903LL, 563746322679857152LL, 29091590923LL, 206436460129419264LL,
29710560942LL, 849126597578981376LL, 30329530962LL, 491816735028543488LL,
30948500982LL, 134506872478105600LL, 31567471001LL, 777197009927667712LL,
32186441021LL, 419887147377229824LL, 32805411041LL, 62577284826791936LL,
33424381060LL, 705267422276354048LL, 34043351080LL, 347957559725916160LL,
34662321099LL, 990647697175478272LL, 35281291119LL, 633337834625040384LL,
35900261139LL, 276027972074602496LL, 36519231158LL, 918718109524164608LL,
37138201178LL, 561408246973726720LL, 37757171198LL, 204098384423288832LL,
38376141217LL, 846788521872850944LL, 38995111237LL, 489478659322413056LL,
},
{
0LL, 0LL, 39614081257LL, 132168796771975168LL,
79228162514LL, 264337593543950336LL, 118842243771LL, 396506390315925504LL,
158456325028LL, 528675187087900672LL, 198070406285LL, 660843983859875840LL,
237684487542LL, 793012780631851008LL, 277298568799LL, 925181577403826176LL,
316912650057LL, 57350374175801344LL, 356526731314LL, 189519170947776512LL,
396140812571LL, 321687967719751680LL, 435754893828LL, 453856764491726848LL,
475368975085LL, 586025561263702016LL, 514983056342LL, 718194358035677184LL,
554597137599LL, 850363154807652352LL, 594211218856LL, 982531951579627520LL,
633825300114LL, 114700748351602688LL, 673439381371LL, 246869545123577856LL,
713053462628LL, 379038341895553024LL, 752667543885LL, 511207138667528192LL,
792281625142LL, 643375935439503360LL, 831895706399LL, 775544732211478528LL,
871509787656LL, 907713528983453696LL, 911123868914LL, 39882325755428864LL,
950737950171LL, 172051122527404032LL, 990352031428LL, 304219919299379200LL,
1029966112685LL, 436388716071354368LL, 1069580193942LL, 568557512843329536LL,
1109194275199LL, 700726309615304704LL, 1148808356456LL, 832895106387279872LL,
1188422437713LL, 965063903159255040LL, 1228036518971LL, 97232699931230208LL,
1267650600228LL, 229401496703205376LL, 1307264681485LL, 361570293475180544LL,
1346878762742LL, 493739090247155712LL, 1386492843999LL, 625907887019130880LL,
1426106925256LL, 758076683791106048LL, 1465721006513LL, 890245480563081216LL,
1505335087771LL, 22414277335056384LL, 1544949169028LL, 154583074107031552LL,
1584563250285LL, 286751870879006720LL, 1624177331542LL, 418920667650981888LL,
1663791412799LL, 551089464422957056LL, 1703405494056LL, 683258261194932224LL,
1743019575313LL, 815427057966907392LL, 1782633656570LL, 947595854738882560LL,
1822247737828LL, 79764651510857728LL, 1861861819085LL, 211933448282832896LL,
1901475900342LL, 344102245054808064LL, 1941089981599LL, 476271041826783232LL,
1980704062856LL, 608439838598758400LL, 2020318144113LL, 740608635370733568LL,
2059932225370LL, 872777432142708736LL, 2099546306628LL, 4946228914683904LL,
2139160387885LL, 137115025686659072LL, 2178774469142LL, 269283822458634240LL,
2218388550399LL, 401452619230609408LL, 2258002631656LL, 533621416002584576LL,
2297616712913LL, 665790212774559744LL, 2337230794170LL, 797959009546534912LL,
2376844875427LL, 930127806318510080LL, 2416458956685LL, 62296603090485248LL,
2456073037942LL, 194465399862460416LL, 2495687119199LL, 326634196634435584LL,
},
{
0LL, 0LL, 2535301200456LL, 458802993406410752LL,
5070602400912LL, 917605986812821504LL, 7605903601369LL, 376408980219232256LL,
10141204801825LL, 835211973625643008LL, 12676506002282LL, 294014967032053760LL,
15211807202738LL, 752817960438464512LL, 17747108403195LL, 211620953844875264LL,
20282409603651LL, 670423947251286016LL, 22817710804108LL, 129226940657696768LL,
25353012004564LL, 588029934064107520LL, 27888313205021LL, 46832927470518272LL,
30423614405477LL, 505635920876929024LL, 32958915605933LL, 964438914283339776LL,
35494216806390LL, 423241907689750528LL, 38029518006846LL, 882044901096161280LL, 40564819207303LL, 340847894502572032LL, 43100120407759LL, 799650887908982784LL,
45635421608216LL, 258453881315393536LL, 48170722808672LL, 717256874721804288LL,
50706024009129LL, 176059868128215040LL, 53241325209585LL, 634862861534625792LL,
55776626410042LL, 93665854941036544LL, 58311927610498LL, 552468848347447296LL,
60847228810955LL, 11271841753858048LL, 63382530011411LL, 470074835160268800LL,
65917831211867LL, 928877828566679552LL, 68453132412324LL, 387680821973090304LL,
70988433612780LL, 846483815379501056LL, 73523734813237LL, 305286808785911808LL,
76059036013693LL, 764089802192322560LL, 78594337214150LL, 222892795598733312LL,
81129638414606LL, 681695789005144064LL, 83664939615063LL, 140498782411554816LL,
86200240815519LL, 599301775817965568LL, 88735542015976LL, 58104769224376320LL,
91270843216432LL, 516907762630787072LL, 93806144416888LL, 975710756037197824LL,
96341445617345LL, 434513749443608576LL, 98876746817801LL, 893316742850019328LL,
101412048018258LL, 352119736256430080LL, 103947349218714LL, 810922729662840832LL,
106482650419171LL, 269725723069251584LL, 109017951619627LL, 728528716475662336LL,
111553252820084LL, 187331709882073088LL, 114088554020540LL, 646134703288483840LL,
116623855220997LL, 104937696694894592LL, 119159156421453LL, 563740690101305344LL,
121694457621910LL, 22543683507716096LL, 124229758822366LL, 481346676914126848LL,
126765060022822LL, 940149670320537600LL, 129300361223279LL, 398952663726948352LL,
131835662423735LL, 857755657133359104LL, 134370963624192LL, 316558650539769856LL,
136906264824648LL, 775361643946180608LL, 139441566025105LL, 234164637352591360LL,
141976867225561LL, 692967630759002112LL, 144512168426018LL, 151770624165412864LL,
147047469626474LL, 610573617571823616LL, 149582770826931LL, 69376610978234368LL,
152118072027387LL, 528179604384645120LL, 154653373227843LL, 986982597791055872LL,
157188674428300LL, 445785591197466624LL, 159723975628756LL, 904588584603877376LL,
},
{
0LL, 0LL, 162259276829213LL, 363391578010288128LL,
324518553658426LL, 726783156020576256LL, 486777830487640LL, 90174734030864384LL,
649037107316853LL, 453566312041152512LL, 811296384146066LL, 816957890051440640LL,
973555660975280LL, 180349468061728768LL, 1135814937804493LL, 543741046072016896LL,
1298074214633706LL, 907132624082305024LL, 1460333491462920LL, 270524202092593152LL,
1622592768292133LL, 633915780102881280LL, 1784852045121346LL, 997307358113169408LL,
1947111321950560LL, 360698936123457536LL, 2109370598779773LL, 724090514133745664LL,
2271629875608987LL, 87482092144033792LL, 2433889152438200LL, 450873670154321920LL,
2596148429267413LL, 814265248164610048LL, 2758407706096627LL, 177656826174898176LL,
2920666982925840LL, 541048404185186304LL, 3082926259755053LL, 904439982195474432LL,
3245185536584267LL, 267831560205762560LL, 3407444813413480LL, 631223138216050688LL,
3569704090242693LL, 994614716226338816LL, 3731963367071907LL, 358006294236626944LL,
3894222643901120LL, 721397872246915072LL, 4056481920730334LL, 84789450257203200LL,
4218741197559547LL, 448181028267491328LL, 4381000474388760LL, 811572606277779456LL,
4543259751217974LL, 174964184288067584LL, 4705519028047187LL, 538355762298355712LL,
4867778304876400LL, 901747340308643840LL, 5030037581705614LL, 265138918318931968LL,
5192296858534827LL, 628530496329220096LL, 5354556135364040LL, 991922074339508224LL,
5516815412193254LL, 355313652349796352LL, 5679074689022467LL, 718705230360084480LL,
5841333965851681LL, 82096808370372608LL, 6003593242680894LL, 445488386380660736LL,
6165852519510107LL, 808879964390948864LL, 6328111796339321LL, 172271542401236992LL,
6490371073168534LL, 535663120411525120LL, 6652630349997747LL, 899054698421813248LL,
6814889626826961LL, 262446276432101376LL, 6977148903656174LL, 625837854442389504LL,
7139408180485387LL, 989229432452677632LL, 7301667457314601LL, 352621010462965760LL,
7463926734143814LL, 716012588473253888LL, 7626186010973028LL, 79404166483542016LL,
7788445287802241LL, 442795744493830144LL, 7950704564631454LL, 806187322504118272LL,
8112963841460668LL, 169578900514406400LL, 8275223118289881LL, 532970478524694528LL,
8437482395119094LL, 896362056534982656LL, 8599741671948308LL, 259753634545270784LL,
8762000948777521LL, 623145212555558912LL, 8924260225606734LL, 986536790565847040LL,
9086519502435948LL, 349928368576135168LL, 9248778779265161LL, 713319946586423296LL,
9411038056094375LL, 76711524596711424LL, 9573297332923588LL, 440103102606999552LL,
9735556609752801LL, 803494680617287680LL, 9897815886582015LL, 166886258627575808LL,
10060075163411228LL, 530277836637863936LL, 10222334440240441LL, 893669414648152064LL
}
};

2440
libgcc/config/libbid/bid128_add.c Normal file
View File

File diff suppressed because it is too large Load Diff

4611
libgcc/config/libbid/bid128_compare.c Normal file
View File

File diff suppressed because it is too large Load Diff

464
libgcc/config/libbid/bid128_div.c Normal file
View File

@ -0,0 +1,464 @@
/* Copyright (C) 2007 Free Software Foundation, Inc.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
In addition to the permissions in the GNU General Public License, the
Free Software Foundation gives you unlimited permission to link the
compiled version of this file into combinations with other programs,
and to distribute those combinations without any restriction coming
from the use of this file. (The General Public License restrictions
do apply in other respects; for example, they cover modification of
the file, and distribution when not linked into a combine
executable.)
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING. If not, write to the Free
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA. */
#define BID_128RES
#include "div_macros.h"
extern UINT32 __bid_convert_table[5][128][2];
extern SINT8 __bid_factors[][2];
extern UINT8 __bid_packed_10000_zeros[];
BID128_FUNCTION_ARG2(__bid128_div, x, y)
UINT256 CA4, CA4r, P256;
UINT128 CX, CY, T128, CQ, CR, CA, TP128, Qh, Ql, res;
UINT64 sign_x, sign_y, T, carry64, D, Q_high, Q_low, QX, X, PD;
int_float fx, fy, f64;
UINT32 QX32, tdigit[3], digit, digit_h, digit_low;
int exponent_x = 0, exponent_y, bin_index, bin_expon, diff_expon, ed2,
digits_q, amount;
int nzeros, i, j, k, d5;
unsigned rmode;
// unpack arguments, check for NaN or Infinity
if (!unpack_BID128_value (&sign_x, &exponent_x, &CX, x)) {
// test if x is NaN
if ((x.w[1] & 0x7c00000000000000ull) == 0x7c00000000000000ull) {
#ifdef SET_STATUS_FLAGS
if ((x.w[1] & 0x7e00000000000000ull) == 0x7e00000000000000ull || // sNaN
(y.w[1] & 0x7e00000000000000ull) == 0x7e00000000000000ull)
__set_status_flags (pfpsf, INVALID_EXCEPTION);
#endif
res.w[1] = (x.w[1]) & QUIET_MASK64;
res.w[0] = x.w[0];
BID_RETURN (res);
}
// x is Infinity?
if ((x.w[1] & 0x7800000000000000ull) == 0x7800000000000000ull) {
// check if y is Inf.
if (((y.w[1] & 0x7c00000000000000ull) == 0x7800000000000000ull))
// return NaN
{
#ifdef SET_STATUS_FLAGS
__set_status_flags (pfpsf, INVALID_EXCEPTION);
#endif
res.w[1] = 0x7c00000000000000ull;
res.w[0] = 0;
BID_RETURN (res);
}
// y is NaN?
if (((y.w[1] & 0x7c00000000000000ull) != 0x7c00000000000000ull))
// return NaN
{
// return +/-Inf
res.w[1] = ((x.w[1] ^ y.w[1]) & 0x8000000000000000ull) |
0x7800000000000000ull;
res.w[0] = 0;
BID_RETURN (res);
}
}
// x is 0
if ((y.w[1] & 0x7800000000000000ull) < 0x7800000000000000ull) {
if ((!y.w[0]) && !(y.w[1] & 0x0001ffffffffffffull)) {
#ifdef SET_STATUS_FLAGS
__set_status_flags (pfpsf, INVALID_EXCEPTION);
#endif
// x=y=0, return NaN
res.w[1] = 0x7c00000000000000ull;
res.w[0] = 0;
BID_RETURN (res);
}
// return 0
res.w[1] = (x.w[1] ^ y.w[1]) & 0x8000000000000000ull;
X = ((y.w[1]) << 1) >> 50;
exponent_x = exponent_x - (int) X + DECIMAL_EXPONENT_BIAS_128;
if (exponent_x > DECIMAL_MAX_EXPON_128)
exponent_x = DECIMAL_MAX_EXPON_128;
else if (exponent_x < 0)
exponent_x = 0;
res.w[1] |= (((UINT64) exponent_x) << 49);
res.w[0] = 0;
BID_RETURN (res);
}
}
if (!unpack_BID128_value (&sign_y, &exponent_y, &CY, y)) {
// y is Inf. or NaN
// test if y is NaN
if ((y.w[1] & 0x7c00000000000000ull) == 0x7c00000000000000ull) {
#ifdef SET_STATUS_FLAGS
if ((y.w[1] & 0x7e00000000000000ull) == 0x7e00000000000000ull) // sNaN
__set_status_flags (pfpsf, INVALID_EXCEPTION);
#endif
res.w[1] = y.w[1] & QUIET_MASK64;
res.w[0] = y.w[0];
BID_RETURN (res);
}
// y is Infinity?
if ((y.w[1] & 0x7800000000000000ull) == 0x7800000000000000ull) {
// return +/-0
res.w[1] = sign_x ^ sign_y;
res.w[0] = 0;
BID_RETURN (res);
}
// y is 0, return +/-Inf
#ifdef SET_STATUS_FLAGS
__set_status_flags (pfpsf, ZERO_DIVIDE_EXCEPTION);
#endif
res.w[1] =
((x.w[1] ^ y.w[1]) & 0x8000000000000000ull) | 0x7800000000000000ull;
res.w[0] = 0;
BID_RETURN (res);
}
diff_expon = exponent_x - exponent_y + DECIMAL_EXPONENT_BIAS_128;
if (__unsigned_compare_gt_128 (CY, CX)) {
// CX < CY
// 2^64
f64.i = 0x5f800000;
// fx ~ CX, fy ~ CY
fx.d = (float) CX.w[1] * f64.d + (float) CX.w[0];
fy.d = (float) CY.w[1] * f64.d + (float) CY.w[0];
// expon_cy - expon_cx
bin_index = (fy.i - fx.i) >> 23;
if (CX.w[1]) {
T = __bid_power10_index_binexp_128[bin_index].w[0];
__mul_64x128_short (CA, T, CX);
} else {
T128 = __bid_power10_index_binexp_128[bin_index];
__mul_64x128_short (CA, CX.w[0], T128);
}
ed2 = 33;
if (__unsigned_compare_gt_128 (CY, CA))
ed2++;
T128 = __bid_power10_table_128[ed2];
__mul_128x128_to_256 (CA4, CA, T128);
ed2 += __bid_estimate_decimal_digits[bin_index];
CQ.w[0] = CQ.w[1] = 0;
diff_expon = diff_expon - ed2;
} else {
// get CQ = CX/CY
__div_128_by_128 (&CQ, &CR, CX, CY);
if (!CR.w[1] && !CR.w[0]) {
get_BID128 (&res, sign_x ^ sign_y, diff_expon, CQ, &rnd_mode,
pfpsf);
BID_RETURN (res);
}
// get number of decimal digits in CQ
// 2^64
f64.i = 0x5f800000;
fx.d = (float) CQ.w[1] * f64.d + (float) CQ.w[0];
// binary expon. of CQ
bin_expon = (fx.i - 0x3f800000) >> 23;
digits_q = __bid_estimate_decimal_digits[bin_expon];
TP128.w[0] = __bid_power10_index_binexp_128[bin_expon].w[0];
TP128.w[1] = __bid_power10_index_binexp_128[bin_expon].w[1];
if (__unsigned_compare_ge_128 (CQ, TP128))
digits_q++;
ed2 = 34 - digits_q;
T128.w[0] = __bid_power10_table_128[ed2].w[0];
T128.w[1] = __bid_power10_table_128[ed2].w[1];
__mul_128x128_to_256 (CA4, CR, T128);
diff_expon = diff_expon - ed2;
__mul_128x128_low (CQ, CQ, T128);
}
__div_256_by_128 (&CQ, &CA4, CY);
#ifdef SET_STATUS_FLAGS
if (CA4.w[0] || CA4.w[1]) {
// set status flags
__set_status_flags (pfpsf, INEXACT_EXCEPTION);
}
#ifndef LEAVE_TRAILING_ZEROS
else
#endif
#else
#ifndef LEAVE_TRAILING_ZEROS
if (!CA4.w[0] && !CA4.w[1])
#endif
#endif
#ifndef LEAVE_TRAILING_ZEROS
// check whether result is exact
{
// check whether CX, CY are short
if (!CX.w[1] && !CY.w[1] && (CX.w[0] <= 1024) && (CY.w[0] <= 1024)) {
i = (int) CY.w[0] - 1;
j = (int) CX.w[0] - 1;
// difference in powers of 2 __bid_factors for Y and X
nzeros = ed2 - __bid_factors[i][0] + __bid_factors[j][0];
// difference in powers of 5 __bid_factors
d5 = ed2 - __bid_factors[i][1] + __bid_factors[j][1];
if (d5 < nzeros)
nzeros = d5;
// get P*(2^M[extra_digits])/10^extra_digits
__mul_128x128_full (Qh, Ql, CQ, __bid_reciprocals10_128[nzeros]);
// now get P/10^extra_digits: shift Q_high right by M[extra_digits]-128
amount = __bid_recip_scale[nzeros];
__shr_128_long (CQ, Qh, amount);
diff_expon += nzeros;
} else {
// decompose Q as Qh*10^17 + Ql
//T128 = __bid_reciprocals10_128[17];
T128.w[0] = 0x44909befeb9fad49ull;
T128.w[1] = 0x000b877aa3236a4bull;
__mul_128x128_to_256 (P256, CQ, T128);
//amount = __bid_recip_scale[17];
Q_high = (P256.w[2] >> 44) | (P256.w[3] << (64 - 44));
Q_low = CQ.w[0] - Q_high * 100000000000000000ull;
if (!Q_low) {
diff_expon += 17;
tdigit[0] = Q_high & 0x3ffffff;
tdigit[1] = 0;
QX = Q_high >> 26;
QX32 = QX;
nzeros = 0;
for (j = 0; QX32; j++, QX32 >>= 7) {
k = (QX32 & 127);
tdigit[0] += __bid_convert_table[j][k][0];
tdigit[1] += __bid_convert_table[j][k][1];
if (tdigit[0] >= 100000000) {
tdigit[0] -= 100000000;
tdigit[1]++;
}
}
if (tdigit[1] >= 100000000) {
tdigit[1] -= 100000000;
if (tdigit[1] >= 100000000)
tdigit[1] -= 100000000;
}
digit = tdigit[0];
if (!digit && !tdigit[1])
nzeros += 16;
else {
if (!digit) {
nzeros += 8;
digit = tdigit[1];
}
// decompose digit
PD = (UINT64) digit *0x068DB8BBull;
digit_h = (UINT32) (PD >> 40);
digit_low = digit - digit_h * 10000;
if (!digit_low)
nzeros += 4;
else
digit_h = digit_low;
if (!(digit_h & 1))
nzeros +=
3 & (UINT32) (__bid_packed_10000_zeros[digit_h >> 3] >>
(digit_h & 7));
}
if (nzeros) {
__mul_64x64_to_128 (CQ, Q_high, __bid_reciprocals10_64[nzeros]);
// now get P/10^extra_digits: shift C64 right by M[extra_digits]-64
amount = __bid_short_recip_scale[nzeros];
CQ.w[0] = CQ.w[1] >> amount;
} else
CQ.w[0] = Q_high;
CQ.w[1] = 0;
diff_expon += nzeros;
} else {
tdigit[0] = Q_low & 0x3ffffff;
tdigit[1] = 0;
QX = Q_low >> 26;
QX32 = QX;
nzeros = 0;
for (j = 0; QX32; j++, QX32 >>= 7) {
k = (QX32 & 127);
tdigit[0] += __bid_convert_table[j][k][0];
tdigit[1] += __bid_convert_table[j][k][1];
if (tdigit[0] >= 100000000) {
tdigit[0] -= 100000000;
tdigit[1]++;
}
}
if (tdigit[1] >= 100000000) {
tdigit[1] -= 100000000;
if (tdigit[1] >= 100000000)
tdigit[1] -= 100000000;
}
digit = tdigit[0];
if (!digit && !tdigit[1])
nzeros += 16;
else {
if (!digit) {
nzeros += 8;
digit = tdigit[1];
}
// decompose digit
PD = (UINT64) digit *0x068DB8BBull;
digit_h = (UINT32) (PD >> 40);
digit_low = digit - digit_h * 10000;
if (!digit_low)
nzeros += 4;
else
digit_h = digit_low;
if (!(digit_h & 1))
nzeros +=
3 & (UINT32) (__bid_packed_10000_zeros[digit_h >> 3] >>
(digit_h & 7));
}
if (nzeros) {
// get P*(2^M[extra_digits])/10^extra_digits
__mul_128x128_full (Qh, Ql, CQ, __bid_reciprocals10_128[nzeros]);
//now get P/10^extra_digits: shift Q_high right by M[extra_digits]-128
amount = __bid_recip_scale[nzeros];
__shr_128 (CQ, Qh, amount);
}
diff_expon += nzeros;
}
}
get_BID128 (&res, sign_x ^ sign_y, diff_expon, CQ, &rnd_mode,
pfpsf);
BID_RETURN (res);
}
#endif
if (diff_expon >= 0) {
#ifdef IEEE_ROUND_NEAREST
// rounding
// 2*CA4 - CY
CA4r.w[1] = (CA4.w[1] + CA4.w[1]) | (CA4.w[0] >> 63);
CA4r.w[0] = CA4.w[0] + CA4.w[0];
__sub_borrow_out (CA4r.w[0], carry64, CA4r.w[0], CY.w[0]);
CA4r.w[1] = CA4r.w[1] - CY.w[1] - carry64;
D = (CA4r.w[1] | CA4r.w[0]) ? 1 : 0;
carry64 = (1 + (((SINT64) CA4r.w[1]) >> 63)) & ((CQ.w[0]) | D);
CQ.w[0] += carry64;
if (CQ.w[0] < carry64)
CQ.w[1]++;
#else
#ifdef IEEE_ROUND_NEAREST_TIES_AWAY
// rounding
// 2*CA4 - CY
CA4r.w[1] = (CA4.w[1] + CA4.w[1]) | (CA4.w[0] >> 63);
CA4r.w[0] = CA4.w[0] + CA4.w[0];
__sub_borrow_out (CA4r.w[0], carry64, CA4r.w[0], CY.w[0]);
CA4r.w[1] = CA4r.w[1] - CY.w[1] - carry64;
D = (CA4r.w[1] | CA4r.w[0]) ? 0 : 1;
carry64 = (1 + (((SINT64) CA4r.w[1]) >> 63)) | D;
CQ.w[0] += carry64;
if (CQ.w[0] < carry64)
CQ.w[1]++;
#else
rmode = rnd_mode;
if (sign_x ^ sign_y && (unsigned) (rmode - 1) < 2)
rmode = 3 - rmode;
switch (rmode) {
case ROUNDING_TO_NEAREST: // round to nearest code
// rounding
// 2*CA4 - CY
CA4r.w[1] = (CA4.w[1] + CA4.w[1]) | (CA4.w[0] >> 63);
CA4r.w[0] = CA4.w[0] + CA4.w[0];
__sub_borrow_out (CA4r.w[0], carry64, CA4r.w[0], CY.w[0]);
CA4r.w[1] = CA4r.w[1] - CY.w[1] - carry64;
D = (CA4r.w[1] | CA4r.w[0]) ? 1 : 0;
carry64 = (1 + (((SINT64) CA4r.w[1]) >> 63)) & ((CQ.w[0]) | D);
CQ.w[0] += carry64;
if (CQ.w[0] < carry64)
CQ.w[1]++;
break;
case ROUNDING_TIES_AWAY:
// rounding
// 2*CA4 - CY
CA4r.w[1] = (CA4.w[1] + CA4.w[1]) | (CA4.w[0] >> 63);
CA4r.w[0] = CA4.w[0] + CA4.w[0];
__sub_borrow_out (CA4r.w[0], carry64, CA4r.w[0], CY.w[0]);
CA4r.w[1] = CA4r.w[1] - CY.w[1] - carry64;
D = (CA4r.w[1] | CA4r.w[0]) ? 0 : 1;
carry64 = (1 + (((SINT64) CA4r.w[1]) >> 63)) | D;
CQ.w[0] += carry64;
if (CQ.w[0] < carry64)
CQ.w[1]++;
break;
case ROUNDING_DOWN:
case ROUNDING_TO_ZERO:
break;
default: // rounding up
CQ.w[0]++;
if (!CQ.w[0])
CQ.w[1]++;
break;
}
#endif
#endif
} else {
#ifdef SET_STATUS_FLAGS
if (CA4.w[0] || CA4.w[1]) {
// set status flags
__set_status_flags (pfpsf, INEXACT_EXCEPTION);
}
#endif
handle_UF_128_rem (&res, sign_x ^ sign_y, diff_expon, CQ,
CA4.w[1] | CA4.w[0], &rnd_mode, pfpsf);
BID_RETURN (res);
}
get_BID128 (&res, sign_x ^ sign_y, diff_expon, CQ, &rnd_mode, pfpsf);
BID_RETURN (res);
}

Some files were not shown because too many files have changed in this diff Show More