From e93d22ef184a65418d2cf61268abb616a2752f1f Mon Sep 17 00:00:00 2001 From: cinap_lenrek Date: Mon, 10 Dec 2012 09:19:41 +0100 Subject: awk: fix the fix be more carefull. have to preserve DONTFREE flag! --- sys/src/cmd/awk/run.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'sys/src/cmd/awk') diff --git a/sys/src/cmd/awk/run.c b/sys/src/cmd/awk/run.c index 86498f197..a8c03f1b5 100644 --- a/sys/src/cmd/awk/run.c +++ b/sys/src/cmd/awk/run.c @@ -1213,9 +1213,10 @@ Cell *split(Node **a, int nnn) /* split(a[0], a[1], a[2]); a[3] is type */ 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; -- cgit v1.2.3