Deleted Added
sdiff udiff text old ( 187808 ) new ( 219557 )
full compact
strtopxL.c (187808) strtopxL.c (219557)
1/****************************************************************
2
3The author of this software is David M. Gay.
4
5Copyright (C) 1998, 2000 by Lucent Technologies
6All Rights Reserved
7
8Permission to use, copy, modify, and distribute this software and

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

77 case STRTOG_NaNbits:
78 L[_2] = bits[0];
79 L[_1] = bits[1];
80 L[_0] = (exp + 0x3fff + 63) << 16;
81 break;
82
83 case STRTOG_Infinite:
84 L[_0] = 0x7fff << 16;
1/****************************************************************
2
3The author of this software is David M. Gay.
4
5Copyright (C) 1998, 2000 by Lucent Technologies
6All Rights Reserved
7
8Permission to use, copy, modify, and distribute this software and

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

77 case STRTOG_NaNbits:
78 L[_2] = bits[0];
79 L[_1] = bits[1];
80 L[_0] = (exp + 0x3fff + 63) << 16;
81 break;
82
83 case STRTOG_Infinite:
84 L[_0] = 0x7fff << 16;
85 L[_1] = L[_2] = 0;
85 L[_1] = 0x80000000;
86 L[_2] = 0;
86 break;
87
88 case STRTOG_NaN:
89 L[0] = ld_QNAN0;
90 L[1] = ld_QNAN1;
91 L[2] = ld_QNAN2;
92 }
93 if (k & STRTOG_Neg)
94 L[_0] |= 0x80000000L;
95 return k;
96 }
87 break;
88
89 case STRTOG_NaN:
90 L[0] = ld_QNAN0;
91 L[1] = ld_QNAN1;
92 L[2] = ld_QNAN2;
93 }
94 if (k & STRTOG_Neg)
95 L[_0] |= 0x80000000L;
96 return k;
97 }