Deleted Added
sdiff udiff text old ( 165744 ) new ( 182709 )
full compact
strtoIg.c (165744) strtoIg.c (182709)
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

--- 47 unchanged lines hidden (view full) ---

56 nb = fpi->nbits;
57 nb1 = nb & 31;
58 nb11 = (nb1 - 1) & 31;
59 nw = b->wds;
60 nw1 = nw - 1;
61 if (rv & STRTOG_Inexlo) {
62 swap = 0;
63 b1 = increment(b1);
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

--- 47 unchanged lines hidden (view full) ---

56 nb = fpi->nbits;
57 nb1 = nb & 31;
58 nb11 = (nb1 - 1) & 31;
59 nw = b->wds;
60 nw1 = nw - 1;
61 if (rv & STRTOG_Inexlo) {
62 swap = 0;
63 b1 = increment(b1);
64 if (fpi->sudden_underflow
65 && (rv & STRTOG_Retmask) == STRTOG_Zero) {
66 b1->x[0] = 0;
67 b1->x[nw1] = 1L << nb11;
68 rv1 += STRTOG_Normal - STRTOG_Zero;
69 rv1 &= ~STRTOG_Underflow;
64 if ((rv & STRTOG_Retmask) == STRTOG_Zero) {
65 if (fpi->sudden_underflow) {
66 b1->x[0] = 0;
67 b1->x[nw1] = 1L << nb11;
68 rv1 += STRTOG_Normal - STRTOG_Zero;
69 rv1 &= ~STRTOG_Underflow;
70 goto swapcheck;
71 }
72 rv1 &= STRTOG_Inexlo | STRTOG_Underflow | STRTOG_Zero;
73 rv1 |= STRTOG_Inexhi | STRTOG_Denormal;
70 goto swapcheck;
71 }
72 if (b1->wds > nw
73 || nb1 && b1->x[nw1] & 1L << nb1) {
74 if (++e1 > fpi->emax)
75 rv1 = STRTOG_Infinite | STRTOG_Inexhi;
76 rshift(b1, 1);
77 }

--- 56 unchanged lines hidden --- 		74 goto swapcheck;
75 }
76 if (b1->wds > nw
77 || nb1 && b1->x[nw1] & 1L << nb1) {
78 if (++e1 > fpi->emax)
79 rv1 = STRTOG_Infinite | STRTOG_Inexhi;
80 rshift(b1, 1);
81 }

--- 56 unchanged lines hidden ---