diff options
Diffstat (limited to 'builtin.c')
| -rw-r--r-- | builtin.c | 18 |
1 files changed, 17 insertions, 1 deletions
@@ -514,6 +514,7 @@ do_length(int nargs) tmp = POP(); if (tmp->type == Node_var_array) { static bool warned = false; + unsigned long size; if (do_posix) fatal(_("length: received array argument")); @@ -521,7 +522,15 @@ do_length(int nargs) warned = true; lintwarn(_("`length(array)' is a gawk extension")); } - return make_number((AWKNUM) tmp->table_size); + + /* + * Support for deferred loading of array elements requires that + * we use the array length interface even though it isn't + * necessary for the built-in array types. + */ + + size = assoc_length(tmp); + return make_number(size); } assert(tmp->type == Node_val); @@ -2472,6 +2481,9 @@ do_match(int nargs) lhs = assoc_lookup(dest, sub); unref(*lhs); *lhs = it; + /* execute post-assignment routine if any */ + if (dest->astore != NULL) + (*dest->astore)(dest, sub); unref(sub); sprintf(buff, "%d", ii); @@ -2495,6 +2507,8 @@ do_match(int nargs) lhs = assoc_lookup(dest, sub); unref(*lhs); *lhs = it; + if (dest->astore != NULL) + (*dest->astore)(dest, sub); unref(sub); memcpy(buf, buff, ilen); @@ -2508,6 +2522,8 @@ do_match(int nargs) lhs = assoc_lookup(dest, sub); unref(*lhs); *lhs = it; + if (dest->astore != NULL) + (*dest->astore)(dest, sub); unref(sub); } } |