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] = 0x80000000;
86 L[_2] = 0;
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 }