[SCM] gawk branch, zos-debug, updated. gawk-4.1.0-4263-gea8ce73

[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  ea8ce7308f6be32b0cd4fd59e7e652845416c7a2 (commit)
      from  fe9854f84bfd739a40c0dcdfefef9a38174e4bd4 (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=ea8ce7308f6be32b0cd4fd59e7e652845416c7a2

commit ea8ce7308f6be32b0cd4fd59e7e652845416c7a2
Author: Arnold D. Robbins <arnold@skeeve.com>
Date:   Fri Jun 4 10:35:50 2021 +0300

    More prints. Sigh.

diff --git a/awk.h b/awk.h
index 9f878b2..a744906 100644
--- a/awk.h
+++ b/awk.h
@@ -2057,6 +2057,7 @@ make_number_node(unsigned int flags)
 {
        NODE *r;
        getnode(r);
+       if (watched && r == watched) fprintf(stderr, "got %#p from getnode!\n");
        memset(r, 0, sizeof(*r));
        r->type = Node_val;
        r->valref = 1;
diff --git a/node.c b/node.c
index 12d7a04..fc5c161 100644
--- a/node.c
+++ b/node.c
@@ -361,6 +361,8 @@ r_make_number(double x)
 {
        NODE *r = make_number_node(0);
        r->numbr = x;
+       if (watched && r == watched) fprintf(stderr, "clobbering %#p with %g\n",
+                       watched, x);
        return r;
 }
 
diff --git a/profile.c b/profile.c
index ac48ceb..896e828 100644
--- a/profile.c
+++ b/profile.c
@@ -355,7 +355,6 @@ pprint(INSTRUCTION *startp, INSTRUCTION *endp, int flags)
                case Op_push_arg:
                case Op_push_arg_untyped:
                        m = pc->memory;
-                       if (watched && m == watched) fprintf(stderr, "in 
profile.c, ref_count = %d\n", pc->memory->valref);
                        switch (m->type) {
                        case Node_param_list:
                                pp_push(pc->opcode, 
func_params[m->param_cnt].param, DONT_FREE, pc->comment);

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

Summary of changes:
 awk.h     | 1 +
 node.c    | 2 ++
 profile.c | 1 -
 3 files changed, 3 insertions(+), 1 deletion(-)


hooks/post-receive
-- 
gawk