1585 	CONST char *s, *s0, *s1;  local
1644 			s0 = s;
1650 				s = s0;	/* ... otherwise go back. */
1695 	s0 = s;
1709 				s0 = s;
1921 	bd0 = s2b(s0, nd0, nd, y);
2401 	char *s, *s0;  local
2433 		s0 = (char *)(void *)result;
2434 		strcpy(s0, s);
2438 				s0[3] ? s0 + 8 :
2440 				s0 + 3;
2441 		return s0;
2452 		s0 = (char *)(void *)result;
2453 		strcpy(s0, "0");
2455 			*rve = s0 + 1;
2456 		return s0;
2591 	s = s0 = (char *)(void *)result;
2689 		s = s0;
2722 						if (s == s0) {
2952 			if (s == s0) {
2972 	if (s == s0) {				/* don't return empty string */
2980 	return s0;
3027 roundup(char *s0, int ndigits)  in roundup()  argument
3031 	for (s = s0 + ndigits - 1; *s == 0xf; s--) {  in roundup()
3032 		if (s == s0) {  in roundup()
3049 dorounding(char *s0, int ndigits, int sign, int *decpt)  in dorounding()  argument
3058 		if ((s0[ndigits] > 8) ||  in dorounding()
3059 		    (s0[ndigits] == 8 && s0[ndigits + 1] & 1))  in dorounding()
3060 			adjust = roundup(s0, ndigits);  in dorounding()
3064 			adjust = roundup(s0, ndigits);  in dorounding()
3068 			adjust = roundup(s0, ndigits);  in dorounding()
3106 	char *s, *s0;  in __hdtoa()  local
3152 	s0 = rv_alloc(bufsize);  in __hdtoa()
3162 	for (s = s0 + bufsize - 1; s > s0 + sigfigs - 1; s--)  in __hdtoa()
3164 	for (; s > s0 + sigfigs - (DBL_MANL_SIZE / 4) - 1 && s > s0; s--) {  in __hdtoa()
3168 	for (; s > s0; s--) {  in __hdtoa()
3183 		for (ndigits = sigfigs; s0[ndigits - 1] == 0; ndigits--)  in __hdtoa()
3187 	if (sigfigs > ndigits && s0[ndigits] != 0)  in __hdtoa()
3188 		dorounding(s0, ndigits, u.bits.sign, decpt);  in __hdtoa()
3190 	s = s0 + ndigits;  in __hdtoa()
3194 	for (; s >= s0; s--)  in __hdtoa()
3197 	return (s0);  in __hdtoa()
3206 	CONST unsigned char *decpt, *s0, *s, *s1;  in gethex()  local
3219 	if (!(s0 = decimalpoint_cache)) {  in gethex()
3220 		s0 = (unsigned char*)localeconv_l(loc)->decimal_point;  in gethex()
3221 		if ((decimalpoint_cache = (char*)MALLOC(strlen(s0) + 1))) {  in gethex()
3222 			strcpy(decimalpoint_cache, s0);  in gethex()
3223 			s0 = decimalpoint_cache;  in gethex()
3226 	decimalpoint = s0;  in gethex()
3237 	s0 = *(CONST unsigned char **)sp + 2;  in gethex()
3238 	while(s0[havedig] == '0')  in gethex()
3240 	s0 += havedig;  in gethex()
3241 	s = s0;  in gethex()
3267 		s0 = s;  in gethex()
3316 		*sp = (char*)s0 - 1;  in gethex()
3373 		size_t nd = s1 - s0;  in gethex()
3380 		if (decpt && s0 < decpt)  in gethex()
3383 			ssize_t nd0 = decpt ? decpt - s0 - dplen : nd;  in gethex()
3386 			if ((nd0 -= maxdigits) >= 0 || s0 >= decpt)  in gethex()
3387 				memcpy(strunc, s0, maxdigits);  in gethex()
3389 				memcpy(strunc, s0, maxdigits + dplen);  in gethex()
3392 			s0 += maxdigits;  in gethex()
3396 					if (*s0++ != '0') {  in gethex()
3400 				s0 += dplen;  in gethex()
3403 				while(s0 < s1)  in gethex()
3404 					if(*s0++ != '0') {  in gethex()
3411 			s0 = strunc;  in gethex()
3416 	n = s1 - s0 - 1;  in gethex()
3426 	while(s1 > s0) {  in gethex()