cctools-845/as/atof-ieee.c

131 LITTLENUM_TYPE *words)
134 	words[0]= (LITTLENUM_TYPE)(((unsigned)-1)>>1);/* Zero the leftmost bit*/
135 	words[1]= -1;
136 	words[2]= -1;
137 	words[3]= -1;
138 	words[4]= -1;
139 	words[5]= -1;
158 LITTLENUM_TYPE *words)	/* Build the binary here. */
165 	int		precision; /* Number of 16-bit words in the format. */
214 		make_invalid_floating_point_number (words);
224 			words[0]=0x7f80;
225 			words[1]=0;
227 			words[0]=0x7ff0;
228 			words[1]=0;
229 			words[2]=0;
230 			words[3]=0;
233 			words[0] |= 0x8000;
236 		make_invalid_floating_point_number (words);
240 	gen_to_words(words, precision, exponent_bits);
247 LITTLENUM_TYPE *words,
264 			words[0]=0x0000;
266 			words[0]=0x8000;
267 		memset(&words[1], '\0', sizeof(LITTLENUM_TYPE) * (precision-1));
274 			words[0]=0x7fff;
275 			words[1]=0xffff;
277 			words[0]=0x7fff;
278 			words[1]=0xffff;
279 			words[2]=0xffff;
280 			words[3]=0xffff;
286 			words[0]=0x7f80;
287 			words[1]=0;
289 			words[0]=0x7ff0;
290 			words[1]=0;
291 			words[2]=0;
292 			words[3]=0;
298 			words[0]=0xff80;
299 			words[1]=0x0;
301 			words[0]=0xfff0;
302 			words[1]=0x0;
303 			words[2]=0x0;
304 			words[3]=0x0;
334 	lp = words;
358 					words[0]=0x7f80;
359 					words[1]=0;
361 					words[0]=0x7ff0;
362 					words[1]=0;
363 					words[2]=0;
364 					words[3]=0;
367 					words[0] |= 0x8000;
370 				make_invalid_floating_point_number(words);
402 		while(lp<words+precision)
443 					for (carry = 1; carry && (lp >= words); lp --) {
472 			words[0]=0x7f80;
473 			words[1]=0;
475 			words[0]=0x7ff0;
476 			words[1]=0;
477 			words[2]=0;
478 			words[3]=0;
481 			words[0] |= 0x8000;
483 		make_invalid_floating_point_number (words);
501 	/* The rest of the words are just mantissa bits. */
502 	while(lp < words + precision)
524 		for (carry = 1, lp --; carry && (lp >= words); lp --) {
529 		if ( (word1 ^ *words) & (1 << (LITTLENUM_NUMBER_OF_BITS - 1)) ) {
534 			*words&= ~ (1 << (LITTLENUM_NUMBER_OF_BITS - 1));
535 			/* make_invalid_floating_point_number (words); */