Thu Jan 20 21:23:11 2011 UTC ()

avoid crash if certain operations are done before an input record is
read, ie in a BEGIN rule


(drochner)

diff -r1.3 -r1.4 src/external/historical/nawk/dist/lib.c

--- src/external/historical/nawk/dist/lib.c 2010/11/07 22:55:26	1.3
+++ src/external/historical/nawk/dist/lib.c 2011/01/20 21:23:11	1.4

 @@ -318,27 +318,29 @@ void fldbld(void)	/* create fields from
 		return;
 	if (!isstr(fldtab[0]))
 		getsval(fldtab[0]);
 	r = fldtab[0]->sval;
 	n = strlen(r);
 	if (n > fieldssize) {
 		xfree(fields);
 		if ((fields = malloc(n+1)) == NULL)
 			FATAL("out of space for fields in fldbld %d", n);
 		fieldssize = n;
+	}
 	fr = fields;
 	i = 0;	/* number of fields accumulated here */
-	if (inputFS[0] && inputFS[1]) {	/* it's a regular expression */
+	if (!inputFS) {
 		/* do nothing */
 	} else if (inputFS[0] && inputFS[1]) {	/* it's a regular expression */
 		i = refldbld(r, inputFS);
 	} else if ((sep = *inputFS) == ' ') {	/* default whitespace */
 		for (i = 0; ; ) {
 			while (*r == ' ' || *r == '\t' || *r == '\n')
 				r++;
 			if (*r == 0)
 				break;
 			i++;
 			if (i > nfields)
 				growfldtab(i);
 			if (freeable(fldtab[i]))
 				xfree(fldtab[i]->sval);
 			fldtab[i]->sval = fr;