b2a00c8984
libgcc/ 2007-09-27 H.J. Lu <hongjiu.lu@intel.com> * Makefile.in (dfp-filenames): Replace decimal_globals, decimal_data, binarydecimal and convert_data with bid_decimal_globals, bid_decimal_data, bid_binarydecimal and bid_convert_data, respectively. libgcc/config/libbid/ 2007-09-27 H.J. Lu <hongjiu.lu@intel.com> * bid128_fromstring.c: Removed. * bid_dpd.c: New from libbid 2007-09-26. * bid128_to_int16.c: Likewise. * bid128_to_int8.c: Likewise. * bid128_to_uint8.c: Likewise. * bid128_to_uint16.c: Likewise. * bid64_to_int16.c: Likewise. * bid64_to_int8.c: Likewise. * bid64_to_uint16.c: Likewise. * bid64_to_uint8.c: Likewise. * bid128_2_str.h: Updated from libbid 2007-09-26. * 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_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_string.c: Likewise. * bid128_to_int32.c: Likewise. * bid128_to_int64.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_string.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_b2d.h: Likewise. * bid_binarydecimal.c: Likewise. * bid_conf.h: Likewise. * bid_convert_data.c: Likewise. * bid_decimal_data.c: Likewise. * bid_decimal_globals.c: Likewise. * bid_div_macros.h: Likewise. * bid_flag_operations.c: Likewise. * bid_from_int.c: Likewise. * bid_functions.h: Likewise. * bid_gcc_intrinsics.h: Likewise. * bid_inline_add.h: Likewise. * bid_internal.h: Likewise. * bid_round.c: Likewise. * bid_sqrt_macros.h: Likewise. * _addsub_dd.c: Likewise. * _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-09-27 H.J. Lu <hongjiu.lu@intel.com> * b2d.h: Renamed to ... * bid_b2d.h: This. * bid128_to_string.c: Renamed to ... * bid128_string.c: This. * bid_intrinsics.h: Renamed to ... * bid_gcc_intrinsics.h: This. * bid_string.c: Renamed to ... * bid64_string.c: This. * binarydecimal.c: Renamed to ... * bid_decimal_globals.c: This. * convert_data.c: Renamed to ... * bid_convert_data.c: This. * decimal_data.c: Renamed to ... * bid_decimal_data.c: This. * decimal_globals.c: Renamed to ... * bid_decimal_globals.c: This. * div_macros.h: Renamed to ... * bid_div_macros.h: This. * inline_bid_add.h: Renamed to ... * bid_inline_add.h: This. * sqrt_macros.h: Renamed to ... * bid_sqrt_macros.h: This. From-SVN: r128841
1177 lines
48 KiB
C
1177 lines
48 KiB
C
/* 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. */
|
|
|
|
#ifndef _BID_CONF_H
|
|
#define _BID_CONF_H
|
|
|
|
// Name Changes
|
|
|
|
#define _IDEC_glbflags __bid_IDEC_glbflags
|
|
#define _IDEC_glbround __bid_IDEC_glbround
|
|
#define _IDEC_glbexcepthandling __bid_IDEC_glbexcepthandling
|
|
#define _IDEC_glbexceptionmasks __bid_IDEC_glbexceptionmasks
|
|
#define bid64_add __bid64_add
|
|
#define bid64_sub __bid64_sub
|
|
#define bid64_mul __bid64_mul
|
|
#define bid64_div __bid64_div
|
|
#define bid64dq_div __bid64dq_div
|
|
#define bid64qd_div __bid64qd_div
|
|
#define bid64qq_div __bid64qq_div
|
|
#define bid64q_sqrt __bid64q_sqrt
|
|
#define bid64_sqrt __bid64_sqrt
|
|
#define bid64_rem __bid64_rem
|
|
#define bid64_fma __bid64_fma
|
|
#define bid64_scalb __bid64_scalb
|
|
#define round128_19_38 __bid_round128_19_38
|
|
#define round192_39_57 __bid_round192_39_57
|
|
#define round256_58_76 __bid_round256_58_76
|
|
#define round64_2_18 __bid_round64_2_18
|
|
#define bid64_nextafter __bid64_nextafter
|
|
#define bid64_nextdown __bid64_nextdown
|
|
#define bid64_nextup __bid64_nextup
|
|
#define b2d __bid_b2d
|
|
#define b2d2 __bid_b2d2
|
|
#define b2d3 __bid_b2d3
|
|
#define b2d4 __bid_b2d4
|
|
#define b2d5 __bid_b2d5
|
|
#define bid128_canonize __bid128_canonize
|
|
#define bid32_canonize __bid32_canonize
|
|
#define bid64_canonize __bid64_canonize
|
|
#define bid_to_bid128 __bid_to_bid128
|
|
#define bid_to_bid32 __bid_to_bid32
|
|
#define bid_to_bid64 __bid_to_bid64
|
|
#define bid_to_dpd128 __bid_to_dpd128
|
|
#define bid_to_dpd32 __bid_to_dpd32
|
|
#define bid_to_dpd64 __bid_to_dpd64
|
|
#define d2b __bid_d2b
|
|
#define d2b2 __bid_d2b2
|
|
#define d2b3 __bid_d2b3
|
|
#define d2b4 __bid_d2b4
|
|
#define d2b5 __bid_d2b5
|
|
#define d2b6 __bid_d2b6
|
|
#define dpd_to_bid128 __bid_dpd_to_bid128
|
|
#define dpd_to_bid32 __bid_dpd_to_bid32
|
|
#define dpd_to_bid64 __bid_dpd_to_bid64
|
|
#define bid128_nextafter __bid128_nextafter
|
|
#define bid128_nextdown __bid128_nextdown
|
|
#define bid128_nextup __bid128_nextup
|
|
#define bid64_logb __bid64_logb
|
|
#define bid64_quantize __bid64_quantize
|
|
#define estimate_bin_expon __bid_estimate_bin_expon
|
|
#define estimate_decimal_digits __bid_estimate_decimal_digits
|
|
#define power10_index_binexp __bid_power10_index_binexp
|
|
#define power10_index_binexp_128 __bid_power10_index_binexp_128
|
|
#define power10_table_128 __bid_power10_table_128
|
|
#define reciprocals10_128 __bid_reciprocals10_128
|
|
#define reciprocals10_64 __bid_reciprocals10_64
|
|
#define recip_scale __bid_recip_scale
|
|
#define round_const_table __bid_round_const_table
|
|
#define round_const_table_128 __bid_round_const_table_128
|
|
#define short_recip_scale __bid_short_recip_scale
|
|
#define bid64_from_string __bid64_from_string
|
|
#define bid64_to_string __bid64_to_string
|
|
#define Inv_Tento9 __bid_Inv_Tento9
|
|
#define midi_tbl __bid_midi_tbl
|
|
#define Tento3 __bid_Tento3
|
|
#define Tento6 __bid_Tento6
|
|
#define Tento9 __bid_Tento9
|
|
#define Twoto30_m_10to9 __bid_Twoto30_m_10to9
|
|
#define Twoto60 __bid_Twoto60
|
|
#define Twoto60_m_10to18 __bid_Twoto60_m_10to18
|
|
#define convert_table __bid_convert_table
|
|
#define factors __bid_factors
|
|
#define packed_10000_zeros __bid_packed_10000_zeros
|
|
#define char_table2 __bid_char_table2
|
|
#define char_table3 __bid_char_table3
|
|
#define Ex128m128 __bid_Ex128m128
|
|
#define Ex192m192 __bid_Ex192m192
|
|
#define Ex256m256 __bid_Ex256m256
|
|
#define Ex64m64 __bid_Ex64m64
|
|
#define half128 __bid_half128
|
|
#define half192 __bid_half192
|
|
#define half256 __bid_half256
|
|
#define half64 __bid_half64
|
|
#define Kx128 __bid_Kx128
|
|
#define Kx192 __bid_Kx192
|
|
#define Kx256 __bid_Kx256
|
|
#define Kx64 __bid_Kx64
|
|
#define mask128 __bid_mask128
|
|
#define mask192 __bid_mask192
|
|
#define mask256 __bid_mask256
|
|
#define mask64 __bid_mask64
|
|
#define maskhigh128 __bid_maskhigh128
|
|
#define maskhigh128M __bid_maskhigh128M
|
|
#define maskhigh192M __bid_maskhigh192M
|
|
#define maskhigh256M __bid_maskhigh256M
|
|
#define midpoint128 __bid_midpoint128
|
|
#define midpoint192 __bid_midpoint192
|
|
#define midpoint256 __bid_midpoint256
|
|
#define midpoint64 __bid_midpoint64
|
|
#define nr_digits __bid_nr_digits
|
|
#define onehalf128 __bid_onehalf128
|
|
#define onehalf128M __bid_onehalf128M
|
|
#define onehalf192M __bid_onehalf192M
|
|
#define onehalf256M __bid_onehalf256M
|
|
#define shiftright128 __bid_shiftright128
|
|
#define shiftright128M __bid_shiftright128M
|
|
#define shiftright192M __bid_shiftright192M
|
|
#define shiftright256M __bid_shiftright256M
|
|
#define shift_ten2m3k128 __bid_shift_ten2m3k128
|
|
#define shift_ten2m3k64 __bid_shift_ten2m3k64
|
|
#define ten2k128 __bid_ten2k128
|
|
#define ten2k256 __bid_ten2k256
|
|
#define ten2k64 __bid_ten2k64
|
|
#define ten2m3k128 __bid_ten2m3k128
|
|
#define ten2m3k64 __bid_ten2m3k64
|
|
#define ten2mk128 __bid_ten2mk128
|
|
#define ten2mk128M __bid_ten2mk128M
|
|
#define ten2mk128trunc __bid_ten2mk128trunc
|
|
#define ten2mk128truncM __bid_ten2mk128truncM
|
|
#define ten2mk192M __bid_ten2mk192M
|
|
#define ten2mk192truncM __bid_ten2mk192truncM
|
|
#define ten2mk256M __bid_ten2mk256M
|
|
#define ten2mk256truncM __bid_ten2mk256truncM
|
|
#define ten2mk64 __bid_ten2mk64
|
|
#define ten2mxtrunc128 __bid_ten2mxtrunc128
|
|
#define ten2mxtrunc192 __bid_ten2mxtrunc192
|
|
#define ten2mxtrunc256 __bid_ten2mxtrunc256
|
|
#define ten2mxtrunc64 __bid_ten2mxtrunc64
|
|
#define bid128_add __bid128_add
|
|
#define bid128dd_add __bid128dd_add
|
|
#define bid128dd_sub __bid128dd_sub
|
|
#define bid128dq_add __bid128dq_add
|
|
#define bid128dq_sub __bid128dq_sub
|
|
#define bid128qd_add __bid128qd_add
|
|
#define bid128qd_sub __bid128qd_sub
|
|
#define bid128_sub __bid128_sub
|
|
#define bid64dq_add __bid64dq_add
|
|
#define bid64dq_sub __bid64dq_sub
|
|
#define bid64qd_add __bid64qd_add
|
|
#define bid64qd_sub __bid64qd_sub
|
|
#define bid64qq_add __bid64qq_add
|
|
#define bid64qq_sub __bid64qq_sub
|
|
#define bid128dd_mul __bid128dd_mul
|
|
#define bid128dq_mul __bid128dq_mul
|
|
#define bid128_mul __bid128_mul
|
|
#define bid128qd_mul __bid128qd_mul
|
|
#define bid64dq_mul __bid64dq_mul
|
|
#define bid64qd_mul __bid64qd_mul
|
|
#define bid64qq_mul __bid64qq_mul
|
|
#define bid128dd_div __bid128dd_div
|
|
#define bid128_div __bid128_div
|
|
#define bid128dq_div __bid128dq_div
|
|
#define bid128qd_div __bid128qd_div
|
|
#define bid128d_sqrt __bid128d_sqrt
|
|
#define bid128_sqrt __bid128_sqrt
|
|
#define bid128ddd_fma __bid128ddd_fma
|
|
#define bid128ddq_fma __bid128ddq_fma
|
|
#define bid128dqd_fma __bid128dqd_fma
|
|
#define bid128dqq_fma __bid128dqq_fma
|
|
#define bid128_fma __bid128_fma
|
|
#define bid128qdd_fma __bid128qdd_fma
|
|
#define bid128qdq_fma __bid128qdq_fma
|
|
#define bid128qqd_fma __bid128qqd_fma
|
|
#define bid64ddq_fma __bid64ddq_fma
|
|
#define bid64dqd_fma __bid64dqd_fma
|
|
#define bid64dqq_fma __bid64dqq_fma
|
|
#define bid64qdd_fma __bid64qdd_fma
|
|
#define bid64qdq_fma __bid64qdq_fma
|
|
#define bid64qqd_fma __bid64qqd_fma
|
|
#define bid64qqq_fma __bid64qqq_fma
|
|
#define bid128_round_integral_exact __bid128_round_integral_exact
|
|
#define bid128_round_integral_nearest_away __bid128_round_integral_nearest_away
|
|
#define bid128_round_integral_nearest_even __bid128_round_integral_nearest_even
|
|
#define bid128_round_integral_negative __bid128_round_integral_negative
|
|
#define bid128_round_integral_positive __bid128_round_integral_positive
|
|
#define bid128_round_integral_zero __bid128_round_integral_zero
|
|
#define bid64_round_integral_exact __bid64_round_integral_exact
|
|
#define bid64_round_integral_nearest_away __bid64_round_integral_nearest_away
|
|
#define bid64_round_integral_nearest_even __bid64_round_integral_nearest_even
|
|
#define bid64_round_integral_negative __bid64_round_integral_negative
|
|
#define bid64_round_integral_positive __bid64_round_integral_positive
|
|
#define bid64_round_integral_zero __bid64_round_integral_zero
|
|
#define bid128_quantize __bid128_quantize
|
|
#define bid128_scalb __bid128_scalb
|
|
#define bid64_maxnum __bid64_maxnum
|
|
#define bid64_maxnum_mag __bid64_maxnum_mag
|
|
#define bid64_minnum __bid64_minnum
|
|
#define bid64_minnum_mag __bid64_minnum_mag
|
|
#define bid128_maxnum __bid128_maxnum
|
|
#define bid128_maxnum_mag __bid128_maxnum_mag
|
|
#define bid128_minnum __bid128_minnum
|
|
#define bid128_minnum_mag __bid128_minnum_mag
|
|
#define bid128_rem __bid128_rem
|
|
#define bid128_logb __bid128_logb
|
|
#define getDecimalRoundingDirection __bid_getDecimalRoundingDirection
|
|
#define is754 __bid_is754
|
|
#define is754R __bid_is754R
|
|
#define signalException __bid_signalException
|
|
#define lowerFlags __bid_lowerFlags
|
|
#define restoreFlags __bid_restoreFlags
|
|
#define saveFlags __bid_saveFlags
|
|
#define setDecimalRoundingDirection __bid_setDecimalRoundingDirection
|
|
#define testFlags __bid_testFlags
|
|
#define testSavedFlags __bid_testSavedFlags
|
|
#define bid32_to_bid64 __bid32_to_bid64
|
|
#define bid64_to_bid32 __bid64_to_bid32
|
|
#define bid128_to_string __bid128_to_string
|
|
#define mod10_18_tbl __bid_mod10_18_tbl
|
|
#define bid128_to_bid32 __bid128_to_bid32
|
|
#define bid32_to_bid128 __bid32_to_bid128
|
|
#define bid128_to_bid64 __bid128_to_bid64
|
|
#define bid64_to_bid128 __bid64_to_bid128
|
|
#define bid128_from_string __bid128_from_string
|
|
#define bid128_from_int32 __bid128_from_int32
|
|
#define bid128_from_int64 __bid128_from_int64
|
|
#define bid128_from_uint32 __bid128_from_uint32
|
|
#define bid128_from_uint64 __bid128_from_uint64
|
|
#define bid64_from_int32 __bid64_from_int32
|
|
#define bid64_from_int64 __bid64_from_int64
|
|
#define bid64_from_uint32 __bid64_from_uint32
|
|
#define bid64_from_uint64 __bid64_from_uint64
|
|
#define bid64_abs __bid64_abs
|
|
#define bid64_class __bid64_class
|
|
#define bid64_copy __bid64_copy
|
|
#define bid64_copySign __bid64_copySign
|
|
#define bid64_isCanonical __bid64_isCanonical
|
|
#define bid64_isFinite __bid64_isFinite
|
|
#define bid64_isInf __bid64_isInf
|
|
#define bid64_isNaN __bid64_isNaN
|
|
#define bid64_isNormal __bid64_isNormal
|
|
#define bid64_isSignaling __bid64_isSignaling
|
|
#define bid64_isSigned __bid64_isSigned
|
|
#define bid64_isSubnormal __bid64_isSubnormal
|
|
#define bid64_isZero __bid64_isZero
|
|
#define bid64_negate __bid64_negate
|
|
#define bid64_radix __bid64_radix
|
|
#define bid64_sameQuantum __bid64_sameQuantum
|
|
#define bid64_totalOrder __bid64_totalOrder
|
|
#define bid64_totalOrderMag __bid64_totalOrderMag
|
|
#define bid128_abs __bid128_abs
|
|
#define bid128_class __bid128_class
|
|
#define bid128_copy __bid128_copy
|
|
#define bid128_copySign __bid128_copySign
|
|
#define bid128_isCanonical __bid128_isCanonical
|
|
#define bid128_isFinite __bid128_isFinite
|
|
#define bid128_isInf __bid128_isInf
|
|
#define bid128_isNaN __bid128_isNaN
|
|
#define bid128_isNormal __bid128_isNormal
|
|
#define bid128_isSignaling __bid128_isSignaling
|
|
#define bid128_isSigned __bid128_isSigned
|
|
#define bid128_isSubnormal __bid128_isSubnormal
|
|
#define bid128_isZero __bid128_isZero
|
|
#define bid128_negate __bid128_negate
|
|
#define bid128_radix __bid128_radix
|
|
#define bid128_sameQuantum __bid128_sameQuantum
|
|
#define bid128_totalOrder __bid128_totalOrder
|
|
#define bid128_totalOrderMag __bid128_totalOrderMag
|
|
#define bid64_quiet_equal __bid64_quiet_equal
|
|
#define bid64_quiet_greater __bid64_quiet_greater
|
|
#define bid64_quiet_greater_equal __bid64_quiet_greater_equal
|
|
#define bid64_quiet_greater_unordered __bid64_quiet_greater_unordered
|
|
#define bid64_quiet_less __bid64_quiet_less
|
|
#define bid64_quiet_less_equal __bid64_quiet_less_equal
|
|
#define bid64_quiet_less_unordered __bid64_quiet_less_unordered
|
|
#define bid64_quiet_not_equal __bid64_quiet_not_equal
|
|
#define bid64_quiet_not_greater __bid64_quiet_not_greater
|
|
#define bid64_quiet_not_less __bid64_quiet_not_less
|
|
#define bid64_quiet_ordered __bid64_quiet_ordered
|
|
#define bid64_quiet_unordered __bid64_quiet_unordered
|
|
#define bid64_signaling_greater __bid64_signaling_greater
|
|
#define bid64_signaling_greater_equal __bid64_signaling_greater_equal
|
|
#define bid64_signaling_greater_unordered __bid64_signaling_greater_unordered
|
|
#define bid64_signaling_less __bid64_signaling_less
|
|
#define bid64_signaling_less_equal __bid64_signaling_less_equal
|
|
#define bid64_signaling_less_unordered __bid64_signaling_less_unordered
|
|
#define bid64_signaling_not_greater __bid64_signaling_not_greater
|
|
#define bid64_signaling_not_less __bid64_signaling_not_less
|
|
#define bid128_quiet_equal __bid128_quiet_equal
|
|
#define bid128_quiet_greater __bid128_quiet_greater
|
|
#define bid128_quiet_greater_equal __bid128_quiet_greater_equal
|
|
#define bid128_quiet_greater_unordered __bid128_quiet_greater_unordered
|
|
#define bid128_quiet_less __bid128_quiet_less
|
|
#define bid128_quiet_less_equal __bid128_quiet_less_equal
|
|
#define bid128_quiet_less_unordered __bid128_quiet_less_unordered
|
|
#define bid128_quiet_not_equal __bid128_quiet_not_equal
|
|
#define bid128_quiet_not_greater __bid128_quiet_not_greater
|
|
#define bid128_quiet_not_less __bid128_quiet_not_less
|
|
#define bid128_quiet_ordered __bid128_quiet_ordered
|
|
#define bid128_quiet_unordered __bid128_quiet_unordered
|
|
#define bid128_signaling_greater __bid128_signaling_greater
|
|
#define bid128_signaling_greater_equal __bid128_signaling_greater_equal
|
|
#define bid128_signaling_greater_unordered __bid128_signaling_greater_unordered
|
|
#define bid128_signaling_less __bid128_signaling_less
|
|
#define bid128_signaling_less_equal __bid128_signaling_less_equal
|
|
#define bid128_signaling_less_unordered __bid128_signaling_less_unordered
|
|
#define bid128_signaling_not_greater __bid128_signaling_not_greater
|
|
#define bid128_signaling_not_less __bid128_signaling_not_less
|
|
#define bid64_to_int32_ceil __bid64_to_int32_ceil
|
|
#define bid64_to_int32_floor __bid64_to_int32_floor
|
|
#define bid64_to_int32_int __bid64_to_int32_int
|
|
#define bid64_to_int32_rnint __bid64_to_int32_rnint
|
|
#define bid64_to_int32_rninta __bid64_to_int32_rninta
|
|
#define bid64_to_int32_xceil __bid64_to_int32_xceil
|
|
#define bid64_to_int32_xfloor __bid64_to_int32_xfloor
|
|
#define bid64_to_int32_xint __bid64_to_int32_xint
|
|
#define bid64_to_int32_xrnint __bid64_to_int32_xrnint
|
|
#define bid64_to_int32_xrninta __bid64_to_int32_xrninta
|
|
#define bid64_to_uint32_ceil __bid64_to_uint32_ceil
|
|
#define bid64_to_uint32_floor __bid64_to_uint32_floor
|
|
#define bid64_to_uint32_int __bid64_to_uint32_int
|
|
#define bid64_to_uint32_rnint __bid64_to_uint32_rnint
|
|
#define bid64_to_uint32_rninta __bid64_to_uint32_rninta
|
|
#define bid64_to_uint32_xceil __bid64_to_uint32_xceil
|
|
#define bid64_to_uint32_xfloor __bid64_to_uint32_xfloor
|
|
#define bid64_to_uint32_xint __bid64_to_uint32_xint
|
|
#define bid64_to_uint32_xrnint __bid64_to_uint32_xrnint
|
|
#define bid64_to_uint32_xrninta __bid64_to_uint32_xrninta
|
|
#define bid64_to_int64_ceil __bid64_to_int64_ceil
|
|
#define bid64_to_int64_floor __bid64_to_int64_floor
|
|
#define bid64_to_int64_int __bid64_to_int64_int
|
|
#define bid64_to_int64_rnint __bid64_to_int64_rnint
|
|
#define bid64_to_int64_rninta __bid64_to_int64_rninta
|
|
#define bid64_to_int64_xceil __bid64_to_int64_xceil
|
|
#define bid64_to_int64_xfloor __bid64_to_int64_xfloor
|
|
#define bid64_to_int64_xint __bid64_to_int64_xint
|
|
#define bid64_to_int64_xrnint __bid64_to_int64_xrnint
|
|
#define bid64_to_int64_xrninta __bid64_to_int64_xrninta
|
|
#define bid64_to_uint64_ceil __bid64_to_uint64_ceil
|
|
#define bid64_to_uint64_floor __bid64_to_uint64_floor
|
|
#define bid64_to_uint64_int __bid64_to_uint64_int
|
|
#define bid64_to_uint64_rnint __bid64_to_uint64_rnint
|
|
#define bid64_to_uint64_rninta __bid64_to_uint64_rninta
|
|
#define bid64_to_uint64_xceil __bid64_to_uint64_xceil
|
|
#define bid64_to_uint64_xfloor __bid64_to_uint64_xfloor
|
|
#define bid64_to_uint64_xint __bid64_to_uint64_xint
|
|
#define bid64_to_uint64_xrnint __bid64_to_uint64_xrnint
|
|
#define bid64_to_uint64_xrninta __bid64_to_uint64_xrninta
|
|
#define bid128_to_int32_ceil __bid128_to_int32_ceil
|
|
#define bid128_to_int32_floor __bid128_to_int32_floor
|
|
#define bid128_to_int32_int __bid128_to_int32_int
|
|
#define bid128_to_int32_rnint __bid128_to_int32_rnint
|
|
#define bid128_to_int32_rninta __bid128_to_int32_rninta
|
|
#define bid128_to_int32_xceil __bid128_to_int32_xceil
|
|
#define bid128_to_int32_xfloor __bid128_to_int32_xfloor
|
|
#define bid128_to_int32_xint __bid128_to_int32_xint
|
|
#define bid128_to_int32_xrnint __bid128_to_int32_xrnint
|
|
#define bid128_to_int32_xrninta __bid128_to_int32_xrninta
|
|
#define bid128_to_uint32_ceil __bid128_to_uint32_ceil
|
|
#define bid128_to_uint32_floor __bid128_to_uint32_floor
|
|
#define bid128_to_uint32_int __bid128_to_uint32_int
|
|
#define bid128_to_uint32_rnint __bid128_to_uint32_rnint
|
|
#define bid128_to_uint32_rninta __bid128_to_uint32_rninta
|
|
#define bid128_to_uint32_xceil __bid128_to_uint32_xceil
|
|
#define bid128_to_uint32_xfloor __bid128_to_uint32_xfloor
|
|
#define bid128_to_uint32_xint __bid128_to_uint32_xint
|
|
#define bid128_to_uint32_xrnint __bid128_to_uint32_xrnint
|
|
#define bid128_to_uint32_xrninta __bid128_to_uint32_xrninta
|
|
#define bid128_to_int64_ceil __bid128_to_int64_ceil
|
|
#define bid128_to_int64_floor __bid128_to_int64_floor
|
|
#define bid128_to_int64_int __bid128_to_int64_int
|
|
#define bid128_to_int64_rnint __bid128_to_int64_rnint
|
|
#define bid128_to_int64_rninta __bid128_to_int64_rninta
|
|
#define bid128_to_int64_xceil __bid128_to_int64_xceil
|
|
#define bid128_to_int64_xfloor __bid128_to_int64_xfloor
|
|
#define bid128_to_int64_xint __bid128_to_int64_xint
|
|
#define bid128_to_int64_xrnint __bid128_to_int64_xrnint
|
|
#define bid128_to_int64_xrninta __bid128_to_int64_xrninta
|
|
#define bid128_to_uint64_ceil __bid128_to_uint64_ceil
|
|
#define bid128_to_uint64_floor __bid128_to_uint64_floor
|
|
#define bid128_to_uint64_int __bid128_to_uint64_int
|
|
#define bid128_to_uint64_rnint __bid128_to_uint64_rnint
|
|
#define bid128_to_uint64_rninta __bid128_to_uint64_rninta
|
|
#define bid128_to_uint64_xceil __bid128_to_uint64_xceil
|
|
#define bid128_to_uint64_xfloor __bid128_to_uint64_xfloor
|
|
#define bid128_to_uint64_xint __bid128_to_uint64_xint
|
|
#define bid128_to_uint64_xrnint __bid128_to_uint64_xrnint
|
|
#define bid128_to_uint64_xrninta __bid128_to_uint64_xrninta
|
|
#define bid128_to_binary128 __bid128_to_binary128
|
|
#define bid128_to_binary32 __bid128_to_binary32
|
|
#define bid128_to_binary64 __bid128_to_binary64
|
|
#define bid128_to_binary80 __bid128_to_binary80
|
|
#define bid32_to_binary128 __bid32_to_binary128
|
|
#define bid32_to_binary32 __bid32_to_binary32
|
|
#define bid32_to_binary64 __bid32_to_binary64
|
|
#define bid32_to_binary80 __bid32_to_binary80
|
|
#define bid64_to_binary128 __bid64_to_binary128
|
|
#define bid64_to_binary32 __bid64_to_binary32
|
|
#define bid64_to_binary64 __bid64_to_binary64
|
|
#define bid64_to_binary80 __bid64_to_binary80
|
|
#define binary128_to_bid128 __binary128_to_bid128
|
|
#define binary128_to_bid32 __binary128_to_bid32
|
|
#define binary128_to_bid64 __binary128_to_bid64
|
|
#define binary32_to_bid128 __binary32_to_bid128
|
|
#define binary32_to_bid32 __binary32_to_bid32
|
|
#define binary32_to_bid64 __binary32_to_bid64
|
|
#define binary64_to_bid128 __binary64_to_bid128
|
|
#define binary64_to_bid32 __binary64_to_bid32
|
|
#define binary64_to_bid64 __binary64_to_bid64
|
|
#define binary80_to_bid128 __binary80_to_bid128
|
|
#define binary80_to_bid32 __binary80_to_bid32
|
|
#define binary80_to_bid64 __binary80_to_bid64
|
|
#define bid64_to_uint16_ceil __bid64_to_uint16_ceil
|
|
#define bid64_to_uint16_floor __bid64_to_uint16_floor
|
|
#define bid64_to_uint16_int __bid64_to_uint16_int
|
|
#define bid64_to_uint16_rnint __bid64_to_uint16_rnint
|
|
#define bid64_to_uint16_rninta __bid64_to_uint16_rninta
|
|
#define bid64_to_uint16_xceil __bid64_to_uint16_xceil
|
|
#define bid64_to_uint16_xfloor __bid64_to_uint16_xfloor
|
|
#define bid64_to_uint16_xint __bid64_to_uint16_xint
|
|
#define bid64_to_uint16_xrnint __bid64_to_uint16_xrnint
|
|
#define bid64_to_uint16_xrninta __bid64_to_uint16_xrninta
|
|
#define bid64_to_int16_ceil __bid64_to_int16_ceil
|
|
#define bid64_to_int16_floor __bid64_to_int16_floor
|
|
#define bid64_to_int16_int __bid64_to_int16_int
|
|
#define bid64_to_int16_rnint __bid64_to_int16_rnint
|
|
#define bid64_to_int16_rninta __bid64_to_int16_rninta
|
|
#define bid64_to_int16_xceil __bid64_to_int16_xceil
|
|
#define bid64_to_int16_xfloor __bid64_to_int16_xfloor
|
|
#define bid64_to_int16_xint __bid64_to_int16_xint
|
|
#define bid64_to_int16_xrnint __bid64_to_int16_xrnint
|
|
#define bid64_to_int16_xrninta __bid64_to_int16_xrninta
|
|
#define bid128_to_uint16_ceil __bid128_to_uint16_ceil
|
|
#define bid128_to_uint16_floor __bid128_to_uint16_floor
|
|
#define bid128_to_uint16_int __bid128_to_uint16_int
|
|
#define bid128_to_uint16_rnint __bid128_to_uint16_rnint
|
|
#define bid128_to_uint16_rninta __bid128_to_uint16_rninta
|
|
#define bid128_to_uint16_xceil __bid128_to_uint16_xceil
|
|
#define bid128_to_uint16_xfloor __bid128_to_uint16_xfloor
|
|
#define bid128_to_uint16_xint __bid128_to_uint16_xint
|
|
#define bid128_to_uint16_xrnint __bid128_to_uint16_xrnint
|
|
#define bid128_to_uint16_xrninta __bid128_to_uint16_xrninta
|
|
#define bid128_to_int16_ceil __bid128_to_int16_ceil
|
|
#define bid128_to_int16_floor __bid128_to_int16_floor
|
|
#define bid128_to_int16_int __bid128_to_int16_int
|
|
#define bid128_to_int16_rnint __bid128_to_int16_rnint
|
|
#define bid128_to_int16_rninta __bid128_to_int16_rninta
|
|
#define bid128_to_int16_xceil __bid128_to_int16_xceil
|
|
#define bid128_to_int16_xfloor __bid128_to_int16_xfloor
|
|
#define bid128_to_int16_xint __bid128_to_int16_xint
|
|
#define bid128_to_int16_xrnint __bid128_to_int16_xrnint
|
|
#define bid128_to_int16_xrninta __bid128_to_int16_xrninta
|
|
#define bid64_to_uint8_ceil __bid64_to_uint8_ceil
|
|
#define bid64_to_uint8_floor __bid64_to_uint8_floor
|
|
#define bid64_to_uint8_int __bid64_to_uint8_int
|
|
#define bid64_to_uint8_rnint __bid64_to_uint8_rnint
|
|
#define bid64_to_uint8_rninta __bid64_to_uint8_rninta
|
|
#define bid64_to_uint8_xceil __bid64_to_uint8_xceil
|
|
#define bid64_to_uint8_xfloor __bid64_to_uint8_xfloor
|
|
#define bid64_to_uint8_xint __bid64_to_uint8_xint
|
|
#define bid64_to_uint8_xrnint __bid64_to_uint8_xrnint
|
|
#define bid64_to_uint8_xrninta __bid64_to_uint8_xrninta
|
|
#define bid64_to_int8_ceil __bid64_to_int8_ceil
|
|
#define bid64_to_int8_floor __bid64_to_int8_floor
|
|
#define bid64_to_int8_int __bid64_to_int8_int
|
|
#define bid64_to_int8_rnint __bid64_to_int8_rnint
|
|
#define bid64_to_int8_rninta __bid64_to_int8_rninta
|
|
#define bid64_to_int8_xceil __bid64_to_int8_xceil
|
|
#define bid64_to_int8_xfloor __bid64_to_int8_xfloor
|
|
#define bid64_to_int8_xint __bid64_to_int8_xint
|
|
#define bid64_to_int8_xrnint __bid64_to_int8_xrnint
|
|
#define bid64_to_int8_xrninta __bid64_to_int8_xrninta
|
|
#define bid128_to_uint8_ceil __bid128_to_uint8_ceil
|
|
#define bid128_to_uint8_floor __bid128_to_uint8_floor
|
|
#define bid128_to_uint8_int __bid128_to_uint8_int
|
|
#define bid128_to_uint8_rnint __bid128_to_uint8_rnint
|
|
#define bid128_to_uint8_rninta __bid128_to_uint8_rninta
|
|
#define bid128_to_uint8_xceil __bid128_to_uint8_xceil
|
|
#define bid128_to_uint8_xfloor __bid128_to_uint8_xfloor
|
|
#define bid128_to_uint8_xint __bid128_to_uint8_xint
|
|
#define bid128_to_uint8_xrnint __bid128_to_uint8_xrnint
|
|
#define bid128_to_uint8_xrninta __bid128_to_uint8_xrninta
|
|
#define bid128_to_int8_ceil __bid128_to_int8_ceil
|
|
#define bid128_to_int8_floor __bid128_to_int8_floor
|
|
#define bid128_to_int8_int __bid128_to_int8_int
|
|
#define bid128_to_int8_rnint __bid128_to_int8_rnint
|
|
#define bid128_to_int8_rninta __bid128_to_int8_rninta
|
|
#define bid128_to_int8_xceil __bid128_to_int8_xceil
|
|
#define bid128_to_int8_xfloor __bid128_to_int8_xfloor
|
|
#define bid128_to_int8_xint __bid128_to_int8_xint
|
|
#define bid128_to_int8_xrnint __bid128_to_int8_xrnint
|
|
#define bid128_to_int8_xrninta __bid128_to_int8_xrninta
|
|
|
|
#ifdef IN_LIBGCC2
|
|
#if !defined ENABLE_DECIMAL_BID_FORMAT || !ENABLE_DECIMAL_BID_FORMAT
|
|
#error BID not enabled in libbid
|
|
#endif
|
|
|
|
#ifndef BID_BIG_ENDIAN
|
|
#define BID_BIG_ENDIAN LIBGCC2_FLOAT_WORDS_BIG_ENDIAN
|
|
#endif
|
|
|
|
#ifndef BID_THREAD
|
|
#if defined (HAVE_CC_TLS) && defined (USE_TLS)
|
|
#define BID_THREAD __thread
|
|
#endif
|
|
#endif
|
|
|
|
#define _intptr_t_defined
|
|
#define DECIMAL_CALL_BY_REFERENCE 0
|
|
#define DECIMAL_GLOBAL_ROUNDING 1
|
|
#define DECIMAL_GLOBAL_ROUNDING_ACCESS_FUNCTIONS 1
|
|
#define DECIMAL_GLOBAL_EXCEPTION_FLAGS 1
|
|
#define DECIMAL_GLOBAL_EXCEPTION_FLAGS_ACCESS_FUNCTIONS 1
|
|
#define BID_HAS_GCC_DECIMAL_INTRINSICS 1
|
|
#endif /* IN_LIBGCC2 */
|
|
|
|
// Configuration Options
|
|
|
|
#define SET_STATUS_FLAGS
|
|
|
|
#ifndef BID_THREAD
|
|
#define BID_THREAD
|
|
#endif
|
|
|
|
#ifndef BID_HAS_GCC_DECIMAL_INTRINSICS
|
|
#define BID_HAS_GCC_DECIMAL_INTRINSICS 0
|
|
#endif
|
|
|
|
#if !defined(WINDOWS) || defined(__INTEL_COMPILER)
|
|
// #define UNCHANGED_BINARY_STATUS_FLAGS
|
|
#endif
|
|
// #define HPUX_OS
|
|
|
|
// If DECIMAL_CALL_BY_REFERENCE is defined then numerical arguments and results
|
|
// are passed by reference otherwise they are passed by value (except that
|
|
// a pointer is always passed to the status flags)
|
|
|
|
#ifndef DECIMAL_CALL_BY_REFERENCE
|
|
#define DECIMAL_CALL_BY_REFERENCE 0
|
|
#endif
|
|
|
|
// If DECIMAL_GLOBAL_ROUNDING is defined then the rounding mode is a global
|
|
// variable _IDEC_glbround, otherwise it is passed as a parameter when needed
|
|
|
|
#ifndef DECIMAL_GLOBAL_ROUNDING
|
|
#define DECIMAL_GLOBAL_ROUNDING 0
|
|
#endif
|
|
|
|
#ifndef DECIMAL_GLOBAL_ROUNDING_ACCESS_FUNCTIONS
|
|
#define DECIMAL_GLOBAL_ROUNDING_ACCESS_FUNCTIONS 0
|
|
#endif
|
|
|
|
// If DECIMAL_GLOBAL_EXCEPTION_FLAGS is defined then the exception status flags
|
|
// are represented by a global variable _IDEC_glbflags, otherwise they are
|
|
// passed as a parameter when needed
|
|
|
|
#ifndef DECIMAL_GLOBAL_EXCEPTION_FLAGS
|
|
#define DECIMAL_GLOBAL_EXCEPTION_FLAGS 0
|
|
#endif
|
|
|
|
#ifndef DECIMAL_GLOBAL_EXCEPTION_FLAGS_ACCESS_FUNCTIONS
|
|
#define DECIMAL_GLOBAL_EXCEPTION_FLAGS_ACCESS_FUNCTIONS 0
|
|
#endif
|
|
|
|
// If DECIMAL_ALTERNATE_EXCEPTION_HANDLING is defined then the exception masks
|
|
// are examined and exception handling information is provided to the caller
|
|
// if alternate exception handling is necessary
|
|
|
|
#ifndef DECIMAL_ALTERNATE_EXCEPTION_HANDLING
|
|
#define DECIMAL_ALTERNATE_EXCEPTION_HANDLING 0
|
|
#endif
|
|
|
|
typedef unsigned int _IDEC_round;
|
|
typedef unsigned int _IDEC_flags; // could be a struct with diagnostic info
|
|
|
|
#if DECIMAL_ALTERNATE_EXCEPTION_HANDLING
|
|
// If DECIMAL_GLOBAL_EXCEPTION_MASKS is defined then the exception mask bits
|
|
// are represented by a global variable _IDEC_exceptionmasks, otherwise they
|
|
// are passed as a parameter when needed; DECIMAL_GLOBAL_EXCEPTION_MASKS is
|
|
// ignored
|
|
// if DECIMAL_ALTERNATE_EXCEPTION_HANDLING is not defined
|
|
// **************************************************************************
|
|
#define DECIMAL_GLOBAL_EXCEPTION_MASKS 0
|
|
// **************************************************************************
|
|
|
|
// If DECIMAL_GLOBAL_EXCEPTION_INFO is defined then the alternate exception
|
|
// handling information is represented by a global data structure
|
|
// _IDEC_glbexcepthandling, otherwise it is passed by reference as a
|
|
// parameter when needed; DECIMAL_GLOBAL_EXCEPTION_INFO is ignored
|
|
// if DECIMAL_ALTERNATE_EXCEPTION_HANDLING is not defined
|
|
// **************************************************************************
|
|
#define DECIMAL_GLOBAL_EXCEPTION_INFO 0
|
|
// **************************************************************************
|
|
#endif
|
|
|
|
// Notes: 1) rnd_mode from _RND_MODE_ARG is used by the caller of a function
|
|
// from this library, and can be any name
|
|
// 2) rnd_mode and prnd_mode from _RND_MODE_PARAM are fixed names
|
|
// and *must* be used in the library functions
|
|
// 3) _IDEC_glbround is the fixed name for the global variable holding
|
|
// the rounding mode
|
|
|
|
#if !DECIMAL_GLOBAL_ROUNDING
|
|
#if DECIMAL_CALL_BY_REFERENCE
|
|
#define _RND_MODE_ARG , &rnd_mode
|
|
#define _RND_MODE_PARAM , _IDEC_round *prnd_mode
|
|
#define _RND_MODE_ARG_ALONE &rnd_mode
|
|
#define _RND_MODE_PARAM_ALONE _IDEC_round *prnd_mode
|
|
#else
|
|
#define _RND_MODE_ARG , rnd_mode
|
|
#define _RND_MODE_PARAM , _IDEC_round rnd_mode
|
|
#define _RND_MODE_ARG_ALONE rnd_mode
|
|
#define _RND_MODE_PARAM_ALONE _IDEC_round rnd_mode
|
|
#endif
|
|
#else
|
|
#define _RND_MODE_ARG
|
|
#define _RND_MODE_PARAM
|
|
#define _RND_MODE_ARG_ALONE
|
|
#define _RND_MODE_PARAM_ALONE
|
|
#define rnd_mode _IDEC_glbround
|
|
#endif
|
|
|
|
// Notes: 1) pfpsf from _EXC_FLAGS_ARG is used by the caller of a function
|
|
// from this library, and can be any name
|
|
// 2) pfpsf from _EXC_FLAGS_PARAM is a fixed name and *must* be used
|
|
// in the library functions
|
|
// 3) _IDEC_glbflags is the fixed name for the global variable holding
|
|
// the floating-point status flags
|
|
#if !DECIMAL_GLOBAL_EXCEPTION_FLAGS
|
|
#define _EXC_FLAGS_ARG , pfpsf
|
|
#define _EXC_FLAGS_PARAM , _IDEC_flags *pfpsf
|
|
#else
|
|
#define _EXC_FLAGS_ARG
|
|
#define _EXC_FLAGS_PARAM
|
|
#define pfpsf &_IDEC_glbflags
|
|
#endif
|
|
|
|
#if DECIMAL_GLOBAL_ROUNDING
|
|
extern BID_THREAD _IDEC_round _IDEC_glbround;
|
|
#endif
|
|
|
|
#if DECIMAL_GLOBAL_EXCEPTION_FLAGS
|
|
extern BID_THREAD _IDEC_flags _IDEC_glbflags;
|
|
#endif
|
|
|
|
#if DECIMAL_ALTERNATE_EXCEPTION_HANDLING
|
|
#if DECIMAL_GLOBAL_EXCEPTION_MASKS
|
|
extern BID_THREAD _IDEC_exceptionmasks _IDEC_glbexceptionmasks;
|
|
#endif
|
|
#if DECIMAL_GLOBAL_EXCEPTION_INFO
|
|
extern BID_THREAD _IDEC_excepthandling _IDEC_glbexcepthandling;
|
|
#endif
|
|
#endif
|
|
|
|
#if DECIMAL_ALTERNATE_EXCEPTION_HANDLING
|
|
|
|
// Notes: 1) exc_mask from _EXC_MASKS_ARG is used by the caller of a function
|
|
// from this library, and can be any name
|
|
// 2) exc_mask and pexc_mask from _EXC_MASKS_PARAM are fixed names
|
|
// and *must* be used in the library functions
|
|
// 3) _IDEC_glbexceptionmasks is the fixed name for the global
|
|
// variable holding the floating-point exception masks
|
|
#if !DECIMAL_GLOBAL_EXCEPTION_MASKS
|
|
#if DECIMAL_CALL_BY_REFERENCE
|
|
#define _EXC_MASKS_ARG , &exc_mask
|
|
#define _EXC_MASKS_PARAM , _IDEC_exceptionmasks *pexc_mask
|
|
#else
|
|
#define _EXC_MASKS_ARG , exc_mask
|
|
#define _EXC_MASKS_PARAM , _IDEC_exceptionmasks exc_mask
|
|
#endif
|
|
#else
|
|
#define _EXC_MASKS_ARG
|
|
#define _EXC_MASKS_PARAM
|
|
#define exc_mask _IDEC_glbexceptionmasks
|
|
#endif
|
|
|
|
// Notes: 1) pexc_info from _EXC_INFO_ARG is used by the caller of a function
|
|
// from this library, and can be any name
|
|
// 2) pexc_info from _EXC_INFO_PARAM is a fixed name and *must* be
|
|
// used in the library functions
|
|
// 3) _IDEC_glbexcepthandling is the fixed name for the global
|
|
// variable holding the floating-point exception information
|
|
#if !DECIMAL_GLOBAL_EXCEPTION_INFO
|
|
#define _EXC_INFO_ARG , pexc_info
|
|
#define _EXC_INFO_PARAM , _IDEC_excepthandling *pexc_info
|
|
#else
|
|
#define _EXC_INFO_ARG
|
|
#define _EXC_INFO_PARAM
|
|
#define pexc_info &_IDEC_glbexcepthandling
|
|
#endif
|
|
#else
|
|
#define _EXC_MASKS_ARG
|
|
#define _EXC_MASKS_PARAM
|
|
#define _EXC_INFO_ARG
|
|
#define _EXC_INFO_PARAM
|
|
#endif
|
|
|
|
|
|
#ifndef BID_BIG_ENDIAN
|
|
#define BID_BIG_ENDIAN 0
|
|
#endif
|
|
|
|
#if BID_BIG_ENDIAN
|
|
#define BID_SWAP128(x) { \
|
|
UINT64 sw; \
|
|
sw = (x).w[1]; \
|
|
(x).w[1] = (x).w[0]; \
|
|
(x).w[0] = sw; \
|
|
}
|
|
#else
|
|
#define BID_SWAP128(x)
|
|
#endif
|
|
|
|
#if DECIMAL_CALL_BY_REFERENCE
|
|
#define BID_RETURN_VAL(x) { *pres = (x); return; }
|
|
#if BID_BIG_ENDIAN && defined BID_128RES
|
|
#define BID_RETURN(x) { BID_SWAP128(x); *pres = (x); return; }
|
|
#else
|
|
#define BID_RETURN(x) { *pres = (x); return; }
|
|
#endif
|
|
#else
|
|
#define BID_RETURN_VAL(x) return(x);
|
|
#if BID_BIG_ENDIAN && defined BID_128RES
|
|
#define BID_RETURN(x) { BID_SWAP128(x); return(x); }
|
|
#else
|
|
#define BID_RETURN(x) return(x);
|
|
#endif
|
|
#endif
|
|
|
|
#if DECIMAL_CALL_BY_REFERENCE
|
|
#define BIDECIMAL_CALL1(_FUNC, _RES, _OP1) \
|
|
_FUNC(&(_RES), &(_OP1) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL1_NORND(_FUNC, _RES, _OP1) \
|
|
_FUNC(&(_RES), &(_OP1) _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL2(_FUNC, _RES, _OP1, _OP2) \
|
|
_FUNC(&(_RES), &(_OP1), &(_OP2) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL2_NORND(_FUNC, _RES, _OP1, _OP2) \
|
|
_FUNC(&(_RES), &(_OP1), &(_OP2) _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL1_NORND_RESREF(_FUNC, _RES, _OP1) \
|
|
_FUNC((_RES), &(_OP1) _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL1_RESARG(_FUNC, _RES, _OP1) \
|
|
_FUNC(&(_RES), (_OP1) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL1_RESREF(_FUNC, _RES, _OP1) \
|
|
_FUNC((_RES), &(_OP1) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL1_NORND_NOSTAT(_FUNC, _RES, _OP1) \
|
|
_FUNC(&(_RES), &(_OP1) _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL2_NORND_NOSTAT(_FUNC, _RES, _OP1, _OP2) \
|
|
_FUNC(&(_RES), &(_OP1), &(_OP2) _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL3(_FUNC, _RES, _OP1, _OP2, _OP3) \
|
|
_FUNC(&(_RES), &(_OP1), &(_OP2), &(_OP3) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL1_NORND_NOMASK_NOINFO(_FUNC, _RES, _OP1) \
|
|
_FUNC(&(_RES), &(_OP1) _EXC_FLAGS_ARG )
|
|
#define BIDECIMAL_CALL1_NORND_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES, _OP1) \
|
|
_FUNC(&(_RES), &(_OP1) )
|
|
#define BIDECIMAL_CALL2_NORND_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES, _OP1, _OP2) \
|
|
_FUNC(&(_RES), &(_OP1), &(_OP2) )
|
|
#define BIDECIMAL_CALL1_NORND_NOMASK_NOINFO_RESVOID(_FUNC, _OP1) \
|
|
_FUNC(&(_OP1) _EXC_FLAGS_ARG )
|
|
#define BIDECIMAL_CALL2_NORND_NOMASK_NOINFO_RESVOID(_FUNC, _OP1, _OP2) \
|
|
_FUNC(&(_OP1), &(_OP2) _EXC_FLAGS_ARG )
|
|
#define BIDECIMAL_CALLV_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES) \
|
|
_FUNC(&(_RES) _RND_MODE_ARG)
|
|
#define BIDECIMAL_CALL1_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES, _OP1) \
|
|
_FUNC(&(_OP1) _RND_MODE_ARG)
|
|
#else
|
|
#define BIDECIMAL_CALL1(_FUNC, _RES, _OP1) \
|
|
_RES = _FUNC((_OP1) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL1_NORND(_FUNC, _RES, _OP1) \
|
|
_RES = _FUNC((_OP1) _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL2(_FUNC, _RES, _OP1, _OP2) \
|
|
_RES = _FUNC((_OP1), (_OP2) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL2_NORND(_FUNC, _RES, _OP1, _OP2) \
|
|
_RES = _FUNC((_OP1), (_OP2) _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL1_NORND_RESREF(_FUNC, _RES, _OP1) \
|
|
_FUNC((_RES), _OP1 _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL1_RESARG(_FUNC, _RES, _OP1) \
|
|
_RES = _FUNC((_OP1) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL1_RESREF(_FUNC, _RES, _OP1) \
|
|
_FUNC((_RES), _OP1 _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL1_NORND_NOSTAT(_FUNC, _RES, _OP1) \
|
|
_RES = _FUNC((_OP1) _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL2_NORND_NOSTAT(_FUNC, _RES, _OP1, _OP2) \
|
|
_RES = _FUNC((_OP1), (_OP2) _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL3(_FUNC, _RES, _OP1, _OP2, _OP3) \
|
|
_RES = _FUNC((_OP1), (_OP2), (_OP3) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
|
|
#define BIDECIMAL_CALL1_NORND_NOMASK_NOINFO(_FUNC, _RES, _OP1) \
|
|
_RES = _FUNC((_OP1) _EXC_FLAGS_ARG)
|
|
#define BIDECIMAL_CALL1_NORND_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES, _OP1) \
|
|
_RES = _FUNC((_OP1) )
|
|
#define BIDECIMAL_CALL2_NORND_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES, _OP1, _OP2) \
|
|
_RES = _FUNC((_OP1), (_OP2) )
|
|
#define BIDECIMAL_CALL1_NORND_NOMASK_NOINFO_RESVOID(_FUNC, _OP1) \
|
|
_FUNC((_OP1) _EXC_FLAGS_ARG)
|
|
#define BIDECIMAL_CALL2_NORND_NOMASK_NOINFO_RESVOID(_FUNC, _OP1, _OP2) \
|
|
_FUNC((_OP1), (_OP2) _EXC_FLAGS_ARG)
|
|
#define BIDECIMAL_CALLV_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES) \
|
|
_RES = _FUNC(_RND_MODE_ARG_ALONE)
|
|
#if !DECIMAL_GLOBAL_ROUNDING
|
|
#define BIDECIMAL_CALL1_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES, _OP1) \
|
|
_RES = _FUNC((_OP1) _RND_MODE_ARG)
|
|
#else
|
|
#define BIDECIMAL_CALL1_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES, _OP1) \
|
|
_FUNC((_OP1) _RND_MODE_ARG)
|
|
#endif
|
|
#endif
|
|
|
|
#if BID_BIG_ENDIAN
|
|
#define HIGH_128W 0
|
|
#define LOW_128W 1
|
|
#else
|
|
#define HIGH_128W 1
|
|
#define LOW_128W 0
|
|
#endif
|
|
|
|
#if BID_BIG_ENDIAN
|
|
#define COPY_ARG_REF(arg_name) \
|
|
UINT128 arg_name={ pbid_##arg_name->w[1], pbid_##arg_name->w[0]};
|
|
#define COPY_ARG_VAL(arg_name) \
|
|
UINT128 arg_name={ bid_##arg_name.w[1], bid_##arg_name.w[0]};
|
|
#else
|
|
#define COPY_ARG_REF(arg_name) \
|
|
UINT128 arg_name=*pbid_##arg_name;
|
|
#define COPY_ARG_VAL(arg_name) \
|
|
UINT128 arg_name= bid_##arg_name;
|
|
#endif
|
|
|
|
#define COPY_ARG_TYPE_REF(type, arg_name) \
|
|
type arg_name=*pbid_##arg_name;
|
|
#define COPY_ARG_TYPE_VAL(type, arg_name) \
|
|
type arg_name= bid_##arg_name;
|
|
|
|
#if !DECIMAL_GLOBAL_ROUNDING
|
|
#define SET_RND_MODE() \
|
|
_IDEC_round rnd_mode = *prnd_mode;
|
|
#else
|
|
#define SET_RND_MODE()
|
|
#endif
|
|
|
|
#define PROLOG_REF(arg_name) \
|
|
COPY_ARG_REF(arg_name)
|
|
|
|
#define PROLOG_VAL(arg_name) \
|
|
COPY_ARG_VAL(arg_name)
|
|
|
|
#define PROLOG_TYPE_REF(type, arg_name) \
|
|
COPY_ARG_TYPE_REF(type, arg_name)
|
|
|
|
#define PROLOG_TYPE_VAL(type, arg_name) \
|
|
COPY_ARG_TYPE_VAL(type, arg_name)
|
|
|
|
#define OTHER_PROLOG_REF()
|
|
#define OTHER_PROLOG_VAL()
|
|
|
|
#if DECIMAL_CALL_BY_REFERENCE
|
|
#define BID128_FUNCTION_ARG1(fn_name, arg_name)\
|
|
void fn_name (UINT128 * pres, \
|
|
UINT128 * \
|
|
pbid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
|
|
_EXC_INFO_PARAM) {\
|
|
PROLOG_REF(arg_name) \
|
|
SET_RND_MODE() \
|
|
OTHER_PROLOG_REF()
|
|
|
|
#define BID128_FUNCTION_ARG1_NORND(fn_name, arg_name)\
|
|
void fn_name (UINT128 * pres, \
|
|
UINT128 * \
|
|
pbid_##arg_name _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
|
|
_EXC_INFO_PARAM) {\
|
|
PROLOG_REF(arg_name) \
|
|
OTHER_PROLOG_REF()
|
|
|
|
#define BID128_FUNCTION_ARG1_NORND_CUSTOMRESTYPE(restype, fn_name, arg_name)\
|
|
void fn_name (restype * pres, \
|
|
UINT128 * \
|
|
pbid_##arg_name _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
|
|
_EXC_INFO_PARAM) {\
|
|
PROLOG_REF(arg_name) \
|
|
OTHER_PROLOG_REF()
|
|
|
|
#define BID128_FUNCTION_ARG2(fn_name, arg_name1, arg_name2)\
|
|
void fn_name (UINT128 * pres, \
|
|
UINT128 *pbid_##arg_name1, UINT128 *pbid_##arg_name2 \
|
|
_RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
|
|
_EXC_INFO_PARAM) {\
|
|
PROLOG_REF(arg_name1) \
|
|
PROLOG_REF(arg_name2) \
|
|
SET_RND_MODE() \
|
|
OTHER_PROLOG_REF()
|
|
|
|
#define BID128_FUNCTION_ARG2_NORND_CUSTOMRESTYPE(restype, fn_name, arg_name1, arg_name2)\
|
|
void fn_name (restype * pres, \
|
|
UINT128 *pbid_##arg_name1, UINT128 *pbid_##arg_name2 \
|
|
_EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
|
|
_EXC_INFO_PARAM) {\
|
|
PROLOG_REF(arg_name1) \
|
|
PROLOG_REF(arg_name2) \
|
|
OTHER_PROLOG_REF()
|
|
|
|
#define BID128_FUNCTION_ARG128_ARGTYPE2(fn_name, arg_name1, type2, arg_name2)\
|
|
void fn_name (UINT128 * pres, \
|
|
UINT128 *pbid_##arg_name1, type2 *pbid_##arg_name2 \
|
|
_RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
|
|
_EXC_INFO_PARAM) {\
|
|
PROLOG_REF(arg_name1) \
|
|
PROLOG_TYPE_REF(type2, arg_name2) \
|
|
SET_RND_MODE() \
|
|
OTHER_PROLOG_REF()
|
|
|
|
#define TYPE0_FUNCTION_ARGTYPE1_ARGTYPE2(type0, fn_name, type1, arg_name1, type2, arg_name2)\
|
|
void fn_name (type0 *pres, \
|
|
type1 *pbid_##arg_name1, type2 *pbid_##arg_name2 \
|
|
_RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
|
|
_EXC_INFO_PARAM) {\
|
|
PROLOG_TYPE_REF(type1, arg_name1) \
|
|
PROLOG_TYPE_REF(type2, arg_name2) \
|
|
SET_RND_MODE() \
|
|
OTHER_PROLOG_REF()
|
|
|
|
#define BID128_FUNCTION_ARGTYPE1_ARG128(fn_name, type1, arg_name1, arg_name2)\
|
|
void fn_name (UINT128 * pres, \
|
|
type1 *pbid_##arg_name1, UINT128 *pbid_##arg_name2 \
|
|
_RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
|
|
_EXC_INFO_PARAM) {\
|
|
PROLOG_TYPE_REF(type1, arg_name1) \
|
|
PROLOG_REF(arg_name2) \
|
|
SET_RND_MODE() \
|
|
OTHER_PROLOG_REF()
|
|
|
|
#define TYPE0_FUNCTION_ARG128_ARGTYPE2(type0, fn_name, arg_name1, type2, arg_name2)\
|
|
void fn_name (type0 *pres, \
|
|
UINT128 *pbid_##arg_name1, type2 *pbid_##arg_name2 \
|
|
_RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
|
|
_EXC_INFO_PARAM) {\
|
|
PROLOG_REF(arg_name1) \
|
|
PROLOG_TYPE_REF(type2, arg_name2) \
|
|
SET_RND_MODE() \
|
|
OTHER_PROLOG_REF()
|
|
|
|
#define TYPE0_FUNCTION_ARGTYPE1_ARG128(type0, fn_name, type1, arg_name1, arg_name2)\
|
|
void fn_name (type0 *pres, \
|
|
type1 *pbid_##arg_name1, UINT128 *pbid_##arg_name2 \
|
|
_RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
|
|
_EXC_INFO_PARAM) {\
|
|
PROLOG_TYPE_REF(type1, arg_name1) \
|
|
PROLOG_REF(arg_name2) \
|
|
SET_RND_MODE() \
|
|
OTHER_PROLOG_REF()
|
|
|
|
#define TYPE0_FUNCTION_ARG128_ARG128(type0, fn_name, arg_name1, arg_name2)\
|
|
void fn_name (type0 * pres, \
|
|
UINT128 *pbid_##arg_name1, UINT128 *pbid_##arg_name2 \
|
|
_RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
|
|
_EXC_INFO_PARAM) {\
|
|
PROLOG_REF(arg_name1) \
|
|
PROLOG_REF(arg_name2) \
|
|
SET_RND_MODE() \
|
|
OTHER_PROLOG_REF()
|
|
|
|
#define TYPE0_FUNCTION_ARG1(type0, fn_name, arg_name)\
|
|
void fn_name (type0 * pres, \
|
|
UINT128 * \
|
|
pbid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
|
|
_EXC_INFO_PARAM) {\
|
|
PROLOG_REF(arg_name) \
|
|
SET_RND_MODE() \
|
|
OTHER_PROLOG_REF()
|
|
|
|
#define BID128_FUNCTION_ARGTYPE1(fn_name, type1, arg_name)\
|
|
void fn_name (UINT128 * pres, \
|
|
type1 * \
|
|
pbid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
|
|
_EXC_INFO_PARAM) {\
|
|
PROLOG_TYPE_REF(type1, arg_name) \
|
|
SET_RND_MODE() \
|
|
OTHER_PROLOG_REF()
|
|
|
|
#define TYPE0_FUNCTION_ARGTYPE1(type0, fn_name, type1, arg_name)\
|
|
void fn_name (type0 * pres, \
|
|
type1 * \
|
|
pbid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
|
|
_EXC_INFO_PARAM) {\
|
|
PROLOG_TYPE_REF(type1, arg_name) \
|
|
SET_RND_MODE() \
|
|
OTHER_PROLOG_REF()
|
|
|
|
#define TYPE0_FUNCTION_ARGTYPE1_NORND(type0, fn_name, type1, arg_name)\
|
|
void fn_name (type0 * pres, \
|
|
type1 * \
|
|
pbid_##arg_name _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
|
|
_EXC_INFO_PARAM) {\
|
|
PROLOG_TYPE_REF(type1, arg_name) \
|
|
OTHER_PROLOG_REF()
|
|
|
|
//////////////////////////////////////////
|
|
/////////////////////////////////////////
|
|
////////////////////////////////////////
|
|
|
|
#else
|
|
|
|
//////////////////////////////////////////
|
|
/////////////////////////////////////////
|
|
////////////////////////////////////////
|
|
|
|
#define BID128_FUNCTION_ARG1(fn_name, arg_name)\
|
|
UINT128 \
|
|
fn_name (UINT128 bid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM \
|
|
_EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
|
|
PROLOG_VAL(arg_name) \
|
|
OTHER_PROLOG_VAL()
|
|
|
|
#define BID128_FUNCTION_ARG1_NORND(fn_name, arg_name)\
|
|
UINT128 \
|
|
fn_name (UINT128 bid_##arg_name _EXC_FLAGS_PARAM \
|
|
_EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
|
|
PROLOG_VAL(arg_name) \
|
|
OTHER_PROLOG_VAL()
|
|
|
|
#define BID128_FUNCTION_ARG1_NORND_CUSTOMRESTYPE(restype, fn_name, arg_name)\
|
|
restype \
|
|
fn_name (UINT128 bid_##arg_name _EXC_FLAGS_PARAM \
|
|
_EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
|
|
PROLOG_VAL(arg_name) \
|
|
OTHER_PROLOG_VAL()
|
|
|
|
#define BID128_FUNCTION_ARG2(fn_name, arg_name1, arg_name2)\
|
|
UINT128 \
|
|
fn_name (UINT128 bid_##arg_name1, \
|
|
UINT128 bid_##arg_name2 _RND_MODE_PARAM _EXC_FLAGS_PARAM \
|
|
_EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
|
|
PROLOG_VAL(arg_name1) \
|
|
PROLOG_VAL(arg_name2) \
|
|
OTHER_PROLOG_VAL()
|
|
|
|
#define BID128_FUNCTION_ARG2_NORND_CUSTOMRESTYPE(restype, fn_name, arg_name1, arg_name2)\
|
|
restype \
|
|
fn_name (UINT128 bid_##arg_name1, \
|
|
UINT128 bid_##arg_name2 _EXC_FLAGS_PARAM \
|
|
_EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
|
|
PROLOG_VAL(arg_name1) \
|
|
PROLOG_VAL(arg_name2) \
|
|
OTHER_PROLOG_VAL()
|
|
|
|
#define BID128_FUNCTION_ARG128_ARGTYPE2(fn_name, arg_name1, type2, arg_name2)\
|
|
UINT128 \
|
|
fn_name (UINT128 bid_##arg_name1, \
|
|
type2 bid_##arg_name2 _RND_MODE_PARAM _EXC_FLAGS_PARAM \
|
|
_EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
|
|
PROLOG_VAL(arg_name1) \
|
|
PROLOG_TYPE_VAL(type2, arg_name2) \
|
|
OTHER_PROLOG_VAL()
|
|
|
|
#define TYPE0_FUNCTION_ARGTYPE1_ARGTYPE2(type0, fn_name, type1, arg_name1, type2, arg_name2)\
|
|
type0 \
|
|
fn_name (type1 bid_##arg_name1, \
|
|
type2 bid_##arg_name2 _RND_MODE_PARAM _EXC_FLAGS_PARAM \
|
|
_EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
|
|
PROLOG_TYPE_VAL(type1, arg_name1) \
|
|
PROLOG_TYPE_VAL(type2, arg_name2) \
|
|
OTHER_PROLOG_VAL()
|
|
|
|
#define BID128_FUNCTION_ARGTYPE1_ARG128(fn_name, type1, arg_name1, arg_name2)\
|
|
UINT128 \
|
|
fn_name (type1 bid_##arg_name1, \
|
|
UINT128 bid_##arg_name2 _RND_MODE_PARAM _EXC_FLAGS_PARAM \
|
|
_EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
|
|
PROLOG_TYPE_VAL(type1, arg_name1) \
|
|
PROLOG_VAL(arg_name2) \
|
|
OTHER_PROLOG_VAL()
|
|
|
|
#define TYPE0_FUNCTION_ARG128_ARGTYPE2(type0, fn_name, arg_name1, type2, arg_name2)\
|
|
type0 \
|
|
fn_name (UINT128 bid_##arg_name1, \
|
|
type2 bid_##arg_name2 _RND_MODE_PARAM _EXC_FLAGS_PARAM \
|
|
_EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
|
|
PROLOG_VAL(arg_name1) \
|
|
PROLOG_TYPE_VAL(type2, arg_name2) \
|
|
OTHER_PROLOG_VAL()
|
|
|
|
#define TYPE0_FUNCTION_ARGTYPE1_ARG128(type0, fn_name, type1, arg_name1, arg_name2)\
|
|
type0 \
|
|
fn_name (type1 bid_##arg_name1, \
|
|
UINT128 bid_##arg_name2 _RND_MODE_PARAM _EXC_FLAGS_PARAM \
|
|
_EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
|
|
PROLOG_TYPE_VAL(type1, arg_name1) \
|
|
PROLOG_VAL(arg_name2) \
|
|
OTHER_PROLOG_VAL()
|
|
|
|
#define TYPE0_FUNCTION_ARG128_ARG128(type0, fn_name, arg_name1, arg_name2)\
|
|
type0 \
|
|
fn_name (UINT128 bid_##arg_name1, \
|
|
UINT128 bid_##arg_name2 _RND_MODE_PARAM _EXC_FLAGS_PARAM \
|
|
_EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
|
|
PROLOG_VAL(arg_name1) \
|
|
PROLOG_VAL(arg_name2) \
|
|
OTHER_PROLOG_VAL()
|
|
|
|
#define TYPE0_FUNCTION_ARG1(type0, fn_name, arg_name)\
|
|
type0 \
|
|
fn_name (UINT128 bid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM \
|
|
_EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
|
|
PROLOG_VAL(arg_name) \
|
|
OTHER_PROLOG_VAL()
|
|
|
|
#define BID128_FUNCTION_ARGTYPE1(fn_name, type1, arg_name)\
|
|
UINT128 \
|
|
fn_name (type1 bid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM \
|
|
_EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
|
|
PROLOG_TYPE_VAL(type1, arg_name) \
|
|
OTHER_PROLOG_VAL()
|
|
|
|
#define TYPE0_FUNCTION_ARGTYPE1(type0, fn_name, type1, arg_name)\
|
|
type0 \
|
|
fn_name (type1 bid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM \
|
|
_EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
|
|
PROLOG_TYPE_VAL(type1, arg_name) \
|
|
OTHER_PROLOG_VAL()
|
|
|
|
#define TYPE0_FUNCTION_ARGTYPE1_NORND(type0, fn_name, type1, arg_name)\
|
|
type0 \
|
|
fn_name (type1 bid_##arg_name _EXC_FLAGS_PARAM \
|
|
_EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
|
|
PROLOG_TYPE_VAL(type1, arg_name) \
|
|
OTHER_PROLOG_VAL()
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#define BID_TO_SMALL_UINT_CVT_FUNCTION(type0, fn_name, type1, arg_name, cvt_fn_name, type2, size_mask, invalid_res)\
|
|
TYPE0_FUNCTION_ARGTYPE1_NORND(type0, fn_name, type1, arg_name)\
|
|
type2 res; \
|
|
_IDEC_flags saved_fpsc=*pfpsf; \
|
|
BIDECIMAL_CALL1_NORND(cvt_fn_name, res, arg_name); \
|
|
if(res & size_mask) { \
|
|
*pfpsf = saved_fpsc | INVALID_EXCEPTION; \
|
|
res = invalid_res; } \
|
|
BID_RETURN_VAL((type0)res); \
|
|
}
|
|
|
|
#define BID_TO_SMALL_INT_CVT_FUNCTION(type0, fn_name, type1, arg_name, cvt_fn_name, type2, size_mask, invalid_res)\
|
|
TYPE0_FUNCTION_ARGTYPE1_NORND(type0, fn_name, type1, arg_name)\
|
|
type2 res, sgn_mask; \
|
|
_IDEC_flags saved_fpsc=*pfpsf; \
|
|
BIDECIMAL_CALL1_NORND(cvt_fn_name, res, arg_name); \
|
|
sgn_mask = res & size_mask; \
|
|
if(sgn_mask && (sgn_mask != (type2)size_mask)) { \
|
|
*pfpsf = saved_fpsc | INVALID_EXCEPTION; \
|
|
res = invalid_res; } \
|
|
BID_RETURN_VAL((type0)res); \
|
|
}
|
|
#endif
|