shithub: riscv

Info  •  Files  •  Log  •  Branches

awk: fix the fix

be more carefull. have to preserve DONTFREE flag!

--- a/sys/src/cmd/awk/run.c

+++ b/sys/src/cmd/awk/run.c

@@ -1213,9 +1213,10 @@

 		FATAL("illegal type of split");

 	sep = *fs;

 	ap = execute(a[1]);	/* array name */

+	n = y->tval;

 	y->tval |= DONTFREE;	/* split(a[x], a); */

 	freesymtab(ap);

-	y->tval &= ~DONTFREE;

+	y->tval = n;

 	   dprintf( ("split: s=|%s|, a=%s, sep=|%s|\n", s, ap->nval, fs) );

 	ap->tval &= ~STR;

 	ap->tval |= ARR;

-- 

⑨