[SCM] gawk branch, zos-debug, updated. gawk-4.1.0-4288-g69389e4

[Arnold Robbins]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "gawk".

The branch, zos-debug has been updated
       via  69389e44e8f592bc4f6f506e0fb6df11fa8770ad (commit)
      from  76611abad5d2f400c4064550a292d08928a89560 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=69389e44e8f592bc4f6f506e0fb6df11fa8770ad

commit 69389e44e8f592bc4f6f506e0fb6df11fa8770ad
Author: Arnold D. Robbins <arnold@skeeve.com>
Date:   Fri Jul 9 13:47:38 2021 +0300

    More debugging.

diff --git a/awk.h b/awk.h
index aae4aed..eb44b9b 100644
--- a/awk.h
+++ b/awk.h
@@ -2083,16 +2083,24 @@ make_number_node(unsigned int flags)
 /* assoc_set -- set an element in an array. Does unref(sub)! */
 
 static inline void
-assoc_set(NODE *array, NODE *sub, NODE *value)
+assoc_set_real(NODE *array, NODE *sub, NODE *value,
+       const char *file, int line, const char *func)
 {
 
        NODE **lhs = assoc_lookup(array, sub);
+       if (*lhs == watched)
+               fprintf(stderr, "assoc_set 1: called from %s:%d:%s\n",
+                               file, line, func);
        unref(*lhs);
        *lhs = value;
        if (array->astore != NULL)
                (*array->astore)(array, sub);
+       if (sub == watched)
+               fprintf(stderr, "assoc_set 1: called from %s:%d:%s\n",
+                               file, line, func);
        unref(sub);
 }
+#define assoc_set(a, s, v) assoc_set_real(a, s, v, __FILE__, __LINE__, 
__func__)
 
 /*
  * str_terminate_f, str_terminate, str_restore: function and macros to

-----------------------------------------------------------------------

Summary of changes:
 awk.h | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)


hooks/post-receive
-- 
gawk