libquadmath/strtod/strtod_l.c

43 #undef L_
47 # define L_(Ch) L##Ch
59 # define L_(Ch) Ch
388       low = low * 10 + *str++ - L_('0');
607   if (c == L_('-'))
612   else if (c == L_('+'))
634   else if (c < L_('0') || c > L_('9'))
639       if (lowc == L_('i') && STRNCASECMP (cp, L_("inf"), 3) == 0)
644 		      (cp + (STRNCASECMP (cp + 3, L_("inity"), 5) == 0
650       if (lowc == L_('n') && STRNCASECMP (cp, L_("nan"), 3) == 0)
658 	  if (*cp == L_('('))
663 	      while ((*cp >= L_('0') && *cp <= L_('9'))
665 			   lo >= L_('a') && lo <= L_('z'); })
666 		     || *cp == L_('_'));
668 	      if (*cp != L_(')'))
701   if (c == L_('0') && TOLOWER (cp[1]) == L_('x'))
745   if (!((c >= L_('0') && c <= L_('9'))
746 	|| (base == 16 && lowc >= L_('a') && lowc <= L_('f'))
761 		|| (cp[decimal_len] >= L_('0') && cp[decimal_len] <= L_('9'))
763 		      lo >= L_('a') && lo <= L_('f'); })))
765 			   && lowc == L_('p')))
766 	|| (base != 16 && lowc == L_('e'))))
787       if ((c >= L_('0') && c <= L_('9'))
790 		    lo >= L_('a') && lo <= L_('f'); })))
844 	    if (*tp >= L_('0') && *tp <= L_('9'))
876       while ((c >= L_('0') && c <= L_('9')) ||
878 			       lo >= L_('a') && lo <= L_('f'); })))
880 	  if (c != L_('0') && lead_zero == (size_t) -1)
893   if ((base == 16 && lowc == L_('p'))
894       || (base != 16 && lowc == L_('e')))
899       if (c == L_('-'))
904       else if (c == L_('+'))
907       if (c >= L_('0') && c <= L_('9'))
982 					 && c - L_('0') > exp_limit % 10)), 0))
1006 		  while (*cp >= L_('0') && *cp <= L_('9'));
1013 	      exponent += c - L_('0');
1017 	  while (c >= L_('0') && c <= L_('9'));
1029       while (expp[-1] == L_('0'))
1043 	if (expp[-1] != L_('0'))
1105       while (*startp == L_('0'))
1108 	val = *startp++ - L_('0');
1110 	val = 10 + TOLOWER (*startp++) - L_('a');
1142 	    val = *startp++ - L_('0');
1144 	    val = 10 + TOLOWER (*startp++) - L_('a');
1160 		      if (*startp != L_('0'))
1381 	assert (int_no == 0 && *startp != L_('0'));