hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2006-09-11 03:20:42 +00:00
parent 9da4a781a3
commit 039ebe4a34
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: run.c,v 1.199 2006-09-10 15:50:34 bacon Exp $ * $Id: run.c,v 1.200 2006-09-11 03:20:42 bacon Exp $
*/ */
#include <xp/awk/awk_i.h> #include <xp/awk/awk_i.h>
@ -5024,6 +5024,9 @@ static int __recomp_record_fields (
xp_size_t ofs_len; xp_size_t ofs_len;
xp_size_t max, i, nflds; xp_size_t max, i, nflds;
/* recomposes the record and the fields when $N has been assigned
* a new value and recomputes NF accordingly */
xp_assert (lv > 0); xp_assert (lv > 0);
max = (lv > run->inrec.nflds)? lv: run->inrec.nflds; max = (lv > run->inrec.nflds)? lv: run->inrec.nflds;
@ -5032,6 +5035,10 @@ static int __recomp_record_fields (
{ {
void* tmp; void* tmp;
/* if the given field number is greater than the maximum
* number of fields that the current record can hold,
* the field spaces are resized */
if (run->awk->syscas->realloc != XP_NULL) if (run->awk->syscas->realloc != XP_NULL)
{ {
tmp = XP_AWK_REALLOC ( tmp = XP_AWK_REALLOC (
@ -5070,6 +5077,8 @@ static int __recomp_record_fields (
if (max > 1) if (max > 1)
{ {
/* gets the value of OFS to use it as a field separator */
v = STACK_GLOBAL(run, XP_AWK_GLOBAL_OFS); v = STACK_GLOBAL(run, XP_AWK_GLOBAL_OFS);
xp_awk_refupval (v); xp_awk_refupval (v);
@ -5142,6 +5151,7 @@ static int __recomp_record_fields (
if (i < nflds) if (i < nflds)
xp_awk_refdownval (run, run->inrec.flds[i].val); xp_awk_refdownval (run, run->inrec.flds[i].val);
else run->inrec.nflds++; else run->inrec.nflds++;
run->inrec.flds[i].val = tmp; run->inrec.flds[i].val = tmp;
xp_awk_refupval (tmp); xp_awk_refupval (tmp);
} }