From c73d262642ee3a3d6585dc44acc62c432910f920 Mon Sep 17 00:00:00 2001 From: "Arnold D. Robbins" Date: Tue, 15 Jan 2019 21:27:06 +0200 Subject: Finish transition to using assoc_set. --- gawkapi.c | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'gawkapi.c') diff --git a/gawkapi.c b/gawkapi.c index 3227d55f..c76c7b53 100644 --- a/gawkapi.c +++ b/gawkapi.c @@ -1046,7 +1046,6 @@ api_set_array_element(awk_ext_id_t id, awk_array_t a_cookie, NODE *array = (NODE *)a_cookie; NODE *tmp; NODE *elem; - NODE **aptr; /* don't check for index len zero, null str is ok as index */ if ( array == NULL @@ -1058,17 +1057,13 @@ api_set_array_element(awk_ext_id_t id, awk_array_t a_cookie, return awk_false; tmp = awk_value_to_node(index); - aptr = assoc_lookup(array, tmp); - unref(*aptr); - elem = *aptr = awk_value_to_node(value); + elem = awk_value_to_node(value); if (elem->type == Node_var_array) { elem->parent_array = array; elem->vname = estrdup(index->str_value.str, index->str_value.len); } - if (array->astore != NULL) - (*array->astore)(array, tmp); - unref(tmp); + assoc_set(array, tmp, elem); return awk_true; } -- cgit v1.2.3