Deleted Added
sdiff udiff text old ( 187808 ) new ( 219557 )
full compact
strtopf.c (187808) strtopf.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

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

53 switch(k & STRTOG_Retmask) {
54 case STRTOG_NoNumber:
55 case STRTOG_Zero:
56 L[0] = 0;
57 break;
58
59 case STRTOG_Normal:
60 case STRTOG_NaNbits:
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

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

53 switch(k & STRTOG_Retmask) {
54 case STRTOG_NoNumber:
55 case STRTOG_Zero:
56 L[0] = 0;
57 break;
58
59 case STRTOG_Normal:
60 case STRTOG_NaNbits:
61 L[0] = bits[0] & 0x7fffff | exp + 0x7f + 23 << 23;
61 L[0] = (bits[0] & 0x7fffff) | ((exp + 0x7f + 23) << 23);
62 break;
63
64 case STRTOG_Denormal:
65 L[0] = bits[0];
66 break;
67
68 case STRTOG_Infinite:
69 L[0] = 0x7f800000;
70 break;
71
72 case STRTOG_NaN:
73 L[0] = f_QNAN;
74 }
75 if (k & STRTOG_Neg)
76 L[0] |= 0x80000000L;
77 return k;
78 }
62 break;
63
64 case STRTOG_Denormal:
65 L[0] = bits[0];
66 break;
67
68 case STRTOG_Infinite:
69 L[0] = 0x7f800000;
70 break;
71
72 case STRTOG_NaN:
73 L[0] = f_QNAN;
74 }
75 if (k & STRTOG_Neg)
76 L[0] |= 0x80000000L;
77 return k;
78 }