git: 9front

Info  •  Files  •  Log  •  Branches

awk: prevent split(a[x], a) from freeing a[x]

the freesymtab() call frees the y argument. temporarily mark it
not to be freed.

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

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

@@ -1213,7 +1213,9 @@

 		FATAL("illegal type of split");

 	sep = *fs;

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

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

 	freesymtab(ap);

+	y->tval &= ~DONTFREE;

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

 	ap->tval &= ~STR;

 	ap->tval |= ARR;

-- 

⑨