Mercurial > hg > CbC > CbC_gcc
annotate gcc/config/fp-bit.c @ 67:f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
author | nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Tue, 22 Mar 2011 17:18:12 +0900 |
parents | a06113de4d67 |
children |
rev | line source |
---|---|
0 | 1 /* This is a software floating point library which can be used |
2 for targets without hardware floating point. | |
3 Copyright (C) 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003, | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
4 2004, 2005, 2008, 2009, 2010 Free Software Foundation, Inc. |
0 | 5 |
6 This file is part of GCC. | |
7 | |
8 GCC is free software; you can redistribute it and/or modify it under | |
9 the terms of the GNU General Public License as published by the Free | |
10 Software Foundation; either version 3, or (at your option) any later | |
11 version. | |
12 | |
13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY | |
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
16 for more details. | |
17 | |
18 Under Section 7 of GPL version 3, you are granted additional | |
19 permissions described in the GCC Runtime Library Exception, version | |
20 3.1, as published by the Free Software Foundation. | |
21 | |
22 You should have received a copy of the GNU General Public License and | |
23 a copy of the GCC Runtime Library Exception along with this program; | |
24 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see | |
25 <http://www.gnu.org/licenses/>. */ | |
26 | |
27 /* This implements IEEE 754 format arithmetic, but does not provide a | |
28 mechanism for setting the rounding mode, or for generating or handling | |
29 exceptions. | |
30 | |
31 The original code by Steve Chamberlain, hacked by Mark Eichin and Jim | |
32 Wilson, all of Cygnus Support. */ | |
33 | |
34 /* The intended way to use this file is to make two copies, add `#define FLOAT' | |
35 to one copy, then compile both copies and add them to libgcc.a. */ | |
36 | |
37 #include "tconfig.h" | |
38 #include "coretypes.h" | |
39 #include "tm.h" | |
40 #include "config/fp-bit.h" | |
41 | |
42 /* The following macros can be defined to change the behavior of this file: | |
43 FLOAT: Implement a `float', aka SFmode, fp library. If this is not | |
44 defined, then this file implements a `double', aka DFmode, fp library. | |
45 FLOAT_ONLY: Used with FLOAT, to implement a `float' only library, i.e. | |
46 don't include float->double conversion which requires the double library. | |
47 This is useful only for machines which can't support doubles, e.g. some | |
48 8-bit processors. | |
49 CMPtype: Specify the type that floating point compares should return. | |
50 This defaults to SItype, aka int. | |
51 _DEBUG_BITFLOAT: This makes debugging the code a little easier, by adding | |
52 two integers to the FLO_union_type. | |
53 NO_DENORMALS: Disable handling of denormals. | |
54 NO_NANS: Disable nan and infinity handling | |
55 SMALL_MACHINE: Useful when operations on QIs and HIs are faster | |
56 than on an SI */ | |
57 | |
58 /* We don't currently support extended floats (long doubles) on machines | |
59 without hardware to deal with them. | |
60 | |
61 These stubs are just to keep the linker from complaining about unresolved | |
62 references which can be pulled in from libio & libstdc++, even if the | |
63 user isn't using long doubles. However, they may generate an unresolved | |
64 external to abort if abort is not used by the function, and the stubs | |
65 are referenced from within libc, since libgcc goes before and after the | |
66 system library. */ | |
67 | |
68 #ifdef DECLARE_LIBRARY_RENAMES | |
69 DECLARE_LIBRARY_RENAMES | |
70 #endif | |
71 | |
72 #ifdef EXTENDED_FLOAT_STUBS | |
73 extern void abort (void); | |
74 void __extendsfxf2 (void) { abort(); } | |
75 void __extenddfxf2 (void) { abort(); } | |
76 void __truncxfdf2 (void) { abort(); } | |
77 void __truncxfsf2 (void) { abort(); } | |
78 void __fixxfsi (void) { abort(); } | |
79 void __floatsixf (void) { abort(); } | |
80 void __addxf3 (void) { abort(); } | |
81 void __subxf3 (void) { abort(); } | |
82 void __mulxf3 (void) { abort(); } | |
83 void __divxf3 (void) { abort(); } | |
84 void __negxf2 (void) { abort(); } | |
85 void __eqxf2 (void) { abort(); } | |
86 void __nexf2 (void) { abort(); } | |
87 void __gtxf2 (void) { abort(); } | |
88 void __gexf2 (void) { abort(); } | |
89 void __lexf2 (void) { abort(); } | |
90 void __ltxf2 (void) { abort(); } | |
91 | |
92 void __extendsftf2 (void) { abort(); } | |
93 void __extenddftf2 (void) { abort(); } | |
94 void __trunctfdf2 (void) { abort(); } | |
95 void __trunctfsf2 (void) { abort(); } | |
96 void __fixtfsi (void) { abort(); } | |
97 void __floatsitf (void) { abort(); } | |
98 void __addtf3 (void) { abort(); } | |
99 void __subtf3 (void) { abort(); } | |
100 void __multf3 (void) { abort(); } | |
101 void __divtf3 (void) { abort(); } | |
102 void __negtf2 (void) { abort(); } | |
103 void __eqtf2 (void) { abort(); } | |
104 void __netf2 (void) { abort(); } | |
105 void __gttf2 (void) { abort(); } | |
106 void __getf2 (void) { abort(); } | |
107 void __letf2 (void) { abort(); } | |
108 void __lttf2 (void) { abort(); } | |
109 #else /* !EXTENDED_FLOAT_STUBS, rest of file */ | |
110 | |
111 /* IEEE "special" number predicates */ | |
112 | |
113 #ifdef NO_NANS | |
114 | |
115 #define nan() 0 | |
116 #define isnan(x) 0 | |
117 #define isinf(x) 0 | |
118 #else | |
119 | |
120 #if defined L_thenan_sf | |
121 const fp_number_type __thenan_sf = { CLASS_SNAN, 0, 0, {(fractype) 0} }; | |
122 #elif defined L_thenan_df | |
123 const fp_number_type __thenan_df = { CLASS_SNAN, 0, 0, {(fractype) 0} }; | |
124 #elif defined L_thenan_tf | |
125 const fp_number_type __thenan_tf = { CLASS_SNAN, 0, 0, {(fractype) 0} }; | |
126 #elif defined TFLOAT | |
127 extern const fp_number_type __thenan_tf; | |
128 #elif defined FLOAT | |
129 extern const fp_number_type __thenan_sf; | |
130 #else | |
131 extern const fp_number_type __thenan_df; | |
132 #endif | |
133 | |
134 INLINE | |
135 static const fp_number_type * | |
136 makenan (void) | |
137 { | |
138 #ifdef TFLOAT | |
139 return & __thenan_tf; | |
140 #elif defined FLOAT | |
141 return & __thenan_sf; | |
142 #else | |
143 return & __thenan_df; | |
144 #endif | |
145 } | |
146 | |
147 INLINE | |
148 static int | |
149 isnan (const fp_number_type *x) | |
150 { | |
151 return __builtin_expect (x->class == CLASS_SNAN || x->class == CLASS_QNAN, | |
152 0); | |
153 } | |
154 | |
155 INLINE | |
156 static int | |
157 isinf (const fp_number_type * x) | |
158 { | |
159 return __builtin_expect (x->class == CLASS_INFINITY, 0); | |
160 } | |
161 | |
162 #endif /* NO_NANS */ | |
163 | |
164 INLINE | |
165 static int | |
166 iszero (const fp_number_type * x) | |
167 { | |
168 return x->class == CLASS_ZERO; | |
169 } | |
170 | |
171 INLINE | |
172 static void | |
173 flip_sign ( fp_number_type * x) | |
174 { | |
175 x->sign = !x->sign; | |
176 } | |
177 | |
178 /* Count leading zeroes in N. */ | |
179 INLINE | |
180 static int | |
181 clzusi (USItype n) | |
182 { | |
183 extern int __clzsi2 (USItype); | |
184 if (sizeof (USItype) == sizeof (unsigned int)) | |
185 return __builtin_clz (n); | |
186 else if (sizeof (USItype) == sizeof (unsigned long)) | |
187 return __builtin_clzl (n); | |
188 else if (sizeof (USItype) == sizeof (unsigned long long)) | |
189 return __builtin_clzll (n); | |
190 else | |
191 return __clzsi2 (n); | |
192 } | |
193 | |
194 extern FLO_type pack_d (const fp_number_type * ); | |
195 | |
196 #if defined(L_pack_df) || defined(L_pack_sf) || defined(L_pack_tf) | |
197 FLO_type | |
198 pack_d (const fp_number_type *src) | |
199 { | |
200 FLO_union_type dst; | |
201 fractype fraction = src->fraction.ll; /* wasn't unsigned before? */ | |
202 int sign = src->sign; | |
203 int exp = 0; | |
204 | |
205 if (LARGEST_EXPONENT_IS_NORMAL (FRAC_NBITS) && (isnan (src) || isinf (src))) | |
206 { | |
207 /* We can't represent these values accurately. By using the | |
208 largest possible magnitude, we guarantee that the conversion | |
209 of infinity is at least as big as any finite number. */ | |
210 exp = EXPMAX; | |
211 fraction = ((fractype) 1 << FRACBITS) - 1; | |
212 } | |
213 else if (isnan (src)) | |
214 { | |
215 exp = EXPMAX; | |
216 if (src->class == CLASS_QNAN || 1) | |
217 { | |
218 #ifdef QUIET_NAN_NEGATED | |
219 fraction |= QUIET_NAN - 1; | |
220 #else | |
221 fraction |= QUIET_NAN; | |
222 #endif | |
223 } | |
224 } | |
225 else if (isinf (src)) | |
226 { | |
227 exp = EXPMAX; | |
228 fraction = 0; | |
229 } | |
230 else if (iszero (src)) | |
231 { | |
232 exp = 0; | |
233 fraction = 0; | |
234 } | |
235 else if (fraction == 0) | |
236 { | |
237 exp = 0; | |
238 } | |
239 else | |
240 { | |
241 if (__builtin_expect (src->normal_exp < NORMAL_EXPMIN, 0)) | |
242 { | |
243 #ifdef NO_DENORMALS | |
244 /* Go straight to a zero representation if denormals are not | |
245 supported. The denormal handling would be harmless but | |
246 isn't unnecessary. */ | |
247 exp = 0; | |
248 fraction = 0; | |
249 #else /* NO_DENORMALS */ | |
250 /* This number's exponent is too low to fit into the bits | |
251 available in the number, so we'll store 0 in the exponent and | |
252 shift the fraction to the right to make up for it. */ | |
253 | |
254 int shift = NORMAL_EXPMIN - src->normal_exp; | |
255 | |
256 exp = 0; | |
257 | |
258 if (shift > FRAC_NBITS - NGARDS) | |
259 { | |
260 /* No point shifting, since it's more that 64 out. */ | |
261 fraction = 0; | |
262 } | |
263 else | |
264 { | |
265 int lowbit = (fraction & (((fractype)1 << shift) - 1)) ? 1 : 0; | |
266 fraction = (fraction >> shift) | lowbit; | |
267 } | |
268 if ((fraction & GARDMASK) == GARDMSB) | |
269 { | |
270 if ((fraction & (1 << NGARDS))) | |
271 fraction += GARDROUND + 1; | |
272 } | |
273 else | |
274 { | |
275 /* Add to the guards to round up. */ | |
276 fraction += GARDROUND; | |
277 } | |
278 /* Perhaps the rounding means we now need to change the | |
279 exponent, because the fraction is no longer denormal. */ | |
280 if (fraction >= IMPLICIT_1) | |
281 { | |
282 exp += 1; | |
283 } | |
284 fraction >>= NGARDS; | |
285 #endif /* NO_DENORMALS */ | |
286 } | |
287 else if (!LARGEST_EXPONENT_IS_NORMAL (FRAC_NBITS) | |
288 && __builtin_expect (src->normal_exp > EXPBIAS, 0)) | |
289 { | |
290 exp = EXPMAX; | |
291 fraction = 0; | |
292 } | |
293 else | |
294 { | |
295 exp = src->normal_exp + EXPBIAS; | |
296 if (!ROUND_TOWARDS_ZERO) | |
297 { | |
298 /* IF the gard bits are the all zero, but the first, then we're | |
299 half way between two numbers, choose the one which makes the | |
300 lsb of the answer 0. */ | |
301 if ((fraction & GARDMASK) == GARDMSB) | |
302 { | |
303 if (fraction & (1 << NGARDS)) | |
304 fraction += GARDROUND + 1; | |
305 } | |
306 else | |
307 { | |
308 /* Add a one to the guards to round up */ | |
309 fraction += GARDROUND; | |
310 } | |
311 if (fraction >= IMPLICIT_2) | |
312 { | |
313 fraction >>= 1; | |
314 exp += 1; | |
315 } | |
316 } | |
317 fraction >>= NGARDS; | |
318 | |
319 if (LARGEST_EXPONENT_IS_NORMAL (FRAC_NBITS) && exp > EXPMAX) | |
320 { | |
321 /* Saturate on overflow. */ | |
322 exp = EXPMAX; | |
323 fraction = ((fractype) 1 << FRACBITS) - 1; | |
324 } | |
325 } | |
326 } | |
327 | |
328 /* We previously used bitfields to store the number, but this doesn't | |
329 handle little/big endian systems conveniently, so use shifts and | |
330 masks */ | |
331 #ifdef FLOAT_BIT_ORDER_MISMATCH | |
332 dst.bits.fraction = fraction; | |
333 dst.bits.exp = exp; | |
334 dst.bits.sign = sign; | |
335 #else | |
336 # if defined TFLOAT && defined HALFFRACBITS | |
337 { | |
338 halffractype high, low, unity; | |
339 int lowsign, lowexp; | |
340 | |
341 unity = (halffractype) 1 << HALFFRACBITS; | |
342 | |
343 /* Set HIGH to the high double's significand, masking out the implicit 1. | |
344 Set LOW to the low double's full significand. */ | |
345 high = (fraction >> (FRACBITS - HALFFRACBITS)) & (unity - 1); | |
346 low = fraction & (unity * 2 - 1); | |
347 | |
348 /* Get the initial sign and exponent of the low double. */ | |
349 lowexp = exp - HALFFRACBITS - 1; | |
350 lowsign = sign; | |
351 | |
352 /* HIGH should be rounded like a normal double, making |LOW| <= | |
353 0.5 ULP of HIGH. Assume round-to-nearest. */ | |
354 if (exp < EXPMAX) | |
355 if (low > unity || (low == unity && (high & 1) == 1)) | |
356 { | |
357 /* Round HIGH up and adjust LOW to match. */ | |
358 high++; | |
359 if (high == unity) | |
360 { | |
361 /* May make it infinite, but that's OK. */ | |
362 high = 0; | |
363 exp++; | |
364 } | |
365 low = unity * 2 - low; | |
366 lowsign ^= 1; | |
367 } | |
368 | |
369 high |= (halffractype) exp << HALFFRACBITS; | |
370 high |= (halffractype) sign << (HALFFRACBITS + EXPBITS); | |
371 | |
372 if (exp == EXPMAX || exp == 0 || low == 0) | |
373 low = 0; | |
374 else | |
375 { | |
376 while (lowexp > 0 && low < unity) | |
377 { | |
378 low <<= 1; | |
379 lowexp--; | |
380 } | |
381 | |
382 if (lowexp <= 0) | |
383 { | |
384 halffractype roundmsb, round; | |
385 int shift; | |
386 | |
387 shift = 1 - lowexp; | |
388 roundmsb = (1 << (shift - 1)); | |
389 round = low & ((roundmsb << 1) - 1); | |
390 | |
391 low >>= shift; | |
392 lowexp = 0; | |
393 | |
394 if (round > roundmsb || (round == roundmsb && (low & 1) == 1)) | |
395 { | |
396 low++; | |
397 if (low == unity) | |
398 /* LOW rounds up to the smallest normal number. */ | |
399 lowexp++; | |
400 } | |
401 } | |
402 | |
403 low &= unity - 1; | |
404 low |= (halffractype) lowexp << HALFFRACBITS; | |
405 low |= (halffractype) lowsign << (HALFFRACBITS + EXPBITS); | |
406 } | |
407 dst.value_raw = ((fractype) high << HALFSHIFT) | low; | |
408 } | |
409 # else | |
410 dst.value_raw = fraction & ((((fractype)1) << FRACBITS) - (fractype)1); | |
411 dst.value_raw |= ((fractype) (exp & ((1 << EXPBITS) - 1))) << FRACBITS; | |
412 dst.value_raw |= ((fractype) (sign & 1)) << (FRACBITS | EXPBITS); | |
413 # endif | |
414 #endif | |
415 | |
416 #if defined(FLOAT_WORD_ORDER_MISMATCH) && !defined(FLOAT) | |
417 #ifdef TFLOAT | |
418 { | |
419 qrtrfractype tmp1 = dst.words[0]; | |
420 qrtrfractype tmp2 = dst.words[1]; | |
421 dst.words[0] = dst.words[3]; | |
422 dst.words[1] = dst.words[2]; | |
423 dst.words[2] = tmp2; | |
424 dst.words[3] = tmp1; | |
425 } | |
426 #else | |
427 { | |
428 halffractype tmp = dst.words[0]; | |
429 dst.words[0] = dst.words[1]; | |
430 dst.words[1] = tmp; | |
431 } | |
432 #endif | |
433 #endif | |
434 | |
435 return dst.value; | |
436 } | |
437 #endif | |
438 | |
439 #if defined(L_unpack_df) || defined(L_unpack_sf) || defined(L_unpack_tf) | |
440 void | |
441 unpack_d (FLO_union_type * src, fp_number_type * dst) | |
442 { | |
443 /* We previously used bitfields to store the number, but this doesn't | |
444 handle little/big endian systems conveniently, so use shifts and | |
445 masks */ | |
446 fractype fraction; | |
447 int exp; | |
448 int sign; | |
449 | |
450 #if defined(FLOAT_WORD_ORDER_MISMATCH) && !defined(FLOAT) | |
451 FLO_union_type swapped; | |
452 | |
453 #ifdef TFLOAT | |
454 swapped.words[0] = src->words[3]; | |
455 swapped.words[1] = src->words[2]; | |
456 swapped.words[2] = src->words[1]; | |
457 swapped.words[3] = src->words[0]; | |
458 #else | |
459 swapped.words[0] = src->words[1]; | |
460 swapped.words[1] = src->words[0]; | |
461 #endif | |
462 src = &swapped; | |
463 #endif | |
464 | |
465 #ifdef FLOAT_BIT_ORDER_MISMATCH | |
466 fraction = src->bits.fraction; | |
467 exp = src->bits.exp; | |
468 sign = src->bits.sign; | |
469 #else | |
470 # if defined TFLOAT && defined HALFFRACBITS | |
471 { | |
472 halffractype high, low; | |
473 | |
474 high = src->value_raw >> HALFSHIFT; | |
475 low = src->value_raw & (((fractype)1 << HALFSHIFT) - 1); | |
476 | |
477 fraction = high & ((((fractype)1) << HALFFRACBITS) - 1); | |
478 fraction <<= FRACBITS - HALFFRACBITS; | |
479 exp = ((int)(high >> HALFFRACBITS)) & ((1 << EXPBITS) - 1); | |
480 sign = ((int)(high >> (((HALFFRACBITS + EXPBITS))))) & 1; | |
481 | |
482 if (exp != EXPMAX && exp != 0 && low != 0) | |
483 { | |
484 int lowexp = ((int)(low >> HALFFRACBITS)) & ((1 << EXPBITS) - 1); | |
485 int lowsign = ((int)(low >> (((HALFFRACBITS + EXPBITS))))) & 1; | |
486 int shift; | |
487 fractype xlow; | |
488 | |
489 xlow = low & ((((fractype)1) << HALFFRACBITS) - 1); | |
490 if (lowexp) | |
491 xlow |= (((halffractype)1) << HALFFRACBITS); | |
492 else | |
493 lowexp = 1; | |
494 shift = (FRACBITS - HALFFRACBITS) - (exp - lowexp); | |
495 if (shift > 0) | |
496 xlow <<= shift; | |
497 else if (shift < 0) | |
498 xlow >>= -shift; | |
499 if (sign == lowsign) | |
500 fraction += xlow; | |
501 else if (fraction >= xlow) | |
502 fraction -= xlow; | |
503 else | |
504 { | |
505 /* The high part is a power of two but the full number is lower. | |
506 This code will leave the implicit 1 in FRACTION, but we'd | |
507 have added that below anyway. */ | |
508 fraction = (((fractype) 1 << FRACBITS) - xlow) << 1; | |
509 exp--; | |
510 } | |
511 } | |
512 } | |
513 # else | |
514 fraction = src->value_raw & ((((fractype)1) << FRACBITS) - 1); | |
515 exp = ((int)(src->value_raw >> FRACBITS)) & ((1 << EXPBITS) - 1); | |
516 sign = ((int)(src->value_raw >> (FRACBITS + EXPBITS))) & 1; | |
517 # endif | |
518 #endif | |
519 | |
520 dst->sign = sign; | |
521 if (exp == 0) | |
522 { | |
523 /* Hmm. Looks like 0 */ | |
524 if (fraction == 0 | |
525 #ifdef NO_DENORMALS | |
526 || 1 | |
527 #endif | |
528 ) | |
529 { | |
530 /* tastes like zero */ | |
531 dst->class = CLASS_ZERO; | |
532 } | |
533 else | |
534 { | |
535 /* Zero exponent with nonzero fraction - it's denormalized, | |
536 so there isn't a leading implicit one - we'll shift it so | |
537 it gets one. */ | |
538 dst->normal_exp = exp - EXPBIAS + 1; | |
539 fraction <<= NGARDS; | |
540 | |
541 dst->class = CLASS_NUMBER; | |
542 #if 1 | |
543 while (fraction < IMPLICIT_1) | |
544 { | |
545 fraction <<= 1; | |
546 dst->normal_exp--; | |
547 } | |
548 #endif | |
549 dst->fraction.ll = fraction; | |
550 } | |
551 } | |
552 else if (!LARGEST_EXPONENT_IS_NORMAL (FRAC_NBITS) | |
553 && __builtin_expect (exp == EXPMAX, 0)) | |
554 { | |
555 /* Huge exponent*/ | |
556 if (fraction == 0) | |
557 { | |
558 /* Attached to a zero fraction - means infinity */ | |
559 dst->class = CLASS_INFINITY; | |
560 } | |
561 else | |
562 { | |
563 /* Nonzero fraction, means nan */ | |
564 #ifdef QUIET_NAN_NEGATED | |
565 if ((fraction & QUIET_NAN) == 0) | |
566 #else | |
567 if (fraction & QUIET_NAN) | |
568 #endif | |
569 { | |
570 dst->class = CLASS_QNAN; | |
571 } | |
572 else | |
573 { | |
574 dst->class = CLASS_SNAN; | |
575 } | |
576 /* Keep the fraction part as the nan number */ | |
577 dst->fraction.ll = fraction; | |
578 } | |
579 } | |
580 else | |
581 { | |
582 /* Nothing strange about this number */ | |
583 dst->normal_exp = exp - EXPBIAS; | |
584 dst->class = CLASS_NUMBER; | |
585 dst->fraction.ll = (fraction << NGARDS) | IMPLICIT_1; | |
586 } | |
587 } | |
588 #endif /* L_unpack_df || L_unpack_sf */ | |
589 | |
590 #if defined(L_addsub_sf) || defined(L_addsub_df) || defined(L_addsub_tf) | |
591 static const fp_number_type * | |
592 _fpadd_parts (fp_number_type * a, | |
593 fp_number_type * b, | |
594 fp_number_type * tmp) | |
595 { | |
596 intfrac tfraction; | |
597 | |
598 /* Put commonly used fields in local variables. */ | |
599 int a_normal_exp; | |
600 int b_normal_exp; | |
601 fractype a_fraction; | |
602 fractype b_fraction; | |
603 | |
604 if (isnan (a)) | |
605 { | |
606 return a; | |
607 } | |
608 if (isnan (b)) | |
609 { | |
610 return b; | |
611 } | |
612 if (isinf (a)) | |
613 { | |
614 /* Adding infinities with opposite signs yields a NaN. */ | |
615 if (isinf (b) && a->sign != b->sign) | |
616 return makenan (); | |
617 return a; | |
618 } | |
619 if (isinf (b)) | |
620 { | |
621 return b; | |
622 } | |
623 if (iszero (b)) | |
624 { | |
625 if (iszero (a)) | |
626 { | |
627 *tmp = *a; | |
628 tmp->sign = a->sign & b->sign; | |
629 return tmp; | |
630 } | |
631 return a; | |
632 } | |
633 if (iszero (a)) | |
634 { | |
635 return b; | |
636 } | |
637 | |
638 /* Got two numbers. shift the smaller and increment the exponent till | |
639 they're the same */ | |
640 { | |
641 int diff; | |
642 int sdiff; | |
643 | |
644 a_normal_exp = a->normal_exp; | |
645 b_normal_exp = b->normal_exp; | |
646 a_fraction = a->fraction.ll; | |
647 b_fraction = b->fraction.ll; | |
648 | |
649 diff = a_normal_exp - b_normal_exp; | |
650 sdiff = diff; | |
651 | |
652 if (diff < 0) | |
653 diff = -diff; | |
654 if (diff < FRAC_NBITS) | |
655 { | |
656 if (sdiff > 0) | |
657 { | |
658 b_normal_exp += diff; | |
659 LSHIFT (b_fraction, diff); | |
660 } | |
661 else if (sdiff < 0) | |
662 { | |
663 a_normal_exp += diff; | |
664 LSHIFT (a_fraction, diff); | |
665 } | |
666 } | |
667 else | |
668 { | |
669 /* Somethings's up.. choose the biggest */ | |
670 if (a_normal_exp > b_normal_exp) | |
671 { | |
672 b_normal_exp = a_normal_exp; | |
673 b_fraction = 0; | |
674 } | |
675 else | |
676 { | |
677 a_normal_exp = b_normal_exp; | |
678 a_fraction = 0; | |
679 } | |
680 } | |
681 } | |
682 | |
683 if (a->sign != b->sign) | |
684 { | |
685 if (a->sign) | |
686 { | |
687 tfraction = -a_fraction + b_fraction; | |
688 } | |
689 else | |
690 { | |
691 tfraction = a_fraction - b_fraction; | |
692 } | |
693 if (tfraction >= 0) | |
694 { | |
695 tmp->sign = 0; | |
696 tmp->normal_exp = a_normal_exp; | |
697 tmp->fraction.ll = tfraction; | |
698 } | |
699 else | |
700 { | |
701 tmp->sign = 1; | |
702 tmp->normal_exp = a_normal_exp; | |
703 tmp->fraction.ll = -tfraction; | |
704 } | |
705 /* and renormalize it */ | |
706 | |
707 while (tmp->fraction.ll < IMPLICIT_1 && tmp->fraction.ll) | |
708 { | |
709 tmp->fraction.ll <<= 1; | |
710 tmp->normal_exp--; | |
711 } | |
712 } | |
713 else | |
714 { | |
715 tmp->sign = a->sign; | |
716 tmp->normal_exp = a_normal_exp; | |
717 tmp->fraction.ll = a_fraction + b_fraction; | |
718 } | |
719 tmp->class = CLASS_NUMBER; | |
720 /* Now the fraction is added, we have to shift down to renormalize the | |
721 number */ | |
722 | |
723 if (tmp->fraction.ll >= IMPLICIT_2) | |
724 { | |
725 LSHIFT (tmp->fraction.ll, 1); | |
726 tmp->normal_exp++; | |
727 } | |
728 return tmp; | |
729 } | |
730 | |
731 FLO_type | |
732 add (FLO_type arg_a, FLO_type arg_b) | |
733 { | |
734 fp_number_type a; | |
735 fp_number_type b; | |
736 fp_number_type tmp; | |
737 const fp_number_type *res; | |
738 FLO_union_type au, bu; | |
739 | |
740 au.value = arg_a; | |
741 bu.value = arg_b; | |
742 | |
743 unpack_d (&au, &a); | |
744 unpack_d (&bu, &b); | |
745 | |
746 res = _fpadd_parts (&a, &b, &tmp); | |
747 | |
748 return pack_d (res); | |
749 } | |
750 | |
751 FLO_type | |
752 sub (FLO_type arg_a, FLO_type arg_b) | |
753 { | |
754 fp_number_type a; | |
755 fp_number_type b; | |
756 fp_number_type tmp; | |
757 const fp_number_type *res; | |
758 FLO_union_type au, bu; | |
759 | |
760 au.value = arg_a; | |
761 bu.value = arg_b; | |
762 | |
763 unpack_d (&au, &a); | |
764 unpack_d (&bu, &b); | |
765 | |
766 b.sign ^= 1; | |
767 | |
768 res = _fpadd_parts (&a, &b, &tmp); | |
769 | |
770 return pack_d (res); | |
771 } | |
772 #endif /* L_addsub_sf || L_addsub_df */ | |
773 | |
774 #if defined(L_mul_sf) || defined(L_mul_df) || defined(L_mul_tf) | |
775 static inline __attribute__ ((__always_inline__)) const fp_number_type * | |
776 _fpmul_parts ( fp_number_type * a, | |
777 fp_number_type * b, | |
778 fp_number_type * tmp) | |
779 { | |
780 fractype low = 0; | |
781 fractype high = 0; | |
782 | |
783 if (isnan (a)) | |
784 { | |
785 a->sign = a->sign != b->sign; | |
786 return a; | |
787 } | |
788 if (isnan (b)) | |
789 { | |
790 b->sign = a->sign != b->sign; | |
791 return b; | |
792 } | |
793 if (isinf (a)) | |
794 { | |
795 if (iszero (b)) | |
796 return makenan (); | |
797 a->sign = a->sign != b->sign; | |
798 return a; | |
799 } | |
800 if (isinf (b)) | |
801 { | |
802 if (iszero (a)) | |
803 { | |
804 return makenan (); | |
805 } | |
806 b->sign = a->sign != b->sign; | |
807 return b; | |
808 } | |
809 if (iszero (a)) | |
810 { | |
811 a->sign = a->sign != b->sign; | |
812 return a; | |
813 } | |
814 if (iszero (b)) | |
815 { | |
816 b->sign = a->sign != b->sign; | |
817 return b; | |
818 } | |
819 | |
820 /* Calculate the mantissa by multiplying both numbers to get a | |
821 twice-as-wide number. */ | |
822 { | |
823 #if defined(NO_DI_MODE) || defined(TFLOAT) | |
824 { | |
825 fractype x = a->fraction.ll; | |
826 fractype ylow = b->fraction.ll; | |
827 fractype yhigh = 0; | |
828 int bit; | |
829 | |
830 /* ??? This does multiplies one bit at a time. Optimize. */ | |
831 for (bit = 0; bit < FRAC_NBITS; bit++) | |
832 { | |
833 int carry; | |
834 | |
835 if (x & 1) | |
836 { | |
837 carry = (low += ylow) < ylow; | |
838 high += yhigh + carry; | |
839 } | |
840 yhigh <<= 1; | |
841 if (ylow & FRACHIGH) | |
842 { | |
843 yhigh |= 1; | |
844 } | |
845 ylow <<= 1; | |
846 x >>= 1; | |
847 } | |
848 } | |
849 #elif defined(FLOAT) | |
850 /* Multiplying two USIs to get a UDI, we're safe. */ | |
851 { | |
852 UDItype answer = (UDItype)a->fraction.ll * (UDItype)b->fraction.ll; | |
853 | |
854 high = answer >> BITS_PER_SI; | |
855 low = answer; | |
856 } | |
857 #else | |
858 /* fractype is DImode, but we need the result to be twice as wide. | |
859 Assuming a widening multiply from DImode to TImode is not | |
860 available, build one by hand. */ | |
861 { | |
862 USItype nl = a->fraction.ll; | |
863 USItype nh = a->fraction.ll >> BITS_PER_SI; | |
864 USItype ml = b->fraction.ll; | |
865 USItype mh = b->fraction.ll >> BITS_PER_SI; | |
866 UDItype pp_ll = (UDItype) ml * nl; | |
867 UDItype pp_hl = (UDItype) mh * nl; | |
868 UDItype pp_lh = (UDItype) ml * nh; | |
869 UDItype pp_hh = (UDItype) mh * nh; | |
870 UDItype res2 = 0; | |
871 UDItype res0 = 0; | |
872 UDItype ps_hh__ = pp_hl + pp_lh; | |
873 if (ps_hh__ < pp_hl) | |
874 res2 += (UDItype)1 << BITS_PER_SI; | |
875 pp_hl = (UDItype)(USItype)ps_hh__ << BITS_PER_SI; | |
876 res0 = pp_ll + pp_hl; | |
877 if (res0 < pp_ll) | |
878 res2++; | |
879 res2 += (ps_hh__ >> BITS_PER_SI) + pp_hh; | |
880 high = res2; | |
881 low = res0; | |
882 } | |
883 #endif | |
884 } | |
885 | |
886 tmp->normal_exp = a->normal_exp + b->normal_exp | |
887 + FRAC_NBITS - (FRACBITS + NGARDS); | |
888 tmp->sign = a->sign != b->sign; | |
889 while (high >= IMPLICIT_2) | |
890 { | |
891 tmp->normal_exp++; | |
892 if (high & 1) | |
893 { | |
894 low >>= 1; | |
895 low |= FRACHIGH; | |
896 } | |
897 high >>= 1; | |
898 } | |
899 while (high < IMPLICIT_1) | |
900 { | |
901 tmp->normal_exp--; | |
902 | |
903 high <<= 1; | |
904 if (low & FRACHIGH) | |
905 high |= 1; | |
906 low <<= 1; | |
907 } | |
908 | |
909 if (!ROUND_TOWARDS_ZERO && (high & GARDMASK) == GARDMSB) | |
910 { | |
911 if (high & (1 << NGARDS)) | |
912 { | |
913 /* Because we're half way, we would round to even by adding | |
914 GARDROUND + 1, except that's also done in the packing | |
915 function, and rounding twice will lose precision and cause | |
916 the result to be too far off. Example: 32-bit floats with | |
917 bit patterns 0xfff * 0x3f800400 ~= 0xfff (less than 0.5ulp | |
918 off), not 0x1000 (more than 0.5ulp off). */ | |
919 } | |
920 else if (low) | |
921 { | |
922 /* We're a further than half way by a small amount corresponding | |
923 to the bits set in "low". Knowing that, we round here and | |
924 not in pack_d, because there we don't have "low" available | |
925 anymore. */ | |
926 high += GARDROUND + 1; | |
927 | |
928 /* Avoid further rounding in pack_d. */ | |
929 high &= ~(fractype) GARDMASK; | |
930 } | |
931 } | |
932 tmp->fraction.ll = high; | |
933 tmp->class = CLASS_NUMBER; | |
934 return tmp; | |
935 } | |
936 | |
937 FLO_type | |
938 multiply (FLO_type arg_a, FLO_type arg_b) | |
939 { | |
940 fp_number_type a; | |
941 fp_number_type b; | |
942 fp_number_type tmp; | |
943 const fp_number_type *res; | |
944 FLO_union_type au, bu; | |
945 | |
946 au.value = arg_a; | |
947 bu.value = arg_b; | |
948 | |
949 unpack_d (&au, &a); | |
950 unpack_d (&bu, &b); | |
951 | |
952 res = _fpmul_parts (&a, &b, &tmp); | |
953 | |
954 return pack_d (res); | |
955 } | |
956 #endif /* L_mul_sf || L_mul_df || L_mul_tf */ | |
957 | |
958 #if defined(L_div_sf) || defined(L_div_df) || defined(L_div_tf) | |
959 static inline __attribute__ ((__always_inline__)) const fp_number_type * | |
960 _fpdiv_parts (fp_number_type * a, | |
961 fp_number_type * b) | |
962 { | |
963 fractype bit; | |
964 fractype numerator; | |
965 fractype denominator; | |
966 fractype quotient; | |
967 | |
968 if (isnan (a)) | |
969 { | |
970 return a; | |
971 } | |
972 if (isnan (b)) | |
973 { | |
974 return b; | |
975 } | |
976 | |
977 a->sign = a->sign ^ b->sign; | |
978 | |
979 if (isinf (a) || iszero (a)) | |
980 { | |
981 if (a->class == b->class) | |
982 return makenan (); | |
983 return a; | |
984 } | |
985 | |
986 if (isinf (b)) | |
987 { | |
988 a->fraction.ll = 0; | |
989 a->normal_exp = 0; | |
990 return a; | |
991 } | |
992 if (iszero (b)) | |
993 { | |
994 a->class = CLASS_INFINITY; | |
995 return a; | |
996 } | |
997 | |
998 /* Calculate the mantissa by multiplying both 64bit numbers to get a | |
999 128 bit number */ | |
1000 { | |
1001 /* quotient = | |
1002 ( numerator / denominator) * 2^(numerator exponent - denominator exponent) | |
1003 */ | |
1004 | |
1005 a->normal_exp = a->normal_exp - b->normal_exp; | |
1006 numerator = a->fraction.ll; | |
1007 denominator = b->fraction.ll; | |
1008 | |
1009 if (numerator < denominator) | |
1010 { | |
1011 /* Fraction will be less than 1.0 */ | |
1012 numerator *= 2; | |
1013 a->normal_exp--; | |
1014 } | |
1015 bit = IMPLICIT_1; | |
1016 quotient = 0; | |
1017 /* ??? Does divide one bit at a time. Optimize. */ | |
1018 while (bit) | |
1019 { | |
1020 if (numerator >= denominator) | |
1021 { | |
1022 quotient |= bit; | |
1023 numerator -= denominator; | |
1024 } | |
1025 bit >>= 1; | |
1026 numerator *= 2; | |
1027 } | |
1028 | |
1029 if (!ROUND_TOWARDS_ZERO && (quotient & GARDMASK) == GARDMSB) | |
1030 { | |
1031 if (quotient & (1 << NGARDS)) | |
1032 { | |
1033 /* Because we're half way, we would round to even by adding | |
1034 GARDROUND + 1, except that's also done in the packing | |
1035 function, and rounding twice will lose precision and cause | |
1036 the result to be too far off. */ | |
1037 } | |
1038 else if (numerator) | |
1039 { | |
1040 /* We're a further than half way by the small amount | |
1041 corresponding to the bits set in "numerator". Knowing | |
1042 that, we round here and not in pack_d, because there we | |
1043 don't have "numerator" available anymore. */ | |
1044 quotient += GARDROUND + 1; | |
1045 | |
1046 /* Avoid further rounding in pack_d. */ | |
1047 quotient &= ~(fractype) GARDMASK; | |
1048 } | |
1049 } | |
1050 | |
1051 a->fraction.ll = quotient; | |
1052 return (a); | |
1053 } | |
1054 } | |
1055 | |
1056 FLO_type | |
1057 divide (FLO_type arg_a, FLO_type arg_b) | |
1058 { | |
1059 fp_number_type a; | |
1060 fp_number_type b; | |
1061 const fp_number_type *res; | |
1062 FLO_union_type au, bu; | |
1063 | |
1064 au.value = arg_a; | |
1065 bu.value = arg_b; | |
1066 | |
1067 unpack_d (&au, &a); | |
1068 unpack_d (&bu, &b); | |
1069 | |
1070 res = _fpdiv_parts (&a, &b); | |
1071 | |
1072 return pack_d (res); | |
1073 } | |
1074 #endif /* L_div_sf || L_div_df */ | |
1075 | |
1076 #if defined(L_fpcmp_parts_sf) || defined(L_fpcmp_parts_df) \ | |
1077 || defined(L_fpcmp_parts_tf) | |
1078 /* according to the demo, fpcmp returns a comparison with 0... thus | |
1079 a<b -> -1 | |
1080 a==b -> 0 | |
1081 a>b -> +1 | |
1082 */ | |
1083 | |
1084 int | |
1085 __fpcmp_parts (fp_number_type * a, fp_number_type * b) | |
1086 { | |
1087 #if 0 | |
1088 /* either nan -> unordered. Must be checked outside of this routine. */ | |
1089 if (isnan (a) && isnan (b)) | |
1090 { | |
1091 return 1; /* still unordered! */ | |
1092 } | |
1093 #endif | |
1094 | |
1095 if (isnan (a) || isnan (b)) | |
1096 { | |
1097 return 1; /* how to indicate unordered compare? */ | |
1098 } | |
1099 if (isinf (a) && isinf (b)) | |
1100 { | |
1101 /* +inf > -inf, but +inf != +inf */ | |
1102 /* b \a| +inf(0)| -inf(1) | |
1103 ______\+--------+-------- | |
1104 +inf(0)| a==b(0)| a<b(-1) | |
1105 -------+--------+-------- | |
1106 -inf(1)| a>b(1) | a==b(0) | |
1107 -------+--------+-------- | |
1108 So since unordered must be nonzero, just line up the columns... | |
1109 */ | |
1110 return b->sign - a->sign; | |
1111 } | |
1112 /* but not both... */ | |
1113 if (isinf (a)) | |
1114 { | |
1115 return a->sign ? -1 : 1; | |
1116 } | |
1117 if (isinf (b)) | |
1118 { | |
1119 return b->sign ? 1 : -1; | |
1120 } | |
1121 if (iszero (a) && iszero (b)) | |
1122 { | |
1123 return 0; | |
1124 } | |
1125 if (iszero (a)) | |
1126 { | |
1127 return b->sign ? 1 : -1; | |
1128 } | |
1129 if (iszero (b)) | |
1130 { | |
1131 return a->sign ? -1 : 1; | |
1132 } | |
1133 /* now both are "normal". */ | |
1134 if (a->sign != b->sign) | |
1135 { | |
1136 /* opposite signs */ | |
1137 return a->sign ? -1 : 1; | |
1138 } | |
1139 /* same sign; exponents? */ | |
1140 if (a->normal_exp > b->normal_exp) | |
1141 { | |
1142 return a->sign ? -1 : 1; | |
1143 } | |
1144 if (a->normal_exp < b->normal_exp) | |
1145 { | |
1146 return a->sign ? 1 : -1; | |
1147 } | |
1148 /* same exponents; check size. */ | |
1149 if (a->fraction.ll > b->fraction.ll) | |
1150 { | |
1151 return a->sign ? -1 : 1; | |
1152 } | |
1153 if (a->fraction.ll < b->fraction.ll) | |
1154 { | |
1155 return a->sign ? 1 : -1; | |
1156 } | |
1157 /* after all that, they're equal. */ | |
1158 return 0; | |
1159 } | |
1160 #endif | |
1161 | |
1162 #if defined(L_compare_sf) || defined(L_compare_df) || defined(L_compoare_tf) | |
1163 CMPtype | |
1164 compare (FLO_type arg_a, FLO_type arg_b) | |
1165 { | |
1166 fp_number_type a; | |
1167 fp_number_type b; | |
1168 FLO_union_type au, bu; | |
1169 | |
1170 au.value = arg_a; | |
1171 bu.value = arg_b; | |
1172 | |
1173 unpack_d (&au, &a); | |
1174 unpack_d (&bu, &b); | |
1175 | |
1176 return __fpcmp_parts (&a, &b); | |
1177 } | |
1178 #endif /* L_compare_sf || L_compare_df */ | |
1179 | |
1180 /* These should be optimized for their specific tasks someday. */ | |
1181 | |
1182 #if defined(L_eq_sf) || defined(L_eq_df) || defined(L_eq_tf) | |
1183 CMPtype | |
1184 _eq_f2 (FLO_type arg_a, FLO_type arg_b) | |
1185 { | |
1186 fp_number_type a; | |
1187 fp_number_type b; | |
1188 FLO_union_type au, bu; | |
1189 | |
1190 au.value = arg_a; | |
1191 bu.value = arg_b; | |
1192 | |
1193 unpack_d (&au, &a); | |
1194 unpack_d (&bu, &b); | |
1195 | |
1196 if (isnan (&a) || isnan (&b)) | |
1197 return 1; /* false, truth == 0 */ | |
1198 | |
1199 return __fpcmp_parts (&a, &b) ; | |
1200 } | |
1201 #endif /* L_eq_sf || L_eq_df */ | |
1202 | |
1203 #if defined(L_ne_sf) || defined(L_ne_df) || defined(L_ne_tf) | |
1204 CMPtype | |
1205 _ne_f2 (FLO_type arg_a, FLO_type arg_b) | |
1206 { | |
1207 fp_number_type a; | |
1208 fp_number_type b; | |
1209 FLO_union_type au, bu; | |
1210 | |
1211 au.value = arg_a; | |
1212 bu.value = arg_b; | |
1213 | |
1214 unpack_d (&au, &a); | |
1215 unpack_d (&bu, &b); | |
1216 | |
1217 if (isnan (&a) || isnan (&b)) | |
1218 return 1; /* true, truth != 0 */ | |
1219 | |
1220 return __fpcmp_parts (&a, &b) ; | |
1221 } | |
1222 #endif /* L_ne_sf || L_ne_df */ | |
1223 | |
1224 #if defined(L_gt_sf) || defined(L_gt_df) || defined(L_gt_tf) | |
1225 CMPtype | |
1226 _gt_f2 (FLO_type arg_a, FLO_type arg_b) | |
1227 { | |
1228 fp_number_type a; | |
1229 fp_number_type b; | |
1230 FLO_union_type au, bu; | |
1231 | |
1232 au.value = arg_a; | |
1233 bu.value = arg_b; | |
1234 | |
1235 unpack_d (&au, &a); | |
1236 unpack_d (&bu, &b); | |
1237 | |
1238 if (isnan (&a) || isnan (&b)) | |
1239 return -1; /* false, truth > 0 */ | |
1240 | |
1241 return __fpcmp_parts (&a, &b); | |
1242 } | |
1243 #endif /* L_gt_sf || L_gt_df */ | |
1244 | |
1245 #if defined(L_ge_sf) || defined(L_ge_df) || defined(L_ge_tf) | |
1246 CMPtype | |
1247 _ge_f2 (FLO_type arg_a, FLO_type arg_b) | |
1248 { | |
1249 fp_number_type a; | |
1250 fp_number_type b; | |
1251 FLO_union_type au, bu; | |
1252 | |
1253 au.value = arg_a; | |
1254 bu.value = arg_b; | |
1255 | |
1256 unpack_d (&au, &a); | |
1257 unpack_d (&bu, &b); | |
1258 | |
1259 if (isnan (&a) || isnan (&b)) | |
1260 return -1; /* false, truth >= 0 */ | |
1261 return __fpcmp_parts (&a, &b) ; | |
1262 } | |
1263 #endif /* L_ge_sf || L_ge_df */ | |
1264 | |
1265 #if defined(L_lt_sf) || defined(L_lt_df) || defined(L_lt_tf) | |
1266 CMPtype | |
1267 _lt_f2 (FLO_type arg_a, FLO_type arg_b) | |
1268 { | |
1269 fp_number_type a; | |
1270 fp_number_type b; | |
1271 FLO_union_type au, bu; | |
1272 | |
1273 au.value = arg_a; | |
1274 bu.value = arg_b; | |
1275 | |
1276 unpack_d (&au, &a); | |
1277 unpack_d (&bu, &b); | |
1278 | |
1279 if (isnan (&a) || isnan (&b)) | |
1280 return 1; /* false, truth < 0 */ | |
1281 | |
1282 return __fpcmp_parts (&a, &b); | |
1283 } | |
1284 #endif /* L_lt_sf || L_lt_df */ | |
1285 | |
1286 #if defined(L_le_sf) || defined(L_le_df) || defined(L_le_tf) | |
1287 CMPtype | |
1288 _le_f2 (FLO_type arg_a, FLO_type arg_b) | |
1289 { | |
1290 fp_number_type a; | |
1291 fp_number_type b; | |
1292 FLO_union_type au, bu; | |
1293 | |
1294 au.value = arg_a; | |
1295 bu.value = arg_b; | |
1296 | |
1297 unpack_d (&au, &a); | |
1298 unpack_d (&bu, &b); | |
1299 | |
1300 if (isnan (&a) || isnan (&b)) | |
1301 return 1; /* false, truth <= 0 */ | |
1302 | |
1303 return __fpcmp_parts (&a, &b) ; | |
1304 } | |
1305 #endif /* L_le_sf || L_le_df */ | |
1306 | |
1307 #if defined(L_unord_sf) || defined(L_unord_df) || defined(L_unord_tf) | |
1308 CMPtype | |
1309 _unord_f2 (FLO_type arg_a, FLO_type arg_b) | |
1310 { | |
1311 fp_number_type a; | |
1312 fp_number_type b; | |
1313 FLO_union_type au, bu; | |
1314 | |
1315 au.value = arg_a; | |
1316 bu.value = arg_b; | |
1317 | |
1318 unpack_d (&au, &a); | |
1319 unpack_d (&bu, &b); | |
1320 | |
1321 return (isnan (&a) || isnan (&b)); | |
1322 } | |
1323 #endif /* L_unord_sf || L_unord_df */ | |
1324 | |
1325 #if defined(L_si_to_sf) || defined(L_si_to_df) || defined(L_si_to_tf) | |
1326 FLO_type | |
1327 si_to_float (SItype arg_a) | |
1328 { | |
1329 fp_number_type in; | |
1330 | |
1331 in.class = CLASS_NUMBER; | |
1332 in.sign = arg_a < 0; | |
1333 if (!arg_a) | |
1334 { | |
1335 in.class = CLASS_ZERO; | |
1336 } | |
1337 else | |
1338 { | |
1339 USItype uarg; | |
1340 int shift; | |
1341 in.normal_exp = FRACBITS + NGARDS; | |
1342 if (in.sign) | |
1343 { | |
1344 /* Special case for minint, since there is no +ve integer | |
1345 representation for it */ | |
1346 if (arg_a == (- MAX_SI_INT - 1)) | |
1347 { | |
1348 return (FLO_type)(- MAX_SI_INT - 1); | |
1349 } | |
1350 uarg = (-arg_a); | |
1351 } | |
1352 else | |
1353 uarg = arg_a; | |
1354 | |
1355 in.fraction.ll = uarg; | |
1356 shift = clzusi (uarg) - (BITS_PER_SI - 1 - FRACBITS - NGARDS); | |
1357 if (shift > 0) | |
1358 { | |
1359 in.fraction.ll <<= shift; | |
1360 in.normal_exp -= shift; | |
1361 } | |
1362 } | |
1363 return pack_d (&in); | |
1364 } | |
1365 #endif /* L_si_to_sf || L_si_to_df */ | |
1366 | |
1367 #if defined(L_usi_to_sf) || defined(L_usi_to_df) || defined(L_usi_to_tf) | |
1368 FLO_type | |
1369 usi_to_float (USItype arg_a) | |
1370 { | |
1371 fp_number_type in; | |
1372 | |
1373 in.sign = 0; | |
1374 if (!arg_a) | |
1375 { | |
1376 in.class = CLASS_ZERO; | |
1377 } | |
1378 else | |
1379 { | |
1380 int shift; | |
1381 in.class = CLASS_NUMBER; | |
1382 in.normal_exp = FRACBITS + NGARDS; | |
1383 in.fraction.ll = arg_a; | |
1384 | |
1385 shift = clzusi (arg_a) - (BITS_PER_SI - 1 - FRACBITS - NGARDS); | |
1386 if (shift < 0) | |
1387 { | |
1388 fractype guard = in.fraction.ll & (((fractype)1 << -shift) - 1); | |
1389 in.fraction.ll >>= -shift; | |
1390 in.fraction.ll |= (guard != 0); | |
1391 in.normal_exp -= shift; | |
1392 } | |
1393 else if (shift > 0) | |
1394 { | |
1395 in.fraction.ll <<= shift; | |
1396 in.normal_exp -= shift; | |
1397 } | |
1398 } | |
1399 return pack_d (&in); | |
1400 } | |
1401 #endif | |
1402 | |
1403 #if defined(L_sf_to_si) || defined(L_df_to_si) || defined(L_tf_to_si) | |
1404 SItype | |
1405 float_to_si (FLO_type arg_a) | |
1406 { | |
1407 fp_number_type a; | |
1408 SItype tmp; | |
1409 FLO_union_type au; | |
1410 | |
1411 au.value = arg_a; | |
1412 unpack_d (&au, &a); | |
1413 | |
1414 if (iszero (&a)) | |
1415 return 0; | |
1416 if (isnan (&a)) | |
1417 return 0; | |
1418 /* get reasonable MAX_SI_INT... */ | |
1419 if (isinf (&a)) | |
1420 return a.sign ? (-MAX_SI_INT)-1 : MAX_SI_INT; | |
1421 /* it is a number, but a small one */ | |
1422 if (a.normal_exp < 0) | |
1423 return 0; | |
1424 if (a.normal_exp > BITS_PER_SI - 2) | |
1425 return a.sign ? (-MAX_SI_INT)-1 : MAX_SI_INT; | |
1426 tmp = a.fraction.ll >> ((FRACBITS + NGARDS) - a.normal_exp); | |
1427 return a.sign ? (-tmp) : (tmp); | |
1428 } | |
1429 #endif /* L_sf_to_si || L_df_to_si */ | |
1430 | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
1431 #if defined(L_tf_to_usi) |
0 | 1432 USItype |
1433 float_to_usi (FLO_type arg_a) | |
1434 { | |
1435 fp_number_type a; | |
1436 FLO_union_type au; | |
1437 | |
1438 au.value = arg_a; | |
1439 unpack_d (&au, &a); | |
1440 | |
1441 if (iszero (&a)) | |
1442 return 0; | |
1443 if (isnan (&a)) | |
1444 return 0; | |
1445 /* it is a negative number */ | |
1446 if (a.sign) | |
1447 return 0; | |
1448 /* get reasonable MAX_USI_INT... */ | |
1449 if (isinf (&a)) | |
1450 return MAX_USI_INT; | |
1451 /* it is a number, but a small one */ | |
1452 if (a.normal_exp < 0) | |
1453 return 0; | |
1454 if (a.normal_exp > BITS_PER_SI - 1) | |
1455 return MAX_USI_INT; | |
1456 else if (a.normal_exp > (FRACBITS + NGARDS)) | |
1457 return a.fraction.ll << (a.normal_exp - (FRACBITS + NGARDS)); | |
1458 else | |
1459 return a.fraction.ll >> ((FRACBITS + NGARDS) - a.normal_exp); | |
1460 } | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
1461 #endif /* L_tf_to_usi */ |
0 | 1462 |
1463 #if defined(L_negate_sf) || defined(L_negate_df) || defined(L_negate_tf) | |
1464 FLO_type | |
1465 negate (FLO_type arg_a) | |
1466 { | |
1467 fp_number_type a; | |
1468 FLO_union_type au; | |
1469 | |
1470 au.value = arg_a; | |
1471 unpack_d (&au, &a); | |
1472 | |
1473 flip_sign (&a); | |
1474 return pack_d (&a); | |
1475 } | |
1476 #endif /* L_negate_sf || L_negate_df */ | |
1477 | |
1478 #ifdef FLOAT | |
1479 | |
1480 #if defined(L_make_sf) | |
1481 SFtype | |
1482 __make_fp(fp_class_type class, | |
1483 unsigned int sign, | |
1484 int exp, | |
1485 USItype frac) | |
1486 { | |
1487 fp_number_type in; | |
1488 | |
1489 in.class = class; | |
1490 in.sign = sign; | |
1491 in.normal_exp = exp; | |
1492 in.fraction.ll = frac; | |
1493 return pack_d (&in); | |
1494 } | |
1495 #endif /* L_make_sf */ | |
1496 | |
1497 #ifndef FLOAT_ONLY | |
1498 | |
1499 /* This enables one to build an fp library that supports float but not double. | |
1500 Otherwise, we would get an undefined reference to __make_dp. | |
1501 This is needed for some 8-bit ports that can't handle well values that | |
1502 are 8-bytes in size, so we just don't support double for them at all. */ | |
1503 | |
1504 #if defined(L_sf_to_df) | |
1505 DFtype | |
1506 sf_to_df (SFtype arg_a) | |
1507 { | |
1508 fp_number_type in; | |
1509 FLO_union_type au; | |
1510 | |
1511 au.value = arg_a; | |
1512 unpack_d (&au, &in); | |
1513 | |
1514 return __make_dp (in.class, in.sign, in.normal_exp, | |
1515 ((UDItype) in.fraction.ll) << F_D_BITOFF); | |
1516 } | |
1517 #endif /* L_sf_to_df */ | |
1518 | |
1519 #if defined(L_sf_to_tf) && defined(TMODES) | |
1520 TFtype | |
1521 sf_to_tf (SFtype arg_a) | |
1522 { | |
1523 fp_number_type in; | |
1524 FLO_union_type au; | |
1525 | |
1526 au.value = arg_a; | |
1527 unpack_d (&au, &in); | |
1528 | |
1529 return __make_tp (in.class, in.sign, in.normal_exp, | |
1530 ((UTItype) in.fraction.ll) << F_T_BITOFF); | |
1531 } | |
1532 #endif /* L_sf_to_df */ | |
1533 | |
1534 #endif /* ! FLOAT_ONLY */ | |
1535 #endif /* FLOAT */ | |
1536 | |
1537 #ifndef FLOAT | |
1538 | |
1539 extern SFtype __make_fp (fp_class_type, unsigned int, int, USItype); | |
1540 | |
1541 #if defined(L_make_df) | |
1542 DFtype | |
1543 __make_dp (fp_class_type class, unsigned int sign, int exp, UDItype frac) | |
1544 { | |
1545 fp_number_type in; | |
1546 | |
1547 in.class = class; | |
1548 in.sign = sign; | |
1549 in.normal_exp = exp; | |
1550 in.fraction.ll = frac; | |
1551 return pack_d (&in); | |
1552 } | |
1553 #endif /* L_make_df */ | |
1554 | |
1555 #if defined(L_df_to_sf) | |
1556 SFtype | |
1557 df_to_sf (DFtype arg_a) | |
1558 { | |
1559 fp_number_type in; | |
1560 USItype sffrac; | |
1561 FLO_union_type au; | |
1562 | |
1563 au.value = arg_a; | |
1564 unpack_d (&au, &in); | |
1565 | |
1566 sffrac = in.fraction.ll >> F_D_BITOFF; | |
1567 | |
1568 /* We set the lowest guard bit in SFFRAC if we discarded any non | |
1569 zero bits. */ | |
1570 if ((in.fraction.ll & (((USItype) 1 << F_D_BITOFF) - 1)) != 0) | |
1571 sffrac |= 1; | |
1572 | |
1573 return __make_fp (in.class, in.sign, in.normal_exp, sffrac); | |
1574 } | |
1575 #endif /* L_df_to_sf */ | |
1576 | |
1577 #if defined(L_df_to_tf) && defined(TMODES) \ | |
1578 && !defined(FLOAT) && !defined(TFLOAT) | |
1579 TFtype | |
1580 df_to_tf (DFtype arg_a) | |
1581 { | |
1582 fp_number_type in; | |
1583 FLO_union_type au; | |
1584 | |
1585 au.value = arg_a; | |
1586 unpack_d (&au, &in); | |
1587 | |
1588 return __make_tp (in.class, in.sign, in.normal_exp, | |
1589 ((UTItype) in.fraction.ll) << D_T_BITOFF); | |
1590 } | |
1591 #endif /* L_sf_to_df */ | |
1592 | |
1593 #ifdef TFLOAT | |
1594 #if defined(L_make_tf) | |
1595 TFtype | |
1596 __make_tp(fp_class_type class, | |
1597 unsigned int sign, | |
1598 int exp, | |
1599 UTItype frac) | |
1600 { | |
1601 fp_number_type in; | |
1602 | |
1603 in.class = class; | |
1604 in.sign = sign; | |
1605 in.normal_exp = exp; | |
1606 in.fraction.ll = frac; | |
1607 return pack_d (&in); | |
1608 } | |
1609 #endif /* L_make_tf */ | |
1610 | |
1611 #if defined(L_tf_to_df) | |
1612 DFtype | |
1613 tf_to_df (TFtype arg_a) | |
1614 { | |
1615 fp_number_type in; | |
1616 UDItype sffrac; | |
1617 FLO_union_type au; | |
1618 | |
1619 au.value = arg_a; | |
1620 unpack_d (&au, &in); | |
1621 | |
1622 sffrac = in.fraction.ll >> D_T_BITOFF; | |
1623 | |
1624 /* We set the lowest guard bit in SFFRAC if we discarded any non | |
1625 zero bits. */ | |
1626 if ((in.fraction.ll & (((UTItype) 1 << D_T_BITOFF) - 1)) != 0) | |
1627 sffrac |= 1; | |
1628 | |
1629 return __make_dp (in.class, in.sign, in.normal_exp, sffrac); | |
1630 } | |
1631 #endif /* L_tf_to_df */ | |
1632 | |
1633 #if defined(L_tf_to_sf) | |
1634 SFtype | |
1635 tf_to_sf (TFtype arg_a) | |
1636 { | |
1637 fp_number_type in; | |
1638 USItype sffrac; | |
1639 FLO_union_type au; | |
1640 | |
1641 au.value = arg_a; | |
1642 unpack_d (&au, &in); | |
1643 | |
1644 sffrac = in.fraction.ll >> F_T_BITOFF; | |
1645 | |
1646 /* We set the lowest guard bit in SFFRAC if we discarded any non | |
1647 zero bits. */ | |
1648 if ((in.fraction.ll & (((UTItype) 1 << F_T_BITOFF) - 1)) != 0) | |
1649 sffrac |= 1; | |
1650 | |
1651 return __make_fp (in.class, in.sign, in.normal_exp, sffrac); | |
1652 } | |
1653 #endif /* L_tf_to_sf */ | |
1654 #endif /* TFLOAT */ | |
1655 | |
1656 #endif /* ! FLOAT */ | |
1657 #endif /* !EXTENDED_FLOAT_STUBS */ |