OSDN Git Service

d93ab6a2a3e8cb9cb384dc298d44861d492e9110
[pf3gnuchains/gcc-fork.git] / libgcc / config / libbid / bid_conf.h
1 /* Copyright (C) 2007  Free Software Foundation, Inc.
2
3 This file is part of GCC.
4
5 GCC is free software; you can redistribute it and/or modify it under
6 the terms of the GNU General Public License as published by the Free
7 Software Foundation; either version 2, or (at your option) any later
8 version.
9
10 In addition to the permissions in the GNU General Public License, the
11 Free Software Foundation gives you unlimited permission to link the
12 compiled version of this file into combinations with other programs,
13 and to distribute those combinations without any restriction coming
14 from the use of this file.  (The General Public License restrictions
15 do apply in other respects; for example, they cover modification of
16 the file, and distribution when not linked into a combine
17 executable.)
18
19 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
20 WARRANTY; without even the implied warranty of MERCHANTABILITY or
21 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
22 for more details.
23
24 You should have received a copy of the GNU General Public License
25 along with GCC; see the file COPYING.  If not, write to the Free
26 Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
27 02110-1301, USA.  */
28
29 #ifndef _BID_CONF_H
30 #define _BID_CONF_H
31
32 // Name Changes
33
34 #define _IDEC_glbflags __bid_IDEC_glbflags
35 #define _IDEC_glbround __bid_IDEC_glbround
36 #define _IDEC_glbexcepthandling __bid_IDEC_glbexcepthandling
37 #define _IDEC_glbexceptionmasks __bid_IDEC_glbexceptionmasks
38 #define bid64_add __bid64_add
39 #define bid64_sub __bid64_sub
40 #define bid64_mul __bid64_mul
41 #define bid64_div __bid64_div
42 #define bid64dq_div __bid64dq_div
43 #define bid64qd_div __bid64qd_div
44 #define bid64qq_div __bid64qq_div
45 #define bid64q_sqrt __bid64q_sqrt
46 #define bid64_sqrt __bid64_sqrt
47 #define bid64_rem __bid64_rem
48 #define bid64_fma __bid64_fma
49 #define bid64_scalb __bid64_scalb
50 #define round128_19_38 __bid_round128_19_38
51 #define round192_39_57 __bid_round192_39_57
52 #define round256_58_76 __bid_round256_58_76
53 #define round64_2_18 __bid_round64_2_18
54 #define bid64_nextafter __bid64_nextafter
55 #define bid64_nextdown __bid64_nextdown
56 #define bid64_nextup __bid64_nextup
57 #define b2d __bid_b2d
58 #define b2d2 __bid_b2d2
59 #define b2d3 __bid_b2d3
60 #define b2d4 __bid_b2d4
61 #define b2d5 __bid_b2d5
62 #define bid128_canonize __bid128_canonize
63 #define bid32_canonize __bid32_canonize
64 #define bid64_canonize __bid64_canonize
65 #define bid_to_bid128 __bid_to_bid128
66 #define bid_to_bid32 __bid_to_bid32
67 #define bid_to_bid64 __bid_to_bid64
68 #define bid_to_dpd128 __bid_to_dpd128
69 #define bid_to_dpd32 __bid_to_dpd32
70 #define bid_to_dpd64 __bid_to_dpd64
71 #define d2b __bid_d2b
72 #define d2b2 __bid_d2b2
73 #define d2b3 __bid_d2b3
74 #define d2b4 __bid_d2b4
75 #define d2b5 __bid_d2b5
76 #define d2b6 __bid_d2b6
77 #define dpd_to_bid128 __bid_dpd_to_bid128
78 #define dpd_to_bid32 __bid_dpd_to_bid32
79 #define dpd_to_bid64 __bid_dpd_to_bid64
80 #define bid128_nextafter __bid128_nextafter
81 #define bid128_nextdown __bid128_nextdown
82 #define bid128_nextup __bid128_nextup
83 #define bid64_logb __bid64_logb
84 #define bid64_quantize __bid64_quantize
85 #define estimate_bin_expon __bid_estimate_bin_expon
86 #define estimate_decimal_digits __bid_estimate_decimal_digits
87 #define power10_index_binexp __bid_power10_index_binexp
88 #define power10_index_binexp_128 __bid_power10_index_binexp_128
89 #define power10_table_128 __bid_power10_table_128
90 #define reciprocals10_128 __bid_reciprocals10_128
91 #define reciprocals10_64 __bid_reciprocals10_64
92 #define recip_scale __bid_recip_scale
93 #define round_const_table __bid_round_const_table
94 #define round_const_table_128 __bid_round_const_table_128
95 #define short_recip_scale __bid_short_recip_scale
96 #define bid64_from_string __bid64_from_string
97 #define bid64_to_string __bid64_to_string
98 #define Inv_Tento9 __bid_Inv_Tento9
99 #define midi_tbl __bid_midi_tbl
100 #define Tento3 __bid_Tento3
101 #define Tento6 __bid_Tento6
102 #define Tento9 __bid_Tento9
103 #define Twoto30_m_10to9 __bid_Twoto30_m_10to9
104 #define Twoto60 __bid_Twoto60
105 #define Twoto60_m_10to18 __bid_Twoto60_m_10to18
106 #define convert_table __bid_convert_table
107 #define factors __bid_factors
108 #define packed_10000_zeros __bid_packed_10000_zeros
109 #define char_table2 __bid_char_table2
110 #define char_table3 __bid_char_table3
111 #define Ex128m128 __bid_Ex128m128
112 #define Ex192m192 __bid_Ex192m192
113 #define Ex256m256 __bid_Ex256m256
114 #define Ex64m64 __bid_Ex64m64
115 #define half128 __bid_half128
116 #define half192 __bid_half192
117 #define half256 __bid_half256
118 #define half64 __bid_half64
119 #define Kx128 __bid_Kx128
120 #define Kx192 __bid_Kx192
121 #define Kx256 __bid_Kx256
122 #define Kx64 __bid_Kx64
123 #define mask128 __bid_mask128
124 #define mask192 __bid_mask192
125 #define mask256 __bid_mask256
126 #define mask64 __bid_mask64
127 #define maskhigh128 __bid_maskhigh128
128 #define maskhigh128M __bid_maskhigh128M
129 #define maskhigh192M __bid_maskhigh192M
130 #define maskhigh256M __bid_maskhigh256M
131 #define midpoint128 __bid_midpoint128
132 #define midpoint192 __bid_midpoint192
133 #define midpoint256 __bid_midpoint256
134 #define midpoint64 __bid_midpoint64
135 #define nr_digits __bid_nr_digits
136 #define onehalf128 __bid_onehalf128
137 #define onehalf128M __bid_onehalf128M
138 #define onehalf192M __bid_onehalf192M
139 #define onehalf256M __bid_onehalf256M
140 #define shiftright128 __bid_shiftright128
141 #define shiftright128M __bid_shiftright128M
142 #define shiftright192M __bid_shiftright192M
143 #define shiftright256M __bid_shiftright256M
144 #define shift_ten2m3k128 __bid_shift_ten2m3k128
145 #define shift_ten2m3k64 __bid_shift_ten2m3k64
146 #define ten2k128 __bid_ten2k128
147 #define ten2k256 __bid_ten2k256
148 #define ten2k64 __bid_ten2k64
149 #define ten2m3k128 __bid_ten2m3k128
150 #define ten2m3k64 __bid_ten2m3k64
151 #define ten2mk128 __bid_ten2mk128
152 #define ten2mk128M __bid_ten2mk128M
153 #define ten2mk128trunc __bid_ten2mk128trunc
154 #define ten2mk128truncM __bid_ten2mk128truncM
155 #define ten2mk192M __bid_ten2mk192M
156 #define ten2mk192truncM __bid_ten2mk192truncM
157 #define ten2mk256M __bid_ten2mk256M
158 #define ten2mk256truncM __bid_ten2mk256truncM
159 #define ten2mk64 __bid_ten2mk64
160 #define ten2mxtrunc128 __bid_ten2mxtrunc128
161 #define ten2mxtrunc192 __bid_ten2mxtrunc192
162 #define ten2mxtrunc256 __bid_ten2mxtrunc256
163 #define ten2mxtrunc64 __bid_ten2mxtrunc64
164 #define bid128_add __bid128_add
165 #define bid128dd_add __bid128dd_add
166 #define bid128dd_sub __bid128dd_sub
167 #define bid128dq_add __bid128dq_add
168 #define bid128dq_sub __bid128dq_sub
169 #define bid128qd_add __bid128qd_add
170 #define bid128qd_sub __bid128qd_sub
171 #define bid128_sub __bid128_sub
172 #define bid64dq_add __bid64dq_add
173 #define bid64dq_sub __bid64dq_sub
174 #define bid64qd_add __bid64qd_add
175 #define bid64qd_sub __bid64qd_sub
176 #define bid64qq_add __bid64qq_add
177 #define bid64qq_sub __bid64qq_sub
178 #define bid128dd_mul __bid128dd_mul
179 #define bid128dq_mul __bid128dq_mul
180 #define bid128_mul __bid128_mul
181 #define bid128qd_mul __bid128qd_mul
182 #define bid64dq_mul __bid64dq_mul
183 #define bid64qd_mul __bid64qd_mul
184 #define bid64qq_mul __bid64qq_mul
185 #define bid128dd_div __bid128dd_div
186 #define bid128_div __bid128_div
187 #define bid128dq_div __bid128dq_div
188 #define bid128qd_div __bid128qd_div
189 #define bid128d_sqrt __bid128d_sqrt
190 #define bid128_sqrt __bid128_sqrt
191 #define bid128ddd_fma __bid128ddd_fma
192 #define bid128ddq_fma __bid128ddq_fma
193 #define bid128dqd_fma __bid128dqd_fma
194 #define bid128dqq_fma __bid128dqq_fma
195 #define bid128_fma __bid128_fma
196 #define bid128qdd_fma __bid128qdd_fma
197 #define bid128qdq_fma __bid128qdq_fma
198 #define bid128qqd_fma __bid128qqd_fma
199 #define bid64ddq_fma __bid64ddq_fma
200 #define bid64dqd_fma __bid64dqd_fma
201 #define bid64dqq_fma __bid64dqq_fma
202 #define bid64qdd_fma __bid64qdd_fma
203 #define bid64qdq_fma __bid64qdq_fma
204 #define bid64qqd_fma __bid64qqd_fma
205 #define bid64qqq_fma __bid64qqq_fma
206 #define bid128_round_integral_exact __bid128_round_integral_exact
207 #define bid128_round_integral_nearest_away __bid128_round_integral_nearest_away
208 #define bid128_round_integral_nearest_even __bid128_round_integral_nearest_even
209 #define bid128_round_integral_negative __bid128_round_integral_negative
210 #define bid128_round_integral_positive __bid128_round_integral_positive
211 #define bid128_round_integral_zero __bid128_round_integral_zero
212 #define bid64_round_integral_exact __bid64_round_integral_exact
213 #define bid64_round_integral_nearest_away __bid64_round_integral_nearest_away
214 #define bid64_round_integral_nearest_even __bid64_round_integral_nearest_even
215 #define bid64_round_integral_negative __bid64_round_integral_negative
216 #define bid64_round_integral_positive __bid64_round_integral_positive
217 #define bid64_round_integral_zero __bid64_round_integral_zero
218 #define bid128_quantize __bid128_quantize
219 #define bid128_scalb __bid128_scalb
220 #define bid64_maxnum __bid64_maxnum
221 #define bid64_maxnum_mag __bid64_maxnum_mag
222 #define bid64_minnum __bid64_minnum
223 #define bid64_minnum_mag __bid64_minnum_mag
224 #define bid128_maxnum __bid128_maxnum
225 #define bid128_maxnum_mag __bid128_maxnum_mag
226 #define bid128_minnum __bid128_minnum
227 #define bid128_minnum_mag __bid128_minnum_mag
228 #define bid128_rem __bid128_rem
229 #define bid128_logb __bid128_logb
230 #define getDecimalRoundingDirection __bid_getDecimalRoundingDirection
231 #define is754 __bid_is754
232 #define is754R __bid_is754R
233 #define signalException __bid_signalException
234 #define lowerFlags __bid_lowerFlags
235 #define restoreFlags __bid_restoreFlags
236 #define saveFlags __bid_saveFlags
237 #define setDecimalRoundingDirection __bid_setDecimalRoundingDirection
238 #define testFlags __bid_testFlags
239 #define testSavedFlags __bid_testSavedFlags
240 #define bid32_to_bid64 __bid32_to_bid64
241 #define bid64_to_bid32 __bid64_to_bid32
242 #define bid128_to_string __bid128_to_string
243 #define mod10_18_tbl __bid_mod10_18_tbl
244 #define bid128_to_bid32 __bid128_to_bid32
245 #define bid32_to_bid128 __bid32_to_bid128
246 #define bid128_to_bid64 __bid128_to_bid64
247 #define bid64_to_bid128 __bid64_to_bid128
248 #define bid128_from_string __bid128_from_string
249 #define bid128_from_int32 __bid128_from_int32
250 #define bid128_from_int64 __bid128_from_int64
251 #define bid128_from_uint32 __bid128_from_uint32
252 #define bid128_from_uint64 __bid128_from_uint64
253 #define bid64_from_int32 __bid64_from_int32
254 #define bid64_from_int64 __bid64_from_int64
255 #define bid64_from_uint32 __bid64_from_uint32
256 #define bid64_from_uint64 __bid64_from_uint64
257 #define bid64_abs __bid64_abs
258 #define bid64_class __bid64_class
259 #define bid64_copy __bid64_copy
260 #define bid64_copySign __bid64_copySign
261 #define bid64_isCanonical __bid64_isCanonical
262 #define bid64_isFinite __bid64_isFinite
263 #define bid64_isInf __bid64_isInf
264 #define bid64_isNaN __bid64_isNaN
265 #define bid64_isNormal __bid64_isNormal
266 #define bid64_isSignaling __bid64_isSignaling
267 #define bid64_isSigned __bid64_isSigned
268 #define bid64_isSubnormal __bid64_isSubnormal
269 #define bid64_isZero __bid64_isZero
270 #define bid64_negate __bid64_negate
271 #define bid64_radix __bid64_radix
272 #define bid64_sameQuantum __bid64_sameQuantum
273 #define bid64_totalOrder __bid64_totalOrder
274 #define bid64_totalOrderMag __bid64_totalOrderMag
275 #define bid128_abs __bid128_abs
276 #define bid128_class __bid128_class
277 #define bid128_copy __bid128_copy
278 #define bid128_copySign __bid128_copySign
279 #define bid128_isCanonical __bid128_isCanonical
280 #define bid128_isFinite __bid128_isFinite
281 #define bid128_isInf __bid128_isInf
282 #define bid128_isNaN __bid128_isNaN
283 #define bid128_isNormal __bid128_isNormal
284 #define bid128_isSignaling __bid128_isSignaling
285 #define bid128_isSigned __bid128_isSigned
286 #define bid128_isSubnormal __bid128_isSubnormal
287 #define bid128_isZero __bid128_isZero
288 #define bid128_negate __bid128_negate
289 #define bid128_radix __bid128_radix
290 #define bid128_sameQuantum __bid128_sameQuantum
291 #define bid128_totalOrder __bid128_totalOrder
292 #define bid128_totalOrderMag __bid128_totalOrderMag
293 #define bid64_quiet_equal __bid64_quiet_equal
294 #define bid64_quiet_greater __bid64_quiet_greater
295 #define bid64_quiet_greater_equal __bid64_quiet_greater_equal
296 #define bid64_quiet_greater_unordered __bid64_quiet_greater_unordered
297 #define bid64_quiet_less __bid64_quiet_less
298 #define bid64_quiet_less_equal __bid64_quiet_less_equal
299 #define bid64_quiet_less_unordered __bid64_quiet_less_unordered
300 #define bid64_quiet_not_equal __bid64_quiet_not_equal
301 #define bid64_quiet_not_greater __bid64_quiet_not_greater
302 #define bid64_quiet_not_less __bid64_quiet_not_less
303 #define bid64_quiet_ordered __bid64_quiet_ordered
304 #define bid64_quiet_unordered __bid64_quiet_unordered
305 #define bid64_signaling_greater __bid64_signaling_greater
306 #define bid64_signaling_greater_equal __bid64_signaling_greater_equal
307 #define bid64_signaling_greater_unordered __bid64_signaling_greater_unordered
308 #define bid64_signaling_less __bid64_signaling_less
309 #define bid64_signaling_less_equal __bid64_signaling_less_equal
310 #define bid64_signaling_less_unordered __bid64_signaling_less_unordered
311 #define bid64_signaling_not_greater __bid64_signaling_not_greater
312 #define bid64_signaling_not_less __bid64_signaling_not_less
313 #define bid128_quiet_equal __bid128_quiet_equal
314 #define bid128_quiet_greater __bid128_quiet_greater
315 #define bid128_quiet_greater_equal __bid128_quiet_greater_equal
316 #define bid128_quiet_greater_unordered __bid128_quiet_greater_unordered
317 #define bid128_quiet_less __bid128_quiet_less
318 #define bid128_quiet_less_equal __bid128_quiet_less_equal
319 #define bid128_quiet_less_unordered __bid128_quiet_less_unordered
320 #define bid128_quiet_not_equal __bid128_quiet_not_equal
321 #define bid128_quiet_not_greater __bid128_quiet_not_greater
322 #define bid128_quiet_not_less __bid128_quiet_not_less
323 #define bid128_quiet_ordered __bid128_quiet_ordered
324 #define bid128_quiet_unordered __bid128_quiet_unordered
325 #define bid128_signaling_greater __bid128_signaling_greater
326 #define bid128_signaling_greater_equal __bid128_signaling_greater_equal
327 #define bid128_signaling_greater_unordered __bid128_signaling_greater_unordered
328 #define bid128_signaling_less __bid128_signaling_less
329 #define bid128_signaling_less_equal __bid128_signaling_less_equal
330 #define bid128_signaling_less_unordered __bid128_signaling_less_unordered
331 #define bid128_signaling_not_greater __bid128_signaling_not_greater
332 #define bid128_signaling_not_less __bid128_signaling_not_less
333 #define bid64_to_int32_ceil __bid64_to_int32_ceil
334 #define bid64_to_int32_floor __bid64_to_int32_floor
335 #define bid64_to_int32_int __bid64_to_int32_int
336 #define bid64_to_int32_rnint __bid64_to_int32_rnint
337 #define bid64_to_int32_rninta __bid64_to_int32_rninta
338 #define bid64_to_int32_xceil __bid64_to_int32_xceil
339 #define bid64_to_int32_xfloor __bid64_to_int32_xfloor
340 #define bid64_to_int32_xint __bid64_to_int32_xint
341 #define bid64_to_int32_xrnint __bid64_to_int32_xrnint
342 #define bid64_to_int32_xrninta __bid64_to_int32_xrninta
343 #define bid64_to_uint32_ceil __bid64_to_uint32_ceil
344 #define bid64_to_uint32_floor __bid64_to_uint32_floor
345 #define bid64_to_uint32_int __bid64_to_uint32_int
346 #define bid64_to_uint32_rnint __bid64_to_uint32_rnint
347 #define bid64_to_uint32_rninta __bid64_to_uint32_rninta
348 #define bid64_to_uint32_xceil __bid64_to_uint32_xceil
349 #define bid64_to_uint32_xfloor __bid64_to_uint32_xfloor
350 #define bid64_to_uint32_xint __bid64_to_uint32_xint
351 #define bid64_to_uint32_xrnint __bid64_to_uint32_xrnint
352 #define bid64_to_uint32_xrninta __bid64_to_uint32_xrninta
353 #define bid64_to_int64_ceil __bid64_to_int64_ceil
354 #define bid64_to_int64_floor __bid64_to_int64_floor
355 #define bid64_to_int64_int __bid64_to_int64_int
356 #define bid64_to_int64_rnint __bid64_to_int64_rnint
357 #define bid64_to_int64_rninta __bid64_to_int64_rninta
358 #define bid64_to_int64_xceil __bid64_to_int64_xceil
359 #define bid64_to_int64_xfloor __bid64_to_int64_xfloor
360 #define bid64_to_int64_xint __bid64_to_int64_xint
361 #define bid64_to_int64_xrnint __bid64_to_int64_xrnint
362 #define bid64_to_int64_xrninta __bid64_to_int64_xrninta
363 #define bid64_to_uint64_ceil __bid64_to_uint64_ceil
364 #define bid64_to_uint64_floor __bid64_to_uint64_floor
365 #define bid64_to_uint64_int __bid64_to_uint64_int
366 #define bid64_to_uint64_rnint __bid64_to_uint64_rnint
367 #define bid64_to_uint64_rninta __bid64_to_uint64_rninta
368 #define bid64_to_uint64_xceil __bid64_to_uint64_xceil
369 #define bid64_to_uint64_xfloor __bid64_to_uint64_xfloor
370 #define bid64_to_uint64_xint __bid64_to_uint64_xint
371 #define bid64_to_uint64_xrnint __bid64_to_uint64_xrnint
372 #define bid64_to_uint64_xrninta __bid64_to_uint64_xrninta
373 #define bid128_to_int32_ceil __bid128_to_int32_ceil
374 #define bid128_to_int32_floor __bid128_to_int32_floor
375 #define bid128_to_int32_int __bid128_to_int32_int
376 #define bid128_to_int32_rnint __bid128_to_int32_rnint
377 #define bid128_to_int32_rninta __bid128_to_int32_rninta
378 #define bid128_to_int32_xceil __bid128_to_int32_xceil
379 #define bid128_to_int32_xfloor __bid128_to_int32_xfloor
380 #define bid128_to_int32_xint __bid128_to_int32_xint
381 #define bid128_to_int32_xrnint __bid128_to_int32_xrnint
382 #define bid128_to_int32_xrninta __bid128_to_int32_xrninta
383 #define bid128_to_uint32_ceil __bid128_to_uint32_ceil
384 #define bid128_to_uint32_floor __bid128_to_uint32_floor
385 #define bid128_to_uint32_int __bid128_to_uint32_int
386 #define bid128_to_uint32_rnint __bid128_to_uint32_rnint
387 #define bid128_to_uint32_rninta __bid128_to_uint32_rninta
388 #define bid128_to_uint32_xceil __bid128_to_uint32_xceil
389 #define bid128_to_uint32_xfloor __bid128_to_uint32_xfloor
390 #define bid128_to_uint32_xint __bid128_to_uint32_xint
391 #define bid128_to_uint32_xrnint __bid128_to_uint32_xrnint
392 #define bid128_to_uint32_xrninta __bid128_to_uint32_xrninta
393 #define bid128_to_int64_ceil __bid128_to_int64_ceil
394 #define bid128_to_int64_floor __bid128_to_int64_floor
395 #define bid128_to_int64_int __bid128_to_int64_int
396 #define bid128_to_int64_rnint __bid128_to_int64_rnint
397 #define bid128_to_int64_rninta __bid128_to_int64_rninta
398 #define bid128_to_int64_xceil __bid128_to_int64_xceil
399 #define bid128_to_int64_xfloor __bid128_to_int64_xfloor
400 #define bid128_to_int64_xint __bid128_to_int64_xint
401 #define bid128_to_int64_xrnint __bid128_to_int64_xrnint
402 #define bid128_to_int64_xrninta __bid128_to_int64_xrninta
403 #define bid128_to_uint64_ceil __bid128_to_uint64_ceil
404 #define bid128_to_uint64_floor __bid128_to_uint64_floor
405 #define bid128_to_uint64_int __bid128_to_uint64_int
406 #define bid128_to_uint64_rnint __bid128_to_uint64_rnint
407 #define bid128_to_uint64_rninta __bid128_to_uint64_rninta
408 #define bid128_to_uint64_xceil __bid128_to_uint64_xceil
409 #define bid128_to_uint64_xfloor __bid128_to_uint64_xfloor
410 #define bid128_to_uint64_xint __bid128_to_uint64_xint
411 #define bid128_to_uint64_xrnint __bid128_to_uint64_xrnint
412 #define bid128_to_uint64_xrninta __bid128_to_uint64_xrninta
413 #define bid128_to_binary128 __bid128_to_binary128
414 #define bid128_to_binary32 __bid128_to_binary32
415 #define bid128_to_binary64 __bid128_to_binary64
416 #define bid128_to_binary80 __bid128_to_binary80
417 #define bid32_to_binary128 __bid32_to_binary128
418 #define bid32_to_binary32 __bid32_to_binary32
419 #define bid32_to_binary64 __bid32_to_binary64
420 #define bid32_to_binary80 __bid32_to_binary80
421 #define bid64_to_binary128 __bid64_to_binary128
422 #define bid64_to_binary32 __bid64_to_binary32
423 #define bid64_to_binary64 __bid64_to_binary64
424 #define bid64_to_binary80 __bid64_to_binary80
425 #define binary128_to_bid128 __binary128_to_bid128
426 #define binary128_to_bid32 __binary128_to_bid32
427 #define binary128_to_bid64 __binary128_to_bid64
428 #define binary32_to_bid128 __binary32_to_bid128
429 #define binary32_to_bid32 __binary32_to_bid32
430 #define binary32_to_bid64 __binary32_to_bid64
431 #define binary64_to_bid128 __binary64_to_bid128
432 #define binary64_to_bid32 __binary64_to_bid32
433 #define binary64_to_bid64 __binary64_to_bid64
434 #define binary80_to_bid128 __binary80_to_bid128
435 #define binary80_to_bid32 __binary80_to_bid32
436 #define binary80_to_bid64 __binary80_to_bid64
437 #define bid64_to_uint16_ceil __bid64_to_uint16_ceil
438 #define bid64_to_uint16_floor __bid64_to_uint16_floor
439 #define bid64_to_uint16_int __bid64_to_uint16_int
440 #define bid64_to_uint16_rnint __bid64_to_uint16_rnint
441 #define bid64_to_uint16_rninta __bid64_to_uint16_rninta
442 #define bid64_to_uint16_xceil __bid64_to_uint16_xceil
443 #define bid64_to_uint16_xfloor __bid64_to_uint16_xfloor
444 #define bid64_to_uint16_xint __bid64_to_uint16_xint
445 #define bid64_to_uint16_xrnint __bid64_to_uint16_xrnint
446 #define bid64_to_uint16_xrninta __bid64_to_uint16_xrninta
447 #define bid64_to_int16_ceil __bid64_to_int16_ceil
448 #define bid64_to_int16_floor __bid64_to_int16_floor
449 #define bid64_to_int16_int __bid64_to_int16_int
450 #define bid64_to_int16_rnint __bid64_to_int16_rnint
451 #define bid64_to_int16_rninta __bid64_to_int16_rninta
452 #define bid64_to_int16_xceil __bid64_to_int16_xceil
453 #define bid64_to_int16_xfloor __bid64_to_int16_xfloor
454 #define bid64_to_int16_xint __bid64_to_int16_xint
455 #define bid64_to_int16_xrnint __bid64_to_int16_xrnint
456 #define bid64_to_int16_xrninta __bid64_to_int16_xrninta
457 #define bid128_to_uint16_ceil __bid128_to_uint16_ceil
458 #define bid128_to_uint16_floor __bid128_to_uint16_floor
459 #define bid128_to_uint16_int __bid128_to_uint16_int
460 #define bid128_to_uint16_rnint __bid128_to_uint16_rnint
461 #define bid128_to_uint16_rninta __bid128_to_uint16_rninta
462 #define bid128_to_uint16_xceil __bid128_to_uint16_xceil
463 #define bid128_to_uint16_xfloor __bid128_to_uint16_xfloor
464 #define bid128_to_uint16_xint __bid128_to_uint16_xint
465 #define bid128_to_uint16_xrnint __bid128_to_uint16_xrnint
466 #define bid128_to_uint16_xrninta __bid128_to_uint16_xrninta
467 #define bid128_to_int16_ceil __bid128_to_int16_ceil
468 #define bid128_to_int16_floor __bid128_to_int16_floor
469 #define bid128_to_int16_int __bid128_to_int16_int
470 #define bid128_to_int16_rnint __bid128_to_int16_rnint
471 #define bid128_to_int16_rninta __bid128_to_int16_rninta
472 #define bid128_to_int16_xceil __bid128_to_int16_xceil
473 #define bid128_to_int16_xfloor __bid128_to_int16_xfloor
474 #define bid128_to_int16_xint __bid128_to_int16_xint
475 #define bid128_to_int16_xrnint __bid128_to_int16_xrnint
476 #define bid128_to_int16_xrninta __bid128_to_int16_xrninta
477 #define bid64_to_uint8_ceil __bid64_to_uint8_ceil
478 #define bid64_to_uint8_floor __bid64_to_uint8_floor
479 #define bid64_to_uint8_int __bid64_to_uint8_int
480 #define bid64_to_uint8_rnint __bid64_to_uint8_rnint
481 #define bid64_to_uint8_rninta __bid64_to_uint8_rninta
482 #define bid64_to_uint8_xceil __bid64_to_uint8_xceil
483 #define bid64_to_uint8_xfloor __bid64_to_uint8_xfloor
484 #define bid64_to_uint8_xint __bid64_to_uint8_xint
485 #define bid64_to_uint8_xrnint __bid64_to_uint8_xrnint
486 #define bid64_to_uint8_xrninta __bid64_to_uint8_xrninta
487 #define bid64_to_int8_ceil __bid64_to_int8_ceil
488 #define bid64_to_int8_floor __bid64_to_int8_floor
489 #define bid64_to_int8_int __bid64_to_int8_int
490 #define bid64_to_int8_rnint __bid64_to_int8_rnint
491 #define bid64_to_int8_rninta __bid64_to_int8_rninta
492 #define bid64_to_int8_xceil __bid64_to_int8_xceil
493 #define bid64_to_int8_xfloor __bid64_to_int8_xfloor
494 #define bid64_to_int8_xint __bid64_to_int8_xint
495 #define bid64_to_int8_xrnint __bid64_to_int8_xrnint
496 #define bid64_to_int8_xrninta __bid64_to_int8_xrninta
497 #define bid128_to_uint8_ceil __bid128_to_uint8_ceil
498 #define bid128_to_uint8_floor __bid128_to_uint8_floor
499 #define bid128_to_uint8_int __bid128_to_uint8_int
500 #define bid128_to_uint8_rnint __bid128_to_uint8_rnint
501 #define bid128_to_uint8_rninta __bid128_to_uint8_rninta
502 #define bid128_to_uint8_xceil __bid128_to_uint8_xceil
503 #define bid128_to_uint8_xfloor __bid128_to_uint8_xfloor
504 #define bid128_to_uint8_xint __bid128_to_uint8_xint
505 #define bid128_to_uint8_xrnint __bid128_to_uint8_xrnint
506 #define bid128_to_uint8_xrninta __bid128_to_uint8_xrninta
507 #define bid128_to_int8_ceil __bid128_to_int8_ceil
508 #define bid128_to_int8_floor __bid128_to_int8_floor
509 #define bid128_to_int8_int __bid128_to_int8_int
510 #define bid128_to_int8_rnint __bid128_to_int8_rnint
511 #define bid128_to_int8_rninta __bid128_to_int8_rninta
512 #define bid128_to_int8_xceil __bid128_to_int8_xceil
513 #define bid128_to_int8_xfloor __bid128_to_int8_xfloor
514 #define bid128_to_int8_xint __bid128_to_int8_xint
515 #define bid128_to_int8_xrnint __bid128_to_int8_xrnint
516 #define bid128_to_int8_xrninta __bid128_to_int8_xrninta
517
518 #ifdef IN_LIBGCC2
519 #if !defined ENABLE_DECIMAL_BID_FORMAT || !ENABLE_DECIMAL_BID_FORMAT
520 #error BID not enabled in libbid
521 #endif
522
523 #ifndef BID_BIG_ENDIAN
524 #define BID_BIG_ENDIAN LIBGCC2_FLOAT_WORDS_BIG_ENDIAN
525 #endif
526
527 #ifndef BID_THREAD
528 #if defined (HAVE_CC_TLS) && defined (USE_TLS)
529 #define BID_THREAD __thread
530 #endif
531 #endif
532
533 #define _intptr_t_defined
534 #define DECIMAL_CALL_BY_REFERENCE 0
535 #define DECIMAL_GLOBAL_ROUNDING 1
536 #define DECIMAL_GLOBAL_ROUNDING_ACCESS_FUNCTIONS 1
537 #define DECIMAL_GLOBAL_EXCEPTION_FLAGS 1
538 #define DECIMAL_GLOBAL_EXCEPTION_FLAGS_ACCESS_FUNCTIONS 1
539 #define BID_HAS_GCC_DECIMAL_INTRINSICS 1
540 #endif /* IN_LIBGCC2 */
541
542 // Configuration Options
543
544 #define SET_STATUS_FLAGS
545
546 #ifndef BID_THREAD
547 #define BID_THREAD
548 #endif
549
550 #ifndef BID_HAS_GCC_DECIMAL_INTRINSICS
551 #define BID_HAS_GCC_DECIMAL_INTRINSICS 0
552 #endif
553
554 #if !defined(WINDOWS) || defined(__INTEL_COMPILER)
555 // #define UNCHANGED_BINARY_STATUS_FLAGS
556 #endif
557 // #define HPUX_OS
558
559 // If DECIMAL_CALL_BY_REFERENCE is defined then numerical arguments and results
560 // are passed by reference otherwise they are passed by value (except that
561 // a pointer is always passed to the status flags)
562
563 #ifndef DECIMAL_CALL_BY_REFERENCE
564 #define DECIMAL_CALL_BY_REFERENCE 0
565 #endif
566
567 // If DECIMAL_GLOBAL_ROUNDING is defined then the rounding mode is a global 
568 // variable _IDEC_glbround, otherwise it is passed as a parameter when needed
569
570 #ifndef DECIMAL_GLOBAL_ROUNDING
571 #define DECIMAL_GLOBAL_ROUNDING 0
572 #endif
573
574 #ifndef DECIMAL_GLOBAL_ROUNDING_ACCESS_FUNCTIONS
575 #define DECIMAL_GLOBAL_ROUNDING_ACCESS_FUNCTIONS 0
576 #endif
577
578 // If DECIMAL_GLOBAL_EXCEPTION_FLAGS is defined then the exception status flags
579 // are represented by a global variable _IDEC_glbflags, otherwise they are 
580 // passed as a parameter when needed
581
582 #ifndef DECIMAL_GLOBAL_EXCEPTION_FLAGS
583 #define DECIMAL_GLOBAL_EXCEPTION_FLAGS 0
584 #endif
585
586 #ifndef DECIMAL_GLOBAL_EXCEPTION_FLAGS_ACCESS_FUNCTIONS
587 #define DECIMAL_GLOBAL_EXCEPTION_FLAGS_ACCESS_FUNCTIONS 0
588 #endif
589
590 // If DECIMAL_ALTERNATE_EXCEPTION_HANDLING is defined then the exception masks
591 // are examined and exception handling information is provided to the caller 
592 // if alternate exception handling is necessary
593
594 #ifndef DECIMAL_ALTERNATE_EXCEPTION_HANDLING
595 #define DECIMAL_ALTERNATE_EXCEPTION_HANDLING 0
596 #endif
597
598 typedef unsigned int _IDEC_round;
599 typedef unsigned int _IDEC_flags;       // could be a struct with diagnostic info
600
601 #if DECIMAL_ALTERNATE_EXCEPTION_HANDLING
602   // If DECIMAL_GLOBAL_EXCEPTION_MASKS is defined then the exception mask bits
603   // are represented by a global variable _IDEC_exceptionmasks, otherwise they
604   // are passed as a parameter when needed; DECIMAL_GLOBAL_EXCEPTION_MASKS is 
605   // ignored
606   // if DECIMAL_ALTERNATE_EXCEPTION_HANDLING is not defined
607   // **************************************************************************
608 #define DECIMAL_GLOBAL_EXCEPTION_MASKS 0
609   // **************************************************************************
610
611   // If DECIMAL_GLOBAL_EXCEPTION_INFO is defined then the alternate exception  
612   // handling information is represented by a global data structure 
613   // _IDEC_glbexcepthandling, otherwise it is passed by reference as a
614   // parameter when needed; DECIMAL_GLOBAL_EXCEPTION_INFO is ignored
615   // if DECIMAL_ALTERNATE_EXCEPTION_HANDLING is not defined
616   // **************************************************************************
617 #define DECIMAL_GLOBAL_EXCEPTION_INFO 0
618   // **************************************************************************
619 #endif
620
621 // Notes: 1) rnd_mode from _RND_MODE_ARG is used by the caller of a function
622 //           from this library, and can be any name
623 //        2) rnd_mode and prnd_mode from _RND_MODE_PARAM are fixed names 
624 //           and *must* be used in the library functions
625 //        3) _IDEC_glbround is the fixed name for the global variable holding 
626 //           the rounding mode
627
628 #if !DECIMAL_GLOBAL_ROUNDING
629 #if DECIMAL_CALL_BY_REFERENCE
630 #define _RND_MODE_ARG , &rnd_mode
631 #define _RND_MODE_PARAM , _IDEC_round *prnd_mode
632 #define _RND_MODE_ARG_ALONE &rnd_mode
633 #define _RND_MODE_PARAM_ALONE _IDEC_round *prnd_mode
634 #else
635 #define _RND_MODE_ARG , rnd_mode
636 #define _RND_MODE_PARAM , _IDEC_round rnd_mode
637 #define _RND_MODE_ARG_ALONE rnd_mode
638 #define _RND_MODE_PARAM_ALONE _IDEC_round rnd_mode
639 #endif
640 #else
641 #define _RND_MODE_ARG
642 #define _RND_MODE_PARAM
643 #define _RND_MODE_ARG_ALONE
644 #define _RND_MODE_PARAM_ALONE
645 #define rnd_mode _IDEC_glbround
646 #endif
647
648 // Notes: 1) pfpsf from _EXC_FLAGS_ARG is used by the caller of a function
649 //           from this library, and can be any name 
650 //        2) pfpsf from _EXC_FLAGS_PARAM is a fixed name and *must* be used  
651 //           in the library functions
652 //        3) _IDEC_glbflags is the fixed name for the global variable holding 
653 //           the floating-point status flags
654 #if !DECIMAL_GLOBAL_EXCEPTION_FLAGS
655 #define _EXC_FLAGS_ARG , pfpsf
656 #define _EXC_FLAGS_PARAM , _IDEC_flags *pfpsf
657 #else
658 #define _EXC_FLAGS_ARG
659 #define _EXC_FLAGS_PARAM
660 #define pfpsf &_IDEC_glbflags
661 #endif
662
663 #if DECIMAL_GLOBAL_ROUNDING
664 extern BID_THREAD _IDEC_round _IDEC_glbround;
665 #endif
666
667 #if DECIMAL_GLOBAL_EXCEPTION_FLAGS
668 extern BID_THREAD _IDEC_flags _IDEC_glbflags;
669 #endif
670
671 #if DECIMAL_ALTERNATE_EXCEPTION_HANDLING
672 #if DECIMAL_GLOBAL_EXCEPTION_MASKS
673 extern BID_THREAD _IDEC_exceptionmasks _IDEC_glbexceptionmasks;
674 #endif
675 #if DECIMAL_GLOBAL_EXCEPTION_INFO
676 extern BID_THREAD _IDEC_excepthandling _IDEC_glbexcepthandling;
677 #endif
678 #endif
679
680 #if DECIMAL_ALTERNATE_EXCEPTION_HANDLING
681
682   // Notes: 1) exc_mask from _EXC_MASKS_ARG is used by the caller of a function
683   //           from this library, and can be any name
684   //        2) exc_mask and pexc_mask from _EXC_MASKS_PARAM are fixed names
685   //           and *must* be used in the library functions
686   //        3) _IDEC_glbexceptionmasks is the fixed name for the global 
687   //           variable holding the floating-point exception masks
688 #if !DECIMAL_GLOBAL_EXCEPTION_MASKS
689 #if DECIMAL_CALL_BY_REFERENCE
690 #define _EXC_MASKS_ARG , &exc_mask
691 #define _EXC_MASKS_PARAM , _IDEC_exceptionmasks *pexc_mask
692 #else
693 #define _EXC_MASKS_ARG , exc_mask
694 #define _EXC_MASKS_PARAM , _IDEC_exceptionmasks exc_mask
695 #endif
696 #else
697 #define _EXC_MASKS_ARG
698 #define _EXC_MASKS_PARAM
699 #define exc_mask _IDEC_glbexceptionmasks
700 #endif
701
702   // Notes: 1) pexc_info from _EXC_INFO_ARG is used by the caller of a function
703   //           from this library, and can be any name
704   //        2) pexc_info from _EXC_INFO_PARAM is a fixed name and *must* be  
705   //           used in the library functions
706   //        3) _IDEC_glbexcepthandling is the fixed name for the global  
707   //           variable holding the floating-point exception information
708 #if !DECIMAL_GLOBAL_EXCEPTION_INFO
709 #define _EXC_INFO_ARG , pexc_info
710 #define _EXC_INFO_PARAM , _IDEC_excepthandling *pexc_info
711 #else
712 #define _EXC_INFO_ARG
713 #define _EXC_INFO_PARAM
714 #define pexc_info &_IDEC_glbexcepthandling
715 #endif
716 #else
717 #define _EXC_MASKS_ARG
718 #define _EXC_MASKS_PARAM
719 #define _EXC_INFO_ARG
720 #define _EXC_INFO_PARAM
721 #endif
722
723
724 #ifndef BID_BIG_ENDIAN
725 #define BID_BIG_ENDIAN 0
726 #endif
727
728 #if BID_BIG_ENDIAN
729 #define BID_SWAP128(x) {  \
730   UINT64 sw;              \
731   sw = (x).w[1];          \
732   (x).w[1] = (x).w[0];    \
733   (x).w[0] = sw;          \
734   }
735 #else
736 #define BID_SWAP128(x)
737 #endif
738
739 #if DECIMAL_CALL_BY_REFERENCE
740 #define BID_RETURN_VAL(x) { *pres = (x); return; }
741 #if BID_BIG_ENDIAN && defined BID_128RES
742 #define BID_RETURN(x) { BID_SWAP128(x); *pres = (x); return; }
743 #else
744 #define BID_RETURN(x) { *pres = (x); return; }
745 #endif
746 #else
747 #define BID_RETURN_VAL(x) return(x);
748 #if BID_BIG_ENDIAN && defined BID_128RES
749 #define BID_RETURN(x) { BID_SWAP128(x); return(x); }
750 #else
751 #define BID_RETURN(x) return(x);
752 #endif
753 #endif
754
755 #if DECIMAL_CALL_BY_REFERENCE
756 #define BIDECIMAL_CALL1(_FUNC, _RES, _OP1) \
757     _FUNC(&(_RES), &(_OP1) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
758 #define BIDECIMAL_CALL1_NORND(_FUNC, _RES, _OP1) \
759     _FUNC(&(_RES), &(_OP1) _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
760 #define BIDECIMAL_CALL2(_FUNC, _RES, _OP1, _OP2) \
761     _FUNC(&(_RES), &(_OP1), &(_OP2) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
762 #define BIDECIMAL_CALL2_NORND(_FUNC, _RES, _OP1, _OP2) \
763     _FUNC(&(_RES), &(_OP1), &(_OP2) _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
764 #define BIDECIMAL_CALL1_NORND_RESREF(_FUNC, _RES, _OP1) \
765     _FUNC((_RES), &(_OP1) _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
766 #define BIDECIMAL_CALL1_RESARG(_FUNC, _RES, _OP1) \
767     _FUNC(&(_RES), (_OP1) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
768 #define BIDECIMAL_CALL1_RESREF(_FUNC, _RES, _OP1) \
769     _FUNC((_RES), &(_OP1) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
770 #define BIDECIMAL_CALL1_NORND_NOSTAT(_FUNC, _RES, _OP1) \
771     _FUNC(&(_RES), &(_OP1) _EXC_MASKS_ARG _EXC_INFO_ARG)
772 #define BIDECIMAL_CALL2_NORND_NOSTAT(_FUNC, _RES, _OP1, _OP2) \
773     _FUNC(&(_RES), &(_OP1), &(_OP2) _EXC_MASKS_ARG _EXC_INFO_ARG)
774 #define BIDECIMAL_CALL3(_FUNC, _RES, _OP1, _OP2, _OP3) \
775     _FUNC(&(_RES), &(_OP1), &(_OP2), &(_OP3) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
776 #define BIDECIMAL_CALL1_NORND_NOMASK_NOINFO(_FUNC, _RES, _OP1) \
777     _FUNC(&(_RES), &(_OP1) _EXC_FLAGS_ARG )
778 #define BIDECIMAL_CALL1_NORND_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES, _OP1) \
779     _FUNC(&(_RES), &(_OP1) )
780 #define BIDECIMAL_CALL2_NORND_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES, _OP1, _OP2) \
781     _FUNC(&(_RES), &(_OP1), &(_OP2) )
782 #define BIDECIMAL_CALL1_NORND_NOMASK_NOINFO_RESVOID(_FUNC, _OP1) \
783     _FUNC(&(_OP1) _EXC_FLAGS_ARG )
784 #define BIDECIMAL_CALL2_NORND_NOMASK_NOINFO_RESVOID(_FUNC, _OP1, _OP2) \
785     _FUNC(&(_OP1), &(_OP2) _EXC_FLAGS_ARG )
786 #define BIDECIMAL_CALLV_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES) \
787     _FUNC(&(_RES) _RND_MODE_ARG)
788 #define BIDECIMAL_CALL1_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES, _OP1) \
789     _FUNC(&(_OP1) _RND_MODE_ARG)
790 #else
791 #define BIDECIMAL_CALL1(_FUNC, _RES, _OP1) \
792     _RES = _FUNC((_OP1) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
793 #define BIDECIMAL_CALL1_NORND(_FUNC, _RES, _OP1) \
794     _RES = _FUNC((_OP1) _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
795 #define BIDECIMAL_CALL2(_FUNC, _RES, _OP1, _OP2) \
796     _RES = _FUNC((_OP1), (_OP2) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
797 #define BIDECIMAL_CALL2_NORND(_FUNC, _RES, _OP1, _OP2) \
798     _RES = _FUNC((_OP1), (_OP2) _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
799 #define BIDECIMAL_CALL1_NORND_RESREF(_FUNC, _RES, _OP1) \
800     _FUNC((_RES), _OP1 _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
801 #define BIDECIMAL_CALL1_RESARG(_FUNC, _RES, _OP1) \
802     _RES = _FUNC((_OP1) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
803 #define BIDECIMAL_CALL1_RESREF(_FUNC, _RES, _OP1) \
804     _FUNC((_RES), _OP1 _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
805 #define BIDECIMAL_CALL1_NORND_NOSTAT(_FUNC, _RES, _OP1) \
806     _RES = _FUNC((_OP1) _EXC_MASKS_ARG _EXC_INFO_ARG)
807 #define BIDECIMAL_CALL2_NORND_NOSTAT(_FUNC, _RES, _OP1, _OP2) \
808     _RES = _FUNC((_OP1), (_OP2) _EXC_MASKS_ARG _EXC_INFO_ARG)
809 #define BIDECIMAL_CALL3(_FUNC, _RES, _OP1, _OP2, _OP3) \
810     _RES = _FUNC((_OP1), (_OP2), (_OP3) _RND_MODE_ARG _EXC_FLAGS_ARG _EXC_MASKS_ARG _EXC_INFO_ARG)
811 #define BIDECIMAL_CALL1_NORND_NOMASK_NOINFO(_FUNC, _RES, _OP1) \
812     _RES = _FUNC((_OP1) _EXC_FLAGS_ARG)
813 #define BIDECIMAL_CALL1_NORND_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES, _OP1) \
814     _RES = _FUNC((_OP1) )
815 #define BIDECIMAL_CALL2_NORND_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES, _OP1, _OP2) \
816     _RES = _FUNC((_OP1), (_OP2) )
817 #define BIDECIMAL_CALL1_NORND_NOMASK_NOINFO_RESVOID(_FUNC, _OP1) \
818     _FUNC((_OP1) _EXC_FLAGS_ARG)
819 #define BIDECIMAL_CALL2_NORND_NOMASK_NOINFO_RESVOID(_FUNC, _OP1, _OP2) \
820     _FUNC((_OP1), (_OP2) _EXC_FLAGS_ARG)
821 #define BIDECIMAL_CALLV_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES) \
822     _RES = _FUNC(_RND_MODE_ARG_ALONE)
823 #if !DECIMAL_GLOBAL_ROUNDING
824 #define BIDECIMAL_CALL1_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES, _OP1) \
825     _RES = _FUNC((_OP1) _RND_MODE_ARG)
826 #else
827 #define BIDECIMAL_CALL1_NOFLAGS_NOMASK_NOINFO(_FUNC, _RES, _OP1) \
828     _FUNC((_OP1) _RND_MODE_ARG)
829 #endif
830 #endif
831
832 #if BID_BIG_ENDIAN
833 #define HIGH_128W 0
834 #define LOW_128W  1
835 #else
836 #define HIGH_128W 1
837 #define LOW_128W  0
838 #endif
839
840 #if BID_BIG_ENDIAN
841 #define COPY_ARG_REF(arg_name) \
842        UINT128 arg_name={ pbid_##arg_name->w[1], pbid_##arg_name->w[0]};
843 #define COPY_ARG_VAL(arg_name) \
844        UINT128 arg_name={ bid_##arg_name.w[1], bid_##arg_name.w[0]};
845 #else
846 #define COPY_ARG_REF(arg_name) \
847        UINT128 arg_name=*pbid_##arg_name;
848 #define COPY_ARG_VAL(arg_name) \
849        UINT128 arg_name= bid_##arg_name;
850 #endif
851
852 #define COPY_ARG_TYPE_REF(type, arg_name) \
853        type arg_name=*pbid_##arg_name;
854 #define COPY_ARG_TYPE_VAL(type, arg_name) \
855        type arg_name= bid_##arg_name;
856
857 #if !DECIMAL_GLOBAL_ROUNDING
858 #define SET_RND_MODE() \
859   _IDEC_round rnd_mode = *prnd_mode;
860 #else
861 #define SET_RND_MODE()
862 #endif
863
864 #define PROLOG_REF(arg_name) \
865        COPY_ARG_REF(arg_name)
866
867 #define PROLOG_VAL(arg_name) \
868        COPY_ARG_VAL(arg_name)
869
870 #define PROLOG_TYPE_REF(type, arg_name) \
871        COPY_ARG_TYPE_REF(type, arg_name)
872
873 #define PROLOG_TYPE_VAL(type, arg_name) \
874       COPY_ARG_TYPE_VAL(type, arg_name)
875
876 #define OTHER_PROLOG_REF()
877 #define OTHER_PROLOG_VAL()
878
879 #if DECIMAL_CALL_BY_REFERENCE
880 #define       BID128_FUNCTION_ARG1(fn_name, arg_name)\
881       void fn_name (UINT128 * pres, \
882            UINT128 *  \
883            pbid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
884            _EXC_INFO_PARAM) {\
885      PROLOG_REF(arg_name)   \
886      SET_RND_MODE()         \
887      OTHER_PROLOG_REF()
888
889 #define       BID128_FUNCTION_ARG1_NORND(fn_name, arg_name)\
890       void fn_name (UINT128 * pres, \
891            UINT128 *  \
892            pbid_##arg_name _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
893            _EXC_INFO_PARAM) {\
894      PROLOG_REF(arg_name)   \
895      OTHER_PROLOG_REF()
896
897 #define       BID128_FUNCTION_ARG1_NORND_CUSTOMRESTYPE(restype, fn_name, arg_name)\
898       void fn_name (restype * pres, \
899            UINT128 *  \
900            pbid_##arg_name _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
901            _EXC_INFO_PARAM) {\
902      PROLOG_REF(arg_name)   \
903      OTHER_PROLOG_REF()
904
905 #define       BID128_FUNCTION_ARG2(fn_name, arg_name1, arg_name2)\
906       void fn_name (UINT128 * pres, \
907            UINT128 *pbid_##arg_name1,  UINT128 *pbid_##arg_name2  \
908            _RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
909            _EXC_INFO_PARAM) {\
910      PROLOG_REF(arg_name1)   \
911      PROLOG_REF(arg_name2)   \
912      SET_RND_MODE()         \
913      OTHER_PROLOG_REF()
914
915 #define       BID128_FUNCTION_ARG2_NORND_CUSTOMRESTYPE(restype, fn_name, arg_name1, arg_name2)\
916       void fn_name (restype * pres, \
917            UINT128 *pbid_##arg_name1,  UINT128 *pbid_##arg_name2  \
918            _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
919            _EXC_INFO_PARAM) {\
920      PROLOG_REF(arg_name1)   \
921      PROLOG_REF(arg_name2)   \
922      OTHER_PROLOG_REF()
923
924 #define       BID128_FUNCTION_ARG128_ARGTYPE2(fn_name, arg_name1, type2, arg_name2)\
925       void fn_name (UINT128 * pres, \
926            UINT128 *pbid_##arg_name1,  type2 *pbid_##arg_name2  \
927            _RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
928            _EXC_INFO_PARAM) {\
929      PROLOG_REF(arg_name1)   \
930      PROLOG_TYPE_REF(type2, arg_name2)   \
931      SET_RND_MODE()         \
932      OTHER_PROLOG_REF()
933
934 #define       TYPE0_FUNCTION_ARGTYPE1_ARGTYPE2(type0, fn_name, type1, arg_name1, type2, arg_name2)\
935       void fn_name (type0 *pres, \
936            type1 *pbid_##arg_name1,  type2 *pbid_##arg_name2  \
937            _RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
938            _EXC_INFO_PARAM) {\
939      PROLOG_TYPE_REF(type1, arg_name1)   \
940      PROLOG_TYPE_REF(type2, arg_name2)   \
941      SET_RND_MODE()         \
942      OTHER_PROLOG_REF()
943
944 #define       BID128_FUNCTION_ARGTYPE1_ARG128(fn_name, type1, arg_name1, arg_name2)\
945       void fn_name (UINT128 * pres, \
946            type1 *pbid_##arg_name1,  UINT128 *pbid_##arg_name2  \
947            _RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
948            _EXC_INFO_PARAM) {\
949      PROLOG_TYPE_REF(type1, arg_name1)   \
950      PROLOG_REF(arg_name2)   \
951      SET_RND_MODE()         \
952      OTHER_PROLOG_REF()
953
954 #define       TYPE0_FUNCTION_ARG128_ARGTYPE2(type0, fn_name, arg_name1, type2, arg_name2)\
955       void fn_name (type0 *pres, \
956            UINT128 *pbid_##arg_name1,  type2 *pbid_##arg_name2  \
957            _RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
958            _EXC_INFO_PARAM) {\
959      PROLOG_REF(arg_name1)   \
960      PROLOG_TYPE_REF(type2, arg_name2)   \
961      SET_RND_MODE()         \
962      OTHER_PROLOG_REF()
963
964 #define       TYPE0_FUNCTION_ARGTYPE1_ARG128(type0, fn_name, type1, arg_name1, arg_name2)\
965       void fn_name (type0 *pres, \
966            type1 *pbid_##arg_name1,  UINT128 *pbid_##arg_name2  \
967            _RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
968            _EXC_INFO_PARAM) {\
969      PROLOG_TYPE_REF(type1, arg_name1)   \
970      PROLOG_REF(arg_name2)   \
971      SET_RND_MODE()         \
972      OTHER_PROLOG_REF()
973
974 #define       TYPE0_FUNCTION_ARG128_ARG128(type0, fn_name, arg_name1, arg_name2)\
975       void fn_name (type0 * pres, \
976            UINT128 *pbid_##arg_name1,  UINT128 *pbid_##arg_name2  \
977            _RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
978            _EXC_INFO_PARAM) {\
979      PROLOG_REF(arg_name1)   \
980      PROLOG_REF(arg_name2)   \
981      SET_RND_MODE()         \
982      OTHER_PROLOG_REF()
983
984 #define       TYPE0_FUNCTION_ARG1(type0, fn_name, arg_name)\
985       void fn_name (type0 * pres, \
986            UINT128 *  \
987            pbid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
988            _EXC_INFO_PARAM) {\
989      PROLOG_REF(arg_name)   \
990      SET_RND_MODE()         \
991      OTHER_PROLOG_REF()
992
993 #define       BID128_FUNCTION_ARGTYPE1(fn_name, type1, arg_name)\
994       void fn_name (UINT128 * pres, \
995            type1 *  \
996            pbid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
997            _EXC_INFO_PARAM) {\
998      PROLOG_TYPE_REF(type1, arg_name)   \
999      SET_RND_MODE()         \
1000      OTHER_PROLOG_REF()
1001
1002 #define       TYPE0_FUNCTION_ARGTYPE1(type0, fn_name, type1, arg_name)\
1003       void fn_name (type0 * pres, \
1004            type1 *  \
1005            pbid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
1006            _EXC_INFO_PARAM) {\
1007      PROLOG_TYPE_REF(type1, arg_name)   \
1008      SET_RND_MODE()         \
1009      OTHER_PROLOG_REF()
1010
1011 #define       TYPE0_FUNCTION_ARGTYPE1_NORND(type0, fn_name, type1, arg_name)\
1012       void fn_name (type0 * pres, \
1013            type1 *  \
1014            pbid_##arg_name _EXC_FLAGS_PARAM _EXC_MASKS_PARAM \
1015            _EXC_INFO_PARAM) {\
1016      PROLOG_TYPE_REF(type1, arg_name)   \
1017      OTHER_PROLOG_REF()
1018
1019 //////////////////////////////////////////
1020 /////////////////////////////////////////
1021 ////////////////////////////////////////
1022
1023 #else
1024
1025 //////////////////////////////////////////
1026 /////////////////////////////////////////
1027 ////////////////////////////////////////
1028
1029 #define       BID128_FUNCTION_ARG1(fn_name, arg_name)\
1030      UINT128                                     \
1031      fn_name (UINT128 bid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM  \
1032            _EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
1033      PROLOG_VAL(arg_name)                      \
1034      OTHER_PROLOG_VAL()
1035
1036 #define       BID128_FUNCTION_ARG1_NORND(fn_name, arg_name)\
1037      UINT128                                     \
1038      fn_name (UINT128 bid_##arg_name _EXC_FLAGS_PARAM  \
1039            _EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
1040      PROLOG_VAL(arg_name)                      \
1041      OTHER_PROLOG_VAL()
1042
1043 #define       BID128_FUNCTION_ARG1_NORND_CUSTOMRESTYPE(restype, fn_name, arg_name)\
1044      restype                                     \
1045      fn_name (UINT128 bid_##arg_name _EXC_FLAGS_PARAM  \
1046            _EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
1047      PROLOG_VAL(arg_name)                      \
1048      OTHER_PROLOG_VAL()
1049
1050 #define       BID128_FUNCTION_ARG2(fn_name, arg_name1, arg_name2)\
1051      UINT128                                     \
1052      fn_name (UINT128 bid_##arg_name1,      \
1053             UINT128 bid_##arg_name2 _RND_MODE_PARAM _EXC_FLAGS_PARAM  \
1054            _EXC_MASKS_PARAM _EXC_INFO_PARAM) {  \
1055      PROLOG_VAL(arg_name1)                      \
1056      PROLOG_VAL(arg_name2)                      \
1057      OTHER_PROLOG_VAL()
1058
1059 #define       BID128_FUNCTION_ARG2_NORND_CUSTOMRESTYPE(restype, fn_name, arg_name1, arg_name2)\
1060      restype                                    \
1061      fn_name (UINT128 bid_##arg_name1,      \
1062             UINT128 bid_##arg_name2 _EXC_FLAGS_PARAM  \
1063            _EXC_MASKS_PARAM _EXC_INFO_PARAM) {  \
1064      PROLOG_VAL(arg_name1)                      \
1065      PROLOG_VAL(arg_name2)                      \
1066      OTHER_PROLOG_VAL()
1067
1068 #define       BID128_FUNCTION_ARG128_ARGTYPE2(fn_name, arg_name1, type2, arg_name2)\
1069      UINT128                                     \
1070      fn_name (UINT128 bid_##arg_name1,      \
1071             type2 bid_##arg_name2 _RND_MODE_PARAM _EXC_FLAGS_PARAM  \
1072            _EXC_MASKS_PARAM _EXC_INFO_PARAM) {  \
1073      PROLOG_VAL(arg_name1)                      \
1074      PROLOG_TYPE_VAL(type2, arg_name2)          \
1075      OTHER_PROLOG_VAL()
1076
1077 #define       TYPE0_FUNCTION_ARGTYPE1_ARGTYPE2(type0, fn_name, type1, arg_name1, type2, arg_name2)\
1078      type0                                     \
1079      fn_name (type1 bid_##arg_name1,      \
1080             type2 bid_##arg_name2 _RND_MODE_PARAM _EXC_FLAGS_PARAM  \
1081            _EXC_MASKS_PARAM _EXC_INFO_PARAM) {  \
1082      PROLOG_TYPE_VAL(type1, arg_name1)                      \
1083      PROLOG_TYPE_VAL(type2, arg_name2)          \
1084      OTHER_PROLOG_VAL()
1085
1086 #define       BID128_FUNCTION_ARGTYPE1_ARG128(fn_name, type1, arg_name1, arg_name2)\
1087      UINT128                                     \
1088      fn_name (type1 bid_##arg_name1,      \
1089             UINT128 bid_##arg_name2 _RND_MODE_PARAM _EXC_FLAGS_PARAM  \
1090            _EXC_MASKS_PARAM _EXC_INFO_PARAM) {  \
1091      PROLOG_TYPE_VAL(type1, arg_name1)          \
1092      PROLOG_VAL(arg_name2)                      \
1093      OTHER_PROLOG_VAL()
1094
1095 #define       TYPE0_FUNCTION_ARG128_ARGTYPE2(type0, fn_name, arg_name1, type2, arg_name2)\
1096      type0                                     \
1097      fn_name (UINT128 bid_##arg_name1,      \
1098             type2 bid_##arg_name2 _RND_MODE_PARAM _EXC_FLAGS_PARAM  \
1099            _EXC_MASKS_PARAM _EXC_INFO_PARAM) {  \
1100      PROLOG_VAL(arg_name1)                      \
1101      PROLOG_TYPE_VAL(type2, arg_name2)          \
1102      OTHER_PROLOG_VAL()
1103
1104 #define       TYPE0_FUNCTION_ARGTYPE1_ARG128(type0, fn_name, type1, arg_name1, arg_name2)\
1105      type0                                     \
1106      fn_name (type1 bid_##arg_name1,      \
1107             UINT128 bid_##arg_name2 _RND_MODE_PARAM _EXC_FLAGS_PARAM  \
1108            _EXC_MASKS_PARAM _EXC_INFO_PARAM) {  \
1109      PROLOG_TYPE_VAL(type1, arg_name1)                      \
1110      PROLOG_VAL(arg_name2)          \
1111      OTHER_PROLOG_VAL()
1112
1113 #define       TYPE0_FUNCTION_ARG128_ARG128(type0, fn_name, arg_name1, arg_name2)\
1114      type0                                     \
1115      fn_name (UINT128 bid_##arg_name1,      \
1116             UINT128 bid_##arg_name2 _RND_MODE_PARAM _EXC_FLAGS_PARAM  \
1117            _EXC_MASKS_PARAM _EXC_INFO_PARAM) {  \
1118      PROLOG_VAL(arg_name1)                      \
1119      PROLOG_VAL(arg_name2)                      \
1120      OTHER_PROLOG_VAL()
1121
1122 #define       TYPE0_FUNCTION_ARG1(type0, fn_name, arg_name)\
1123      type0                                     \
1124      fn_name (UINT128 bid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM  \
1125            _EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
1126      PROLOG_VAL(arg_name)                      \
1127      OTHER_PROLOG_VAL()
1128
1129 #define       BID128_FUNCTION_ARGTYPE1(fn_name, type1, arg_name)\
1130      UINT128                                     \
1131      fn_name (type1 bid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM  \
1132            _EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
1133      PROLOG_TYPE_VAL(type1, arg_name)                      \
1134      OTHER_PROLOG_VAL()
1135
1136 #define       TYPE0_FUNCTION_ARGTYPE1(type0, fn_name, type1, arg_name)\
1137      type0                                     \
1138      fn_name (type1 bid_##arg_name _RND_MODE_PARAM _EXC_FLAGS_PARAM  \
1139            _EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
1140      PROLOG_TYPE_VAL(type1, arg_name)                      \
1141      OTHER_PROLOG_VAL()
1142
1143 #define       TYPE0_FUNCTION_ARGTYPE1_NORND(type0, fn_name, type1, arg_name)\
1144      type0                                     \
1145      fn_name (type1 bid_##arg_name _EXC_FLAGS_PARAM  \
1146            _EXC_MASKS_PARAM _EXC_INFO_PARAM) { \
1147      PROLOG_TYPE_VAL(type1, arg_name)                      \
1148      OTHER_PROLOG_VAL()
1149
1150 #endif
1151
1152
1153
1154 #define   BID_TO_SMALL_UINT_CVT_FUNCTION(type0, fn_name, type1, arg_name, cvt_fn_name, type2, size_mask, invalid_res)\
1155     TYPE0_FUNCTION_ARGTYPE1_NORND(type0, fn_name, type1, arg_name)\
1156         type2 res;                                                    \
1157         _IDEC_flags saved_fpsc=*pfpsf;                                \
1158     BIDECIMAL_CALL1_NORND(cvt_fn_name, res, arg_name);            \
1159         if(res & size_mask) {                                         \
1160       *pfpsf = saved_fpsc | INVALID_EXCEPTION;                    \
1161           res = invalid_res; }                                        \
1162     BID_RETURN_VAL((type0)res);                                   \
1163                    }
1164
1165 #define   BID_TO_SMALL_INT_CVT_FUNCTION(type0, fn_name, type1, arg_name, cvt_fn_name, type2, size_mask, invalid_res)\
1166     TYPE0_FUNCTION_ARGTYPE1_NORND(type0, fn_name, type1, arg_name)\
1167         type2 res, sgn_mask;                                          \
1168         _IDEC_flags saved_fpsc=*pfpsf;                                \
1169     BIDECIMAL_CALL1_NORND(cvt_fn_name, res, arg_name);            \
1170         sgn_mask = res & size_mask;                                   \
1171         if(sgn_mask && (sgn_mask != (type2)size_mask)) {                     \
1172       *pfpsf = saved_fpsc | INVALID_EXCEPTION;                    \
1173           res = invalid_res; }                                        \
1174     BID_RETURN_VAL((type0)res);                                   \
1175                    }
1176 #endif