From 898eb2ad1d514887993994e60fe860ac3ee1bba8 Mon Sep 17 00:00:00 2001 From: "Arnold D. Robbins" Date: Thu, 21 Jun 2012 22:20:38 +0300 Subject: Further API code and test code. --- gawkapi.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gawkapi.c') diff --git a/gawkapi.c b/gawkapi.c index ad7e68fd..139d77b8 100644 --- a/gawkapi.c +++ b/gawkapi.c @@ -101,7 +101,6 @@ api_set_argument(awk_ext_id_t id, { NODE *arg; NODE *array = (NODE *) new_array; - awk_valtype_t valtype; (void) id; @@ -544,6 +543,8 @@ api_set_array_element(awk_ext_id_t id, awk_array_t a_cookie, unref(tmp); unref(*aptr); *aptr = awk_value_to_node(& element->value); + if ((*aptr)->type == Node_var_array) + (*aptr)->parent_array = array; return true; } -- cgit v1.2.3