[SCM] gawk branch, zos-debug, updated. gawk-4.1.0-4282-gb573e25

[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  b573e25fa89d8cbce09d5b574fa34a9be69cac40 (commit)
      from  616f9a69752b4630de94782bbe4a12c5ad38774f (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=b573e25fa89d8cbce09d5b574fa34a9be69cac40

commit b573e25fa89d8cbce09d5b574fa34a9be69cac40
Author: Arnold D. Robbins <arnold@skeeve.com>
Date:   Wed Jul 7 21:01:25 2021 +0300

    Small cleanups.

diff --git a/awk.h b/awk.h
index b82296e..aae4aed 100644
--- a/awk.h
+++ b/awk.h
@@ -1280,7 +1280,6 @@ extern void r_unref(NODE *tmp);
 static inline void
 DEREF_real(NODE *r, const char *file, int line, const char *func)
 {
-       if (watched && r == watched) fprintf(stderr, "--decrement\n");
        if (watched && r == watched)
                fprintf(stderr, "%s:%d:%s: decrement 1\n", file, line, func);
        assert(r->valref > 0);
@@ -2072,7 +2071,8 @@ make_number_node(unsigned int flags)
 {
        NODE *r;
        getnode(r);
-       if (watched && r == watched) fprintf(stderr, "got %#p from getnode!\n");
+       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/profile.c b/profile.c
index 7cded0d..a3ec73e 100644
--- a/profile.c
+++ b/profile.c
@@ -570,8 +570,6 @@ cleanup:
                case Op_K_delete:
                {
                        char *array;
-                       extern NODE *watched;
-
                        t1 = pp_pop();
                        array = t1->pp_str;
                        if (pc->expr_count > 0) {
@@ -581,7 +579,6 @@ cleanup:
                                efree(sub);
                        } else
                                fprintf(prof_fp, "%s %s", op2str(Op_K_delete), 
array);
-
                        if ((flags & IN_FOR_HEADER) == 0)
                                pc = end_line(pc);
                        pp_free(t1);
diff --git a/symbol.c b/symbol.c
index 8910102..4f1d588 100644
--- a/symbol.c
+++ b/symbol.c
@@ -292,7 +292,7 @@ make_symbol(const char *name, NODETYPE type)
                r->var_value = dupnode(Nnull_string);
        r->vname = (char *) name;
        r->type = type;
-       r->valref = 1;
+       r->valref = 1;
 
        return r;
 }

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

Summary of changes:
 awk.h     | 4 ++--
 profile.c | 3 ---
 symbol.c  | 2 +-
 3 files changed, 3 insertions(+), 6 deletions(-)


hooks/post-receive
-- 
gawk