| strtoIg.c (182709) | strtoIg.c (219557) |
|---|---|
| 1/**************************************************************** 2 3The author of this software is David M. Gay. 4 5Copyright (C) 1998 by Lucent Technologies 6All Rights Reserved 7 8Permission to use, copy, modify, and distribute this software and --- 60 unchanged lines hidden (view full) --- 69 rv1 &= ~STRTOG_Underflow; 70 goto swapcheck; 71 } 72 rv1 &= STRTOG_Inexlo | STRTOG_Underflow | STRTOG_Zero; 73 rv1 |= STRTOG_Inexhi | STRTOG_Denormal; 74 goto swapcheck; 75 } 76 if (b1->wds > nw | 1/**************************************************************** 2 3The author of this software is David M. Gay. 4 5Copyright (C) 1998 by Lucent Technologies 6All Rights Reserved 7 8Permission to use, copy, modify, and distribute this software and --- 60 unchanged lines hidden (view full) --- 69 rv1 &= ~STRTOG_Underflow; 70 goto swapcheck; 71 } 72 rv1 &= STRTOG_Inexlo | STRTOG_Underflow | STRTOG_Zero; 73 rv1 |= STRTOG_Inexhi | STRTOG_Denormal; 74 goto swapcheck; 75 } 76 if (b1->wds > nw |
| 77 || nb1 && b1->x[nw1] & 1L << nb1) { | 77 || (nb1 && b1->x[nw1] & 1L << nb1)) { |
| 78 if (++e1 > fpi->emax) 79 rv1 = STRTOG_Infinite | STRTOG_Inexhi; 80 rshift(b1, 1); 81 } 82 else if ((rv & STRTOG_Retmask) == STRTOG_Denormal) { 83 if (b1->x[nw1] & 1L << nb11) { 84 rv1 += STRTOG_Normal - STRTOG_Denormal; 85 rv1 &= ~STRTOG_Underflow; --- 52 unchanged lines hidden --- | 78 if (++e1 > fpi->emax) 79 rv1 = STRTOG_Infinite | STRTOG_Inexhi; 80 rshift(b1, 1); 81 } 82 else if ((rv & STRTOG_Retmask) == STRTOG_Denormal) { 83 if (b1->x[nw1] & 1L << nb11) { 84 rv1 += STRTOG_Normal - STRTOG_Denormal; 85 rv1 &= ~STRTOG_Underflow; --- 52 unchanged lines hidden --- |