diff options
author | Arnold D. Robbins <arnold@skeeve.com> | 2023-04-07 13:33:11 +0300 |
---|---|---|
committer | Arnold D. Robbins <arnold@skeeve.com> | 2023-04-07 13:33:11 +0300 |
commit | 8513def88abb290eb5152556dfbfa605d8bf3202 (patch) | |
tree | 788eba23f72ce1b6f1faaf98e29d8066f3e84e6e /array.c | |
parent | 0dc720c325bd76dc6bebc48cd151905e73ff7ce6 (diff) | |
parent | 47200919a70c992685146fdd72c1a2856c15c6b0 (diff) | |
download | gawk-8513def88abb290eb5152556dfbfa605d8bf3202.tar.gz |
Merge branch 'gawk-5.2-stable'
Diffstat (limited to 'array.c')
-rw-r--r-- | array.c | 23 |
1 files changed, 21 insertions, 2 deletions
@@ -748,10 +748,16 @@ assoc_info(NODE *subs, NODE *val, NODE *ndump, const char *aname) fprintf(output_fp, "]\n"); indent(indent_level); - if (val->type == Node_val) { + switch (val->type) { + case Node_val: fprintf(output_fp, "V: [scalar: "); value_info(val); - } else { + break; + case Node_var: + fprintf(output_fp, "V: [scalar: "); + value_info(val->var_value); + break; + case Node_var_array: fprintf(output_fp, "V: ["); ndump->alevel++; ndump->adepth--; @@ -759,6 +765,19 @@ assoc_info(NODE *subs, NODE *val, NODE *ndump, const char *aname) ndump->adepth++; ndump->alevel--; indent(indent_level); + break; + case Node_func: + fprintf(output_fp, "V: [user_defined_function"); + break; + case Node_ext_func: + fprintf(output_fp, "V: [external_function"); + break; + case Node_builtin_func: + fprintf(output_fp, "V: [builtin_function"); + break; + default: + cant_happen("unexpected node type %s", nodetype2str(val->type)); + break; } fprintf(output_fp, "]\n"); } |