glibc/stdlib/strtod.c

209 round_and_return (mp_limb_t *retval, int exponent, int negative,
229 	  round_limb = retval[RETURN_LIMB_SIZE - 1];
232 	    more_bits |= retval[i] != 0;
233 	  MPN_ZERO (retval, RETURN_LIMB_SIZE);
239 	  round_limb = retval[(shift - 1) / BITS_PER_MP_LIMB];
242 	    more_bits |= retval[i] != 0;
246 	  (void) __mpn_rshift (retval, &retval[shift / BITS_PER_MP_LIMB],
249           MPN_ZERO (&retval[RETURN_LIMB_SIZE - (shift / BITS_PER_MP_LIMB)],
254           round_limb = retval[0];
256 	  (void) __mpn_rshift (retval, retval, RETURN_LIMB_SIZE, shift);
268       && (more_bits || (retval[0] & 1) != 0
271       mp_limb_t cy = __mpn_add_1 (retval, retval, RETURN_LIMB_SIZE, 1);
275            (retval[RETURN_LIMB_SIZE - 1]
279 	  (void) __mpn_rshift (retval, retval, RETURN_LIMB_SIZE, 1);
280 	  retval[RETURN_LIMB_SIZE - 1]
284 	       && (retval[RETURN_LIMB_SIZE - 1]
294   return MPN2FLOAT (retval, exponent, negative);
454   mp_limb_t retval[RETURN_LIMB_SIZE];
597 	  FLOAT retval = NAN;
626 		    SET_MANTISSA (retval, mant);
633 	  return retval;
970 	  retval[idx] = val << (pos - bits + 1);
975 	  retval[idx--] = val >> (bits - pos - 1);
976 	  retval[idx] = val << (BITS_PER_MP_LIMB - (bits - pos - 1));
994 	      retval[idx] |= val << (pos - 4 + 1);
999 	      retval[idx--] |= val >> (4 - pos - 1);
1002 		return round_and_return (retval, exponent, negative, val,
1005 	      retval[idx] = val;
1011       MPN_ZERO (retval, idx);
1013       return round_and_return (retval, exponent, negative, 0, 0, 0);
1117 	    memcpy (retval, &num[least_idx],
1122                 retval[i - least_idx] = (num[i] >> least_bit)
1126                 retval[RETURN_LIMB_SIZE - 1] = num[i] >> least_bit;
1133 	  return round_and_return (retval, bits - 1, negative,
1145 	      memcpy (&retval[RETURN_LIMB_SIZE - numsize], num,
1149 	      MPN_ZERO (retval, RETURN_LIMB_SIZE - numsize);
1153 	      (void) __mpn_lshift (&retval[RETURN_LIMB_SIZE - numsize],
1157 	      MPN_ZERO (retval, RETURN_LIMB_SIZE - numsize);
1164 	      cy = __mpn_rshift (&retval[RETURN_LIMB_SIZE - numsize],
1166 	      retval[RETURN_LIMB_SIZE - numsize - 1] = cy;
1169 	      MPN_ZERO (retval, RETURN_LIMB_SIZE - numsize - 1);
1172 	  return round_and_return (retval, bits - 1, negative, 0, 0, 0);
1177       memcpy (retval, num, numsize * sizeof (mp_limb_t));
1180         retval[numsize] = 0;
1320 		      retval[0] = quot >> (BITS_PER_MP_LIMB - used);	      \
1328 			retval[1] = 0;					      \
1329 		      retval[0] = quot;					      \
1334 		__mpn_lshift_1 (retval, RETURN_LIMB_SIZE, BITS_PER_MP_LIMB,   \
1340 		    __mpn_lshift_1 (retval, RETURN_LIMB_SIZE, used, quot);    \
1348 	  return round_and_return (retval, exponent - 1, negative,
1378 			__mpn_lshift_1 (retval, RETURN_LIMB_SIZE,
1384 			    __mpn_lshift_1 (retval, RETURN_LIMB_SIZE, used, 0);
1441 	  return round_and_return (retval, exponent - 1, negative,
1483 		      __mpn_lshift_1 (retval, RETURN_LIMB_SIZE,
1487 			retval[i] = retval[i - empty];
1490 		      retval[1] = 0;
1502 			  (void) __mpn_lshift (&retval[used
1504 					       retval, RETURN_LIMB_SIZE,
1507 			    retval[i] = 0;
1510 			__mpn_lshift_1 (retval, RETURN_LIMB_SIZE, used, 0);
1571 	  return round_and_return (retval, exponent - 1, negative,