diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2011-05-08 20:52:33 +0300 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2011-05-08 20:52:33 +0300 |
| commit | 783ae783275b5fab9104b711ac3d531dcc454d96 (patch) | |
| tree | 6ca6498b6b62e8a744990b65fa09fba71f63daad /debug.c | |
| parent | 7c20cc42ca1b77a2f3caddab543839efe897eeb0 (diff) | |
| download | egawk-783ae783275b5fab9104b711ac3d531dcc454d96.tar.gz egawk-783ae783275b5fab9104b711ac3d531dcc454d96.tar.bz2 egawk-783ae783275b5fab9104b711ac3d531dcc454d96.zip | |
More array sorting fixes.
Diffstat (limited to 'debug.c')
| -rw-r--r-- | debug.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1074,7 +1074,7 @@ print_array(volatile NODE *arr, char *arr_name) num_elems = arr->table_size; /* sort indices, sub_arrays are also sorted! */ - list = assoc_list((NODE *) arr, "@unsorted", SORTED_IN); + list = assoc_list((NODE *) arr, "@ind_str_asc", SORTED_IN); PUSH_BINDING(pager_quit_tag_stack, pager_quit_tag, pager_quit_tag_valid); if (setjmp(pager_quit_tag) == 0) { @@ -1262,12 +1262,12 @@ do_set_var(CMDARG *arg, int cmd ATTRIBUTE_UNUSED) } } else { if (value == NULL) { - const char *aname = make_aname(r, subs); NODE *array; + getnode(array); array->type = Node_var_array; array->var_array = NULL; - array->vname = estrdup(aname, strlen(aname)); + array->vname = estrdup(subs->stptr, subs->stlen); *assoc_lookup(r, subs, FALSE) = array; r = array; } else if (value->type != Node_var_array) { |