lib/gdtoa/strtodg.c

174  (d, fpi, exp, bits, exact, rd, irv)
175  U *d; FPI *fpi; Long *exp; ULong *bits; int exact, rd, *irv;
177  (U *d, FPI *fpi, Long *exp, ULong *bits, int exact, int rd, int *irv)
255 			*irv = STRTOG_Underflow | STRTOG_Inexlo;
266 			*irv = STRTOG_Denormal;
277 		*irv = STRTOG_Infinite | STRTOG_Overflow | STRTOG_Inexhi;
285 	*irv |= inex;
326 	int dsign, e, e1, e2, emin, esign, finished, i, inex, irv;
357 	irv = STRTOG_Zero;
372 			irv = STRTOG_NoNumber;
391 			irv = gethex(&s, fpi, exp, &rvb, sign);
392 			if (irv == STRTOG_NoNumber) {
458 			irv = STRTOG_NoNumber;
506 					irv = STRTOG_Infinite;
513 					irv = STRTOG_NaN;
517 						irv = hexnan(&s, fpi, bits);
523 			irv = STRTOG_NoNumber;
529 	irv = STRTOG_Normal;
557 			if (rvOK(&rv, fpi, exp, bits, 1, rd, &irv))
567 				if (rvOK(&rv, fpi, exp, bits, i, rd, &irv))
597 				if (rvOK(&rv, fpi, exp, bits, 0, rd, &irv))
605 			if (rvOK(&rv, fpi, exp, bits, 0, rd, &irv))
695 					irv = STRTOG_Underflow | STRTOG_Inexlo;
777 			irv = STRTOG_Normal;
780 					irv |= STRTOG_Inexhi;
783 				irv |= STRTOG_Inexlo;
797 			irv |= dsign ? STRTOG_Inexlo : STRTOG_Inexhi;
804 			irv = dsign
811 				irv = STRTOG_Normal | STRTOG_Inexlo;
824 					irv = STRTOG_Normal | STRTOG_Inexhi;
828 				irv = STRTOG_Normal | STRTOG_Inexlo;
831 				irv = STRTOG_Normal;
835 					irv = STRTOG_Normal | STRTOG_Inexhi;
845 				irv = STRTOG_Normal | STRTOG_Inexhi;
853 				irv = STRTOG_Normal | STRTOG_Inexhi;
859 				irv = STRTOG_Normal | STRTOG_Inexlo;
874 				irv = STRTOG_Underflow | STRTOG_Inexlo;
975 					irv |= inex;
980 				irv |= inex;
1018 		irv = STRTOG_Normal | STRTOG_Inexlo;
1029 		irv = STRTOG_Infinite | STRTOG_Overflow | STRTOG_Inexhi;
1040 			irv = STRTOG_Underflow | STRTOG_Inexlo;
1046 			irv = (irv & ~STRTOG_Retmask) |
1048 			if (irv & STRTOG_Inexact) {
1049 				irv |= STRTOG_Underflow;
1059 		irv |= STRTOG_Neg;
1064 	return irv;