224   union double_union d, d2, eps;  in __dtoa()  local
234   d.d = _d;  in __dtoa()
236   if (word0 (d) & Sign_bit)  in __dtoa()
240       word0 (d) &= ~Sign_bit;	/* clear sign bit */  in __dtoa()
247   if ((word0 (d) & Exp_mask) == Exp_mask)  in __dtoa()
249   if (word0 (d) == 0x8000)  in __dtoa()
256 	!word1 (d) && !(word0 (d) & 0xfffff) ? "Infinity" :  in __dtoa()
269   d.d += 0;			/* normalize */  in __dtoa()
271   if (!d.d)  in __dtoa()
280   b = d2b (d.d, &be, &bbits);  in __dtoa()
284   i = (int) (word0 (d) >> Exp_shift1 & (Exp_mask >> Exp_shift1));  in __dtoa()
286   if ((i = (int) (word0 (d) >> Exp_shift1 & (Exp_mask >> Exp_shift1))) != 0)  in __dtoa()
289       d2.d = d.d;  in __dtoa()
294 	d2.d /= 1 << j;  in __dtoa()
333       x = word0 (d) << (32 - i);  in __dtoa()
335       x = (i > 32) ? (word0 (d) << (64 - i)) | (word1 (d) >> (i - 32))  in __dtoa()
336        : (word1 (d) << (32 - i));  in __dtoa()
338       d2.d = x;  in __dtoa()
345   ds = (d2.d - 1.5) * 0.289529651 + 0.176091269 + i * 0.30103001;  in __dtoa()
347   ds = (d2.d - 1.5) * 0.289529654602168 + 0.1760912590558 + i * 0.301029995663981;  in __dtoa()
355       if (d.d < tens[k])  in __dtoa()
428       d2.d = d.d;  in __dtoa()
440 	      d.d /= bigtens[n_bigtens - 1];  in __dtoa()
449 	  d.d /= ds;  in __dtoa()
453 	  d.d *= tens[j1 & 0xf];  in __dtoa()
458 		d.d *= bigtens[i];  in __dtoa()
461       if (k_check && d.d < 1. && ilim > 0)  in __dtoa()
467 	  d.d *= 10.;  in __dtoa()
470       eps.d = ieps * d.d + 7.;  in __dtoa()
475 	  d.d -= 5.;  in __dtoa()
476 	  if (d.d > eps.d)  in __dtoa()
478 	  if (d.d < -eps.d)  in __dtoa()
488 	  eps.d = 0.5 / tens[ilim - 1] - eps.d;  in __dtoa()
491 	      L = d.d;  in __dtoa()
492 	      d.d -= L;  in __dtoa()
494 	      if (d.d < eps.d)  in __dtoa()
496 	      if (1. - d.d < eps.d)  in __dtoa()
500 	      eps.d *= 10.;  in __dtoa()
501 	      d.d *= 10.;  in __dtoa()
508 	  eps.d *= tens[ilim - 1];  in __dtoa()
509 	  for (i = 1;; i++, d.d *= 10.)  in __dtoa()
511 	      L = d.d;  in __dtoa()
512 	      d.d -= L;  in __dtoa()
516 		  if (d.d > 0.5 + eps.d)  in __dtoa()
518 		  else if (d.d < 0.5 - eps.d)  in __dtoa()
532       d.d = d2.d;  in __dtoa()
546 	  if (ilim < 0 || d.d <= 5 * ds)  in __dtoa()
552 	  L = d.d / ds;  in __dtoa()
553 	  d.d -= L * ds;  in __dtoa()
556 	  if (d.d < 0)  in __dtoa()
559 	      d.d += ds;  in __dtoa()
565 	      d.d += d.d;  in __dtoa()
566              if ((d.d > ds) || ((d.d == ds) && (L & 1)))  in __dtoa()
580 	  if (!(d.d *= 10.))  in __dtoa()
659       if (!word1 (d) && !(word0 (d) & Bndry_mask)  in __dtoa()
661 	  && word0 (d) & Exp_mask  in __dtoa()
762 	  if (j1 == 0 && !mode && !(word1 (d) & 1))  in __dtoa()
774 	      && !(word1 (d) & 1)  in __dtoa()