xfnw/plan9fox
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

awk: fix the fix

Browse source 
be more carefull. have to preserve DONTFREE flag!
This commit is contained in:
cinap_lenrek 2012-12-10 09:19:41 +01:00
parent 6e4554b7d5
commit e93d22ef18
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
sys/src/cmd/awk/run.c
View file

@ -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;