0
|
1 /* Header file for dfp-bit.c.
|
|
2 Copyright (C) 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
|
|
3
|
|
4 This file is part of GCC.
|
|
5
|
|
6 GCC is free software; you can redistribute it and/or modify it under
|
|
7 the terms of the GNU General Public License as published by the Free
|
|
8 Software Foundation; either version 3, or (at your option) any later
|
|
9 version.
|
|
10
|
|
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
14 for more details.
|
|
15
|
|
16 Under Section 7 of GPL version 3, you are granted additional
|
|
17 permissions described in the GCC Runtime Library Exception, version
|
|
18 3.1, as published by the Free Software Foundation.
|
|
19
|
|
20 You should have received a copy of the GNU General Public License and
|
|
21 a copy of the GCC Runtime Library Exception along with this program;
|
|
22 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
|
|
23 <http://www.gnu.org/licenses/>. */
|
|
24
|
|
25 #ifndef _DFPBIT_H
|
|
26 #define _DFPBIT_H
|
|
27
|
|
28 #include <float.h>
|
|
29 #include <fenv.h>
|
|
30 #include <decRound.h>
|
|
31 #include <decExcept.h>
|
|
32 #include "tconfig.h"
|
|
33 #include "coretypes.h"
|
|
34 #include "tm.h"
|
|
35
|
|
36 #ifndef LIBGCC2_WORDS_BIG_ENDIAN
|
|
37 #define LIBGCC2_WORDS_BIG_ENDIAN WORDS_BIG_ENDIAN
|
|
38 #endif
|
|
39
|
|
40 #ifndef LIBGCC2_FLOAT_WORDS_BIG_ENDIAN
|
|
41 #define LIBGCC2_FLOAT_WORDS_BIG_ENDIAN LIBGCC2_WORDS_BIG_ENDIAN
|
|
42 #endif
|
|
43
|
|
44 #ifndef LIBGCC2_LONG_DOUBLE_TYPE_SIZE
|
|
45 #define LIBGCC2_LONG_DOUBLE_TYPE_SIZE LONG_DOUBLE_TYPE_SIZE
|
|
46 #endif
|
|
47
|
|
48 /* We need to know the size of long double that the C library supports.
|
|
49 Don't use LIBGCC2_HAS_XF_MODE or LIBGCC2_HAS_TF_MODE here because
|
|
50 some targets set both of those. */
|
|
51
|
|
52 #define LONG_DOUBLE_HAS_XF_MODE \
|
|
53 (BITS_PER_UNIT == 8 && LIBGCC2_LONG_DOUBLE_TYPE_SIZE == 80)
|
|
54
|
|
55 #define LONG_DOUBLE_HAS_TF_MODE \
|
|
56 (BITS_PER_UNIT == 8 && LIBGCC2_LONG_DOUBLE_TYPE_SIZE == 128)
|
|
57
|
|
58 /* Depending on WIDTH, define a number of macros:
|
|
59
|
|
60 DFP_C_TYPE: type of the arguments to the libgcc functions;
|
|
61 (eg _Decimal32)
|
|
62
|
|
63 IEEE_TYPE: the corresponding (encoded) IEEE754 type;
|
|
64 (eg decimal32)
|
|
65
|
|
66 TO_INTERNAL: the name of the decNumber function to convert an
|
|
67 encoded value into the decNumber internal representation;
|
|
68
|
|
69 TO_ENCODED: the name of the decNumber function to convert an
|
|
70 internally represented decNumber into the encoded
|
|
71 representation.
|
|
72
|
|
73 FROM_STRING: the name of the decNumber function to read an
|
|
74 encoded value from a string.
|
|
75
|
|
76 TO_STRING: the name of the decNumber function to write an
|
|
77 encoded value to a string. */
|
|
78
|
|
79 #if WIDTH == 32
|
|
80 #define DFP_C_TYPE _Decimal32
|
|
81 #define IEEE_TYPE decimal32
|
|
82 #define HOST_TO_IEEE __host_to_ieee_32
|
|
83 #define IEEE_TO_HOST __ieee_to_host_32
|
|
84 #define TO_INTERNAL __decimal32ToNumber
|
|
85 #define TO_ENCODED __decimal32FromNumber
|
|
86 #define FROM_STRING __decimal32FromString
|
|
87 #define TO_STRING __decimal32ToString
|
|
88 #elif WIDTH == 64
|
|
89 #define DFP_C_TYPE _Decimal64
|
|
90 #define IEEE_TYPE decimal64
|
|
91 #define HOST_TO_IEEE __host_to_ieee_64
|
|
92 #define IEEE_TO_HOST __ieee_to_host_64
|
|
93 #define TO_INTERNAL __decimal64ToNumber
|
|
94 #define TO_ENCODED __decimal64FromNumber
|
|
95 #define FROM_STRING __decimal64FromString
|
|
96 #define TO_STRING __decimal64ToString
|
|
97 #elif WIDTH == 128
|
|
98 #define DFP_C_TYPE _Decimal128
|
|
99 #define IEEE_TYPE decimal128
|
|
100 #define HOST_TO_IEEE __host_to_ieee_128
|
|
101 #define IEEE_TO_HOST __ieee_to_host_128
|
|
102 #define TO_INTERNAL __decimal128ToNumber
|
|
103 #define TO_ENCODED __decimal128FromNumber
|
|
104 #define FROM_STRING __decimal128FromString
|
|
105 #define TO_STRING __decimal128ToString
|
|
106 #else
|
|
107 #error invalid decimal float word width
|
|
108 #endif
|
|
109
|
|
110 /* We define __DEC_EVAL_METHOD__ to 2, saying that we evaluate all
|
|
111 operations and constants to the range and precision of the _Decimal128
|
|
112 type. Make it so. */
|
|
113 #if WIDTH == 32
|
|
114 #define CONTEXT_INIT DEC_INIT_DECIMAL32
|
|
115 #elif WIDTH == 64
|
|
116 #define CONTEXT_INIT DEC_INIT_DECIMAL64
|
|
117 #elif WIDTH == 128
|
|
118 #define CONTEXT_INIT DEC_INIT_DECIMAL128
|
|
119 #endif
|
|
120
|
|
121 #ifndef DFP_INIT_ROUNDMODE
|
|
122 #define DFP_INIT_ROUNDMODE(A) A = DEC_ROUND_HALF_EVEN
|
|
123 #endif
|
|
124
|
|
125 #ifdef DFP_EXCEPTIONS_ENABLED
|
|
126 /* Return IEEE exception flags based on decNumber status flags. */
|
|
127 #define DFP_IEEE_FLAGS(DEC_FLAGS) __extension__ \
|
|
128 ({int _fe_flags = 0; \
|
|
129 if ((dec_flags & DEC_IEEE_854_Division_by_zero) != 0) \
|
|
130 _fe_flags |= FE_DIVBYZERO; \
|
|
131 if ((dec_flags & DEC_IEEE_854_Inexact) != 0) \
|
|
132 _fe_flags |= FE_INEXACT; \
|
|
133 if ((dec_flags & DEC_IEEE_854_Invalid_operation) != 0) \
|
|
134 _fe_flags |= FE_INVALID; \
|
|
135 if ((dec_flags & DEC_IEEE_854_Overflow) != 0) \
|
|
136 _fe_flags |= FE_OVERFLOW; \
|
|
137 if ((dec_flags & DEC_IEEE_854_Underflow) != 0) \
|
|
138 _fe_flags |= FE_UNDERFLOW; \
|
|
139 _fe_flags; })
|
|
140 #else
|
|
141 #define DFP_EXCEPTIONS_ENABLED 0
|
|
142 #define DFP_IEEE_FLAGS(A) 0
|
|
143 #define DFP_HANDLE_EXCEPTIONS(A) do {} while (0)
|
|
144 #endif
|
|
145
|
|
146 /* Conversions between different decimal float types use WIDTH_TO to
|
|
147 determine additional macros to define. */
|
|
148
|
|
149 #if defined (L_dd_to_sd) || defined (L_td_to_sd)
|
|
150 #define WIDTH_TO 32
|
|
151 #elif defined (L_sd_to_dd) || defined (L_td_to_dd)
|
|
152 #define WIDTH_TO 64
|
|
153 #elif defined (L_sd_to_td) || defined (L_dd_to_td)
|
|
154 #define WIDTH_TO 128
|
|
155 #endif
|
|
156
|
|
157 /* If WIDTH_TO is defined, define additional macros:
|
|
158
|
|
159 DFP_C_TYPE_TO: type of the result of dfp to dfp conversion.
|
|
160
|
|
161 IEEE_TYPE_TO: the corresponding (encoded) IEEE754 type.
|
|
162
|
|
163 TO_ENCODED_TO: the name of the decNumber function to convert an
|
|
164 internally represented decNumber into the encoded representation
|
|
165 for the destination. */
|
|
166
|
|
167 #if WIDTH_TO == 32
|
|
168 #define DFP_C_TYPE_TO _Decimal32
|
|
169 #define IEEE_TYPE_TO decimal32
|
|
170 #define TO_ENCODED_TO __decimal32FromNumber
|
|
171 #define IEEE_TO_HOST_TO __ieee_to_host_32
|
|
172 #elif WIDTH_TO == 64
|
|
173 #define DFP_C_TYPE_TO _Decimal64
|
|
174 #define IEEE_TYPE_TO decimal64
|
|
175 #define TO_ENCODED_TO __decimal64FromNumber
|
|
176 #define IEEE_TO_HOST_TO __ieee_to_host_64
|
|
177 #elif WIDTH_TO == 128
|
|
178 #define DFP_C_TYPE_TO _Decimal128
|
|
179 #define IEEE_TYPE_TO decimal128
|
|
180 #define TO_ENCODED_TO __decimal128FromNumber
|
|
181 #define IEEE_TO_HOST_TO __ieee_to_host_128
|
|
182 #endif
|
|
183
|
|
184 /* Conversions between decimal float types and integral types use INT_KIND
|
|
185 to determine the data type and C functions to use. */
|
|
186
|
|
187 #if defined (L_sd_to_si) || defined (L_dd_to_si) || defined (L_td_to_si) \
|
|
188 || defined (L_si_to_sd) || defined (L_si_to_dd) || defined (L_si_to_td)
|
|
189 #define INT_KIND 1
|
|
190 #elif defined (L_sd_to_di) || defined (L_dd_to_di) || defined (L_td_to_di) \
|
|
191 || defined (L_di_to_sd) || defined (L_di_to_dd) || defined (L_di_to_td)
|
|
192 #define INT_KIND 2
|
|
193 #elif defined (L_sd_to_usi) || defined (L_dd_to_usi) || defined (L_td_to_usi) \
|
|
194 || defined (L_usi_to_sd) || defined (L_usi_to_dd) || defined (L_usi_to_td)
|
|
195 #define INT_KIND 3
|
|
196 #elif defined (L_sd_to_udi) || defined (L_dd_to_udi) || defined (L_td_to_udi) \
|
|
197 || defined (L_udi_to_sd) || defined (L_udi_to_dd) || defined (L_udi_to_td)
|
|
198 #define INT_KIND 4
|
|
199 #endif
|
|
200
|
|
201 /* If INT_KIND is defined, define additional macros:
|
|
202
|
|
203 INT_TYPE: The integer data type.
|
|
204
|
|
205 INT_FMT: The format string for writing the integer to a string.
|
|
206
|
|
207 CAST_FOR_FMT: Cast variable of INT_KIND to C type for sprintf.
|
|
208 This works for ILP32 and LP64, won't for other type size systems.
|
|
209
|
|
210 STR_TO_INT: The function to read the integer from a string. */
|
|
211
|
|
212 #if INT_KIND == 1
|
|
213 #define INT_TYPE SItype
|
|
214 #define INT_FMT "%d"
|
|
215 #define CAST_FOR_FMT(A) (int)A
|
|
216 #define STR_TO_INT strtol
|
|
217 #elif INT_KIND == 2
|
|
218 #define INT_TYPE DItype
|
|
219 #define INT_FMT "%lld"
|
|
220 #define CAST_FOR_FMT(A) (long long)A
|
|
221 #define STR_TO_INT strtoll
|
|
222 #elif INT_KIND == 3
|
|
223 #define INT_TYPE USItype
|
|
224 #define INT_FMT "%u"
|
|
225 #define CAST_FOR_FMT(A) (unsigned int)A
|
|
226 #define STR_TO_INT strtoul
|
|
227 #elif INT_KIND == 4
|
|
228 #define INT_TYPE UDItype
|
|
229 #define INT_FMT "%llu"
|
|
230 #define CAST_FOR_FMT(A) (unsigned long long)A
|
|
231 #define STR_TO_INT strtoull
|
|
232 #endif
|
|
233
|
|
234 /* Conversions between decimal float types and binary float types use
|
|
235 BFP_KIND to determine the data type and C functions to use. */
|
|
236
|
|
237 #if defined (L_sd_to_sf) || defined (L_dd_to_sf) || defined (L_td_to_sf) \
|
|
238 || defined (L_sf_to_sd) || defined (L_sf_to_dd) || defined (L_sf_to_td)
|
|
239 #define BFP_KIND 1
|
|
240 #elif defined (L_sd_to_df) || defined (L_dd_to_df ) || defined (L_td_to_df) \
|
|
241 || defined (L_df_to_sd) || defined (L_df_to_dd) || defined (L_df_to_td)
|
|
242 #define BFP_KIND 2
|
|
243 #elif defined (L_sd_to_xf) || defined (L_dd_to_xf ) || defined (L_td_to_xf) \
|
|
244 || defined (L_xf_to_sd) || defined (L_xf_to_dd) || defined (L_xf_to_td)
|
|
245 #define BFP_KIND 3
|
|
246 #elif defined (L_sd_to_tf) || defined (L_dd_to_tf) || defined (L_td_to_tf) \
|
|
247 || defined (L_tf_to_sd) || defined (L_tf_to_dd) || defined (L_tf_to_td)
|
|
248 #define BFP_KIND 4
|
|
249 #endif
|
|
250
|
|
251 /* If BFP_KIND is defined, define additional macros:
|
|
252
|
|
253 BFP_TYPE: The binary floating point data type.
|
|
254
|
|
255 BFP_FMT: The format string for writing the value to a string.
|
|
256 The number of decimal digits printed is
|
|
257 ceil (nbits / log2 (10.) + 1)
|
|
258 as described in David Matula's CACM 19(3) 716-723 June 1968 paper.
|
|
259
|
|
260 BFP_VIA_TYPE: Type to which to cast a variable of BPF_TYPE for a
|
|
261 call to sprintf.
|
|
262
|
|
263 STR_TO_BFP: The function to read the value from a string. */
|
|
264
|
|
265 #if BFP_KIND == 1
|
|
266 #define BFP_TYPE SFtype
|
|
267 #define BFP_FMT "%.9e"
|
|
268 #define BFP_VIA_TYPE double
|
|
269 #define STR_TO_BFP strtof
|
|
270
|
|
271 #elif BFP_KIND == 2
|
|
272 #define BFP_TYPE DFtype
|
|
273 #define BFP_FMT "%.17e"
|
|
274 #define BFP_VIA_TYPE double
|
|
275 #define STR_TO_BFP strtod
|
|
276
|
|
277 #elif BFP_KIND == 3
|
|
278 #if LONG_DOUBLE_HAS_XF_MODE
|
|
279 #define BFP_TYPE XFtype
|
|
280 #define BFP_FMT "%.21Le"
|
|
281 #define BFP_VIA_TYPE long double
|
|
282 #define STR_TO_BFP strtold
|
|
283 #endif /* LONG_DOUBLE_HAS_XF_MODE */
|
|
284
|
|
285 #elif BFP_KIND == 4
|
|
286 #if LONG_DOUBLE_HAS_TF_MODE
|
|
287 #define BFP_TYPE TFtype
|
|
288 #if LDBL_MANT_DIG == 106
|
|
289 #define BFP_FMT "%.33Le"
|
|
290 #elif LDBL_MANT_DIG == 113
|
|
291 #define BFP_FMT "%.36Le"
|
|
292 #else
|
|
293 #error "unknown long double size, cannot define BFP_FMT"
|
|
294 #endif /* LDBL_MANT_DIG */
|
|
295 #define STR_TO_BFP strtold
|
|
296 #define BFP_VIA_TYPE long double
|
|
297 #endif /* LONG_DOUBLE_HAS_TF_MODE */
|
|
298
|
|
299 #endif /* BFP_KIND */
|
|
300
|
|
301 #if WIDTH == 128 || WIDTH_TO == 128
|
|
302 #include "decimal128.h"
|
|
303 #include "decQuad.h"
|
|
304 #endif
|
|
305 #if WIDTH == 64 || WIDTH_TO == 64
|
|
306 #include "decimal64.h"
|
|
307 #include "decDouble.h"
|
|
308 #endif
|
|
309 #if WIDTH == 32 || WIDTH_TO == 32
|
|
310 #include "decimal32.h"
|
|
311 #include "decSingle.h"
|
|
312 #endif
|
|
313 #include "decNumber.h"
|
|
314
|
|
315 /* Names of arithmetic functions. */
|
|
316
|
|
317 #if ENABLE_DECIMAL_BID_FORMAT
|
|
318 #define DPD_BID_NAME(DPD,BID) BID
|
|
319 #else
|
|
320 #define DPD_BID_NAME(DPD,BID) DPD
|
|
321 #endif
|
|
322
|
|
323 #if WIDTH == 32
|
|
324 #define DFP_ADD DPD_BID_NAME(__dpd_addsd3,__bid_addsd3)
|
|
325 #define DFP_SUB DPD_BID_NAME(__dpd_subsd3,__bid_subsd3)
|
|
326 #define DFP_MULTIPLY DPD_BID_NAME(__dpd_mulsd3,__bid_mulsd3)
|
|
327 #define DFP_DIVIDE DPD_BID_NAME(__dpd_divsd3,__bid_divsd3)
|
|
328 #define DFP_EQ DPD_BID_NAME(__dpd_eqsd2,__bid_eqsd2)
|
|
329 #define DFP_NE DPD_BID_NAME(__dpd_nesd2,__bid_nesd2)
|
|
330 #define DFP_LT DPD_BID_NAME(__dpd_ltsd2,__bid_ltsd2)
|
|
331 #define DFP_GT DPD_BID_NAME(__dpd_gtsd2,__bid_gtsd2)
|
|
332 #define DFP_LE DPD_BID_NAME(__dpd_lesd2,__bid_lesd2)
|
|
333 #define DFP_GE DPD_BID_NAME(__dpd_gesd2,__bid_gesd2)
|
|
334 #define DFP_UNORD DPD_BID_NAME(__dpd_unordsd2,__bid_unordsd2)
|
|
335 #elif WIDTH == 64
|
|
336 #define DFP_ADD DPD_BID_NAME(__dpd_adddd3,__bid_adddd3)
|
|
337 #define DFP_SUB DPD_BID_NAME(__dpd_subdd3,__bid_subdd3)
|
|
338 #define DFP_MULTIPLY DPD_BID_NAME(__dpd_muldd3,__bid_muldd3)
|
|
339 #define DFP_DIVIDE DPD_BID_NAME(__dpd_divdd3,__bid_divdd3)
|
|
340 #define DFP_EQ DPD_BID_NAME(__dpd_eqdd2,__bid_eqdd2)
|
|
341 #define DFP_NE DPD_BID_NAME(__dpd_nedd2,__bid_nedd2)
|
|
342 #define DFP_LT DPD_BID_NAME(__dpd_ltdd2,__bid_ltdd2)
|
|
343 #define DFP_GT DPD_BID_NAME(__dpd_gtdd2,__bid_gtdd2)
|
|
344 #define DFP_LE DPD_BID_NAME(__dpd_ledd2,__bid_ledd2)
|
|
345 #define DFP_GE DPD_BID_NAME(__dpd_gedd2,__bid_gedd2)
|
|
346 #define DFP_UNORD DPD_BID_NAME(__dpd_unorddd2,__bid_unorddd2)
|
|
347 #elif WIDTH == 128
|
|
348 #define DFP_ADD DPD_BID_NAME(__dpd_addtd3,__bid_addtd3)
|
|
349 #define DFP_SUB DPD_BID_NAME(__dpd_subtd3,__bid_subtd3)
|
|
350 #define DFP_MULTIPLY DPD_BID_NAME(__dpd_multd3,__bid_multd3)
|
|
351 #define DFP_DIVIDE DPD_BID_NAME(__dpd_divtd3,__bid_divtd3)
|
|
352 #define DFP_EQ DPD_BID_NAME(__dpd_eqtd2,__bid_eqtd2)
|
|
353 #define DFP_NE DPD_BID_NAME(__dpd_netd2,__bid_netd2)
|
|
354 #define DFP_LT DPD_BID_NAME(__dpd_lttd2,__bid_lttd2)
|
|
355 #define DFP_GT DPD_BID_NAME(__dpd_gttd2,__bid_gttd2)
|
|
356 #define DFP_LE DPD_BID_NAME(__dpd_letd2,__bid_letd2)
|
|
357 #define DFP_GE DPD_BID_NAME(__dpd_getd2,__bid_getd2)
|
|
358 #define DFP_UNORD DPD_BID_NAME(__dpd_unordtd2,__bid_unordtd2)
|
|
359 #endif
|
|
360
|
|
361 /* Names of decNumber functions for DPD arithmetic. */
|
|
362
|
|
363 #if WIDTH == 32
|
|
364 #define decFloat decDouble
|
|
365 #define DFP_BINARY_OP d32_binary_op
|
|
366 #define DFP_COMPARE_OP d32_compare_op
|
|
367 #define DEC_FLOAT_ADD decDoubleAdd
|
|
368 #define DEC_FLOAT_SUBTRACT decDoubleSubtract
|
|
369 #define DEC_FLOAT_MULTIPLY decDoubleMultiply
|
|
370 #define DEC_FLOAT_DIVIDE decDoubleDivide
|
|
371 #define DEC_FLOAT_COMPARE decDoubleCompare
|
|
372 #define DEC_FLOAT_IS_ZERO decDoubleIsZero
|
|
373 #define DEC_FLOAT_IS_NAN decDoubleIsNaN
|
|
374 #define DEC_FLOAT_IS_SIGNED decDoubleIsSigned
|
|
375 #elif WIDTH == 64
|
|
376 #define DFP_BINARY_OP dnn_binary_op
|
|
377 #define DFP_COMPARE_OP dnn_compare_op
|
|
378 #define decFloat decDouble
|
|
379 #define DEC_FLOAT_ADD decDoubleAdd
|
|
380 #define DEC_FLOAT_SUBTRACT decDoubleSubtract
|
|
381 #define DEC_FLOAT_MULTIPLY decDoubleMultiply
|
|
382 #define DEC_FLOAT_DIVIDE decDoubleDivide
|
|
383 #define DEC_FLOAT_COMPARE decDoubleCompare
|
|
384 #define DEC_FLOAT_IS_ZERO decDoubleIsZero
|
|
385 #define DEC_FLOAT_IS_NAN decDoubleIsNaN
|
|
386 #define DEC_FLOAT_IS_SIGNED decDoubleIsSigned
|
|
387 #elif WIDTH == 128
|
|
388 #define DFP_BINARY_OP dnn_binary_op
|
|
389 #define DFP_COMPARE_OP dnn_compare_op
|
|
390 #define decFloat decQuad
|
|
391 #define DEC_FLOAT_ADD decQuadAdd
|
|
392 #define DEC_FLOAT_SUBTRACT decQuadSubtract
|
|
393 #define DEC_FLOAT_MULTIPLY decQuadMultiply
|
|
394 #define DEC_FLOAT_DIVIDE decQuadDivide
|
|
395 #define DEC_FLOAT_COMPARE decQuadCompare
|
|
396 #define DEC_FLOAT_IS_ZERO decQuadIsZero
|
|
397 #define DEC_FLOAT_IS_NAN decQuadIsNaN
|
|
398 #define DEC_FLOAT_IS_SIGNED decQuadIsSigned
|
|
399 #endif
|
|
400
|
|
401 /* Names of functions to convert between different decimal float types. */
|
|
402
|
|
403 #if WIDTH == 32
|
|
404 #if WIDTH_TO == 64
|
|
405 #define DFP_TO_DFP DPD_BID_NAME(__dpd_extendsddd2,__bid_extendsddd2)
|
|
406 #elif WIDTH_TO == 128
|
|
407 #define DFP_TO_DFP DPD_BID_NAME(__dpd_extendsdtd2,__bid_extendsdtd2)
|
|
408 #endif
|
|
409 #elif WIDTH == 64
|
|
410 #if WIDTH_TO == 32
|
|
411 #define DFP_TO_DFP DPD_BID_NAME(__dpd_truncddsd2,__bid_truncddsd2)
|
|
412 #elif WIDTH_TO == 128
|
|
413 #define DFP_TO_DFP DPD_BID_NAME(__dpd_extendddtd2,__bid_extendddtd2)
|
|
414 #endif
|
|
415 #elif WIDTH == 128
|
|
416 #if WIDTH_TO == 32
|
|
417 #define DFP_TO_DFP DPD_BID_NAME(__dpd_trunctdsd2,__bid_trunctdsd2)
|
|
418 #elif WIDTH_TO == 64
|
|
419 #define DFP_TO_DFP DPD_BID_NAME(__dpd_trunctddd2,__bid_trunctddd2)
|
|
420 #endif
|
|
421 #endif
|
|
422
|
|
423 /* Names of functions to convert between decimal float and integers. */
|
|
424
|
|
425 #if WIDTH == 32
|
|
426 #if INT_KIND == 1
|
|
427 #define INT_TO_DFP DPD_BID_NAME(__dpd_floatsisd,__bid_floatsisd)
|
|
428 #define DFP_TO_INT DPD_BID_NAME(__dpd_fixsdsi,__bid_fixsdsi)
|
|
429 #define DEC_FLOAT_FROM_INT decDoubleFromInt32
|
|
430 #define DEC_FLOAT_TO_INT decDoubleToInt32
|
|
431 #elif INT_KIND == 2
|
|
432 #define INT_TO_DFP DPD_BID_NAME(__dpd_floatdisd,__bid_floatdisd)
|
|
433 #define DFP_TO_INT DPD_BID_NAME(__dpd_fixsddi,__bid_fixsddi)
|
|
434 #elif INT_KIND == 3
|
|
435 #define INT_TO_DFP DPD_BID_NAME(__dpd_floatunssisd,__bid_floatunssisd)
|
|
436 #define DFP_TO_INT DPD_BID_NAME(__dpd_fixunssdsi,__bid_fixunssdsi)
|
|
437 #define DEC_FLOAT_FROM_INT decDoubleFromUInt32
|
|
438 #define DEC_FLOAT_TO_INT decDoubleToUInt32
|
|
439 #elif INT_KIND == 4
|
|
440 #define INT_TO_DFP DPD_BID_NAME(__dpd_floatunsdisd,__bid_floatunsdisd)
|
|
441 #define DFP_TO_INT DPD_BID_NAME(__dpd_fixunssddi,__bid_fixunssddi)
|
|
442 #endif
|
|
443 #elif WIDTH == 64
|
|
444 #define decFloat decDouble
|
|
445 #if INT_KIND == 1
|
|
446 #define INT_TO_DFP DPD_BID_NAME(__dpd_floatsidd,__bid_floatsidd)
|
|
447 #define DFP_TO_INT DPD_BID_NAME(__dpd_fixddsi,__bid_fixddsi)
|
|
448 #define DEC_FLOAT_FROM_INT decDoubleFromInt32
|
|
449 #define DEC_FLOAT_TO_INT decDoubleToInt32
|
|
450 #elif INT_KIND == 2
|
|
451 #define INT_TO_DFP DPD_BID_NAME(__dpd_floatdidd,__bid_floatdidd)
|
|
452 #define DFP_TO_INT DPD_BID_NAME(__dpd_fixdddi,__bid_fixdddi)
|
|
453 #elif INT_KIND == 3
|
|
454 #define INT_TO_DFP DPD_BID_NAME(__dpd_floatunssidd,__bid_floatunssidd)
|
|
455 #define DFP_TO_INT DPD_BID_NAME(__dpd_fixunsddsi,__bid_fixunsddsi)
|
|
456 #define DEC_FLOAT_FROM_INT decDoubleFromUInt32
|
|
457 #define DEC_FLOAT_TO_INT decDoubleToUInt32
|
|
458 #elif INT_KIND == 4
|
|
459 #define INT_TO_DFP DPD_BID_NAME(__dpd_floatunsdidd,__bid_floatunsdidd)
|
|
460 #define DFP_TO_INT DPD_BID_NAME(__dpd_fixunsdddi,__bid_fixunsdddi)
|
|
461 #endif
|
|
462 #elif WIDTH == 128
|
|
463 #define decFloat decQuad
|
|
464 #if INT_KIND == 1
|
|
465 #define INT_TO_DFP DPD_BID_NAME(__dpd_floatsitd,__bid_floatsitd)
|
|
466 #define DFP_TO_INT DPD_BID_NAME(__dpd_fixtdsi,__bid_fixtdsi)
|
|
467 #define DEC_FLOAT_FROM_INT decQuadFromInt32
|
|
468 #define DEC_FLOAT_TO_INT decQuadToInt32
|
|
469 #elif INT_KIND == 2
|
|
470 #define INT_TO_DFP DPD_BID_NAME(__dpd_floatditd,__bid_floatditd)
|
|
471 #define DFP_TO_INT DPD_BID_NAME(__dpd_fixtddi,__bid_fixtddi)
|
|
472 #elif INT_KIND == 3
|
|
473 #define INT_TO_DFP DPD_BID_NAME(__dpd_floatunssitd,__bid_floatunssitd)
|
|
474 #define DFP_TO_INT DPD_BID_NAME(__dpd_fixunstdsi,__bid_fixunstdsi)
|
|
475 #define DEC_FLOAT_FROM_INT decQuadFromUInt32
|
|
476 #define DEC_FLOAT_TO_INT decQuadToUInt32
|
|
477 #elif INT_KIND == 4
|
|
478 #define INT_TO_DFP DPD_BID_NAME(__dpd_floatunsditd,__bid_floatunsditd)
|
|
479 #define DFP_TO_INT DPD_BID_NAME(__dpd_fixunstddi,__bid_fixunstddi)
|
|
480 #endif
|
|
481 #endif
|
|
482
|
|
483 /* Names of functions to convert between decimal float and binary float. */
|
|
484
|
|
485 #if WIDTH == 32
|
|
486 #if BFP_KIND == 1
|
|
487 #define BFP_TO_DFP DPD_BID_NAME(__dpd_extendsfsd,__bid_extendsfsd)
|
|
488 #define DFP_TO_BFP DPD_BID_NAME(__dpd_truncsdsf,__bid_truncsdsf)
|
|
489 #elif BFP_KIND == 2
|
|
490 #define BFP_TO_DFP DPD_BID_NAME(__dpd_truncdfsd,__bid_truncdfsd)
|
|
491 #define DFP_TO_BFP DPD_BID_NAME(__dpd_extendsddf,__bid_extendsddf)
|
|
492 #elif BFP_KIND == 3
|
|
493 #define BFP_TO_DFP DPD_BID_NAME(__dpd_truncxfsd,__bid_truncxfsd)
|
|
494 #define DFP_TO_BFP DPD_BID_NAME(__dpd_extendsdxf,__bid_extendsdxf)
|
|
495 #elif BFP_KIND == 4
|
|
496 #define BFP_TO_DFP DPD_BID_NAME(__dpd_trunctfsd,__bid_trunctfsd)
|
|
497 #define DFP_TO_BFP DPD_BID_NAME(__dpd_extendsdtf,__bid_extendsdtf)
|
|
498 #endif /* BFP_KIND */
|
|
499
|
|
500 #elif WIDTH == 64
|
|
501 #if BFP_KIND == 1
|
|
502 #define BFP_TO_DFP DPD_BID_NAME(__dpd_extendsfdd,__bid_extendsfdd)
|
|
503 #define DFP_TO_BFP DPD_BID_NAME(__dpd_truncddsf,__bid_truncddsf)
|
|
504 #elif BFP_KIND == 2
|
|
505 #define BFP_TO_DFP DPD_BID_NAME(__dpd_extenddfdd,__bid_extenddfdd)
|
|
506 #define DFP_TO_BFP DPD_BID_NAME(__dpd_truncdddf,__bid_truncdddf)
|
|
507 #elif BFP_KIND == 3
|
|
508 #define BFP_TO_DFP DPD_BID_NAME(__dpd_truncxfdd,__bid_truncxfdd)
|
|
509 #define DFP_TO_BFP DPD_BID_NAME(__dpd_extendddxf,__bid_extendddxf)
|
|
510 #elif BFP_KIND == 4
|
|
511 #define BFP_TO_DFP DPD_BID_NAME(__dpd_trunctfdd,__bid_trunctfdd)
|
|
512 #define DFP_TO_BFP DPD_BID_NAME(__dpd_extendddtf,__bid_extendddtf)
|
|
513 #endif /* BFP_KIND */
|
|
514
|
|
515 #elif WIDTH == 128
|
|
516 #if BFP_KIND == 1
|
|
517 #define BFP_TO_DFP DPD_BID_NAME(__dpd_extendsftd,__bid_extendsftd)
|
|
518 #define DFP_TO_BFP DPD_BID_NAME(__dpd_trunctdsf,__bid_trunctdsf)
|
|
519 #elif BFP_KIND == 2
|
|
520 #define BFP_TO_DFP DPD_BID_NAME(__dpd_extenddftd,__bid_extenddftd)
|
|
521 #define DFP_TO_BFP DPD_BID_NAME(__dpd_trunctddf,__bid_trunctddf)
|
|
522 #elif BFP_KIND == 3
|
|
523 #define BFP_TO_DFP DPD_BID_NAME(__dpd_extendxftd,__bid_extendxftd)
|
|
524 #define DFP_TO_BFP DPD_BID_NAME(__dpd_trunctdxf,__bid_trunctdxf)
|
|
525 #elif BFP_KIND == 4
|
|
526 #define BFP_TO_DFP DPD_BID_NAME(__dpd_extendtftd,__bid_extendtftd)
|
|
527 #define DFP_TO_BFP DPD_BID_NAME(__dpd_trunctdtf,__bid_trunctdtf)
|
|
528 #endif /* BFP_KIND */
|
|
529
|
|
530 #endif /* WIDTH */
|
|
531
|
|
532 /* Some handy typedefs. */
|
|
533
|
|
534 typedef float SFtype __attribute__ ((mode (SF)));
|
|
535 typedef float DFtype __attribute__ ((mode (DF)));
|
|
536 #if LONG_DOUBLE_HAS_XF_MODE
|
|
537 typedef float XFtype __attribute__ ((mode (XF)));
|
|
538 #endif /* LONG_DOUBLE_HAS_XF_MODE */
|
|
539 #if LONG_DOUBLE_HAS_TF_MODE
|
|
540 typedef float TFtype __attribute__ ((mode (TF)));
|
|
541 #endif /* LONG_DOUBLE_HAS_TF_MODE */
|
|
542
|
|
543 typedef int SItype __attribute__ ((mode (SI)));
|
|
544 typedef int DItype __attribute__ ((mode (DI)));
|
|
545 typedef unsigned int USItype __attribute__ ((mode (SI)));
|
|
546 typedef unsigned int UDItype __attribute__ ((mode (DI)));
|
|
547
|
|
548 /* The type of the result of a decimal float comparison. This must
|
|
549 match `__libgcc_cmp_return__' in GCC for the target. */
|
|
550
|
|
551 typedef int CMPtype __attribute__ ((mode (__libgcc_cmp_return__)));
|
|
552
|
|
553 /* Prototypes. */
|
|
554
|
|
555 #if defined (L_mul_sd) || defined (L_mul_dd) || defined (L_mul_td)
|
|
556 extern DFP_C_TYPE DFP_MULTIPLY (DFP_C_TYPE, DFP_C_TYPE);
|
|
557 #endif
|
|
558
|
|
559 #if defined (L_div_sd) || defined (L_div_dd) || defined (L_div_td)
|
|
560 extern DFP_C_TYPE DFP_DIVIDE (DFP_C_TYPE, DFP_C_TYPE);
|
|
561 #endif
|
|
562
|
|
563 #if defined (L_addsub_sd) || defined (L_addsub_dd) || defined (L_addsub_td)
|
|
564 extern DFP_C_TYPE DFP_ADD (DFP_C_TYPE, DFP_C_TYPE);
|
|
565 extern DFP_C_TYPE DFP_SUB (DFP_C_TYPE, DFP_C_TYPE);
|
|
566 #endif
|
|
567
|
|
568 #if defined (L_eq_sd) || defined (L_eq_dd) || defined (L_eq_td)
|
|
569 extern CMPtype DFP_EQ (DFP_C_TYPE, DFP_C_TYPE);
|
|
570 #endif
|
|
571
|
|
572 #if defined (L_ne_sd) || defined (L_ne_dd) || defined (L_ne_td)
|
|
573 extern CMPtype DFP_NE (DFP_C_TYPE, DFP_C_TYPE);
|
|
574 #endif
|
|
575
|
|
576 #if defined (L_lt_sd) || defined (L_lt_dd) || defined (L_lt_td)
|
|
577 extern CMPtype DFP_LT (DFP_C_TYPE, DFP_C_TYPE);
|
|
578 #endif
|
|
579
|
|
580 #if defined (L_gt_sd) || defined (L_gt_dd) || defined (L_gt_td)
|
|
581 extern CMPtype DFP_GT (DFP_C_TYPE, DFP_C_TYPE);
|
|
582 #endif
|
|
583
|
|
584 #if defined (L_le_sd) || defined (L_le_dd) || defined (L_le_td)
|
|
585 extern CMPtype DFP_LE (DFP_C_TYPE, DFP_C_TYPE);
|
|
586 #endif
|
|
587
|
|
588 #if defined (L_ge_sd) || defined (L_ge_dd) || defined (L_ge_td)
|
|
589 extern CMPtype DFP_GE (DFP_C_TYPE, DFP_C_TYPE);
|
|
590 #endif
|
|
591
|
|
592 #if defined (L_unord_sd) || defined (L_unord_dd) || defined (L_unord_td)
|
|
593 extern CMPtype DFP_UNORD (DFP_C_TYPE, DFP_C_TYPE);
|
|
594 #endif
|
|
595
|
|
596 #if defined (L_sd_to_dd) || defined (L_sd_to_td) || defined (L_dd_to_sd) \
|
|
597 || defined (L_dd_to_td) || defined (L_td_to_sd) || defined (L_td_to_dd)
|
|
598 extern DFP_C_TYPE_TO DFP_TO_DFP (DFP_C_TYPE);
|
|
599 #endif
|
|
600
|
|
601 #if defined (L_sd_to_si) || defined (L_dd_to_si) || defined (L_td_to_si) \
|
|
602 || defined (L_sd_to_di) || defined (L_dd_to_di) || defined (L_td_to_di) \
|
|
603 || defined (L_sd_to_usi) || defined (L_dd_to_usi) || defined (L_td_to_usi) \
|
|
604 || defined (L_sd_to_udi) || defined (L_dd_to_udi) || defined (L_td_to_udi)
|
|
605 extern INT_TYPE DFP_TO_INT (DFP_C_TYPE);
|
|
606 #endif
|
|
607
|
|
608 #if defined (L_si_to_sd) || defined (L_si_to_dd) || defined (L_si_to_td) \
|
|
609 || defined (L_di_to_sd) || defined (L_di_to_dd) || defined (L_di_to_td) \
|
|
610 || defined (L_usi_to_sd) || defined (L_usi_to_dd) || defined (L_usi_to_td) \
|
|
611 || defined (L_udi_to_sd) || defined (L_udi_to_dd) || defined (L_udi_to_td)
|
|
612 extern DFP_C_TYPE INT_TO_DFP (INT_TYPE);
|
|
613 #endif
|
|
614
|
|
615 #if defined (L_sd_to_sf) || defined (L_dd_to_sf) || defined (L_td_to_sf) \
|
|
616 || defined (L_sd_to_df) || defined (L_dd_to_df) || defined (L_td_to_df) \
|
|
617 || ((defined (L_sd_to_xf) || defined (L_dd_to_xf) || defined (L_td_to_xf)) \
|
|
618 && LONG_DOUBLE_HAS_XF_MODE) \
|
|
619 || ((defined (L_sd_to_tf) || defined (L_dd_to_tf) || defined (L_td_to_tf)) \
|
|
620 && LONG_DOUBLE_HAS_TF_MODE)
|
|
621 extern BFP_TYPE DFP_TO_BFP (DFP_C_TYPE);
|
|
622 #endif
|
|
623
|
|
624 #if defined (L_sf_to_sd) || defined (L_sf_to_dd) || defined (L_sf_to_td) \
|
|
625 || defined (L_df_to_sd) || defined (L_df_to_dd) || defined (L_df_to_td) \
|
|
626 || ((defined (L_xf_to_sd) || defined (L_xf_to_dd) || defined (L_xf_to_td)) \
|
|
627 && LONG_DOUBLE_HAS_XF_MODE) \
|
|
628 || ((defined (L_tf_to_sd) || defined (L_tf_to_dd) || defined (L_tf_to_td)) \
|
|
629 && LONG_DOUBLE_HAS_TF_MODE)
|
|
630 extern DFP_C_TYPE BFP_TO_DFP (BFP_TYPE);
|
|
631 #endif
|
|
632
|
|
633 #endif /* _DFPBIT_H */
|