[SCM] gawk branch, gawk-5.3-stable, updated. gawk-4.1.0-5536-gac764e2c

[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, gawk-5.3-stable has been updated
       via  ac764e2cd9e6740e77a9f8cda447d9f017a607a6 (commit)
      from  e405f5487b66eadd24d303a27c312f16bcca2ca4 (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=ac764e2cd9e6740e77a9f8cda447d9f017a607a6

commit ac764e2cd9e6740e77a9f8cda447d9f017a607a6
Author: Arnold D. Robbins <arnold@skeeve.com>
Date:   Thu Sep 19 18:09:23 2024 +0300

    Small bug fix for delete and test case.

diff --git a/ChangeLog b/ChangeLog
index 02e2cca4..f606530d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-09-19         Arnold D. Robbins     <arnold@skeeve.com>
+
+       * array.c (do_delete): Handle case where subscript is Node_elem_new.
+       Thanks to Denis Shirokov <cosmogen@gmail.com> for the report and test 
case.
+
 2024-09-17         Arnold D. Robbins     <arnold@skeeve.com>
 
        * 5.3.1: Release tar made.
diff --git a/array.c b/array.c
index 124824b5..2de07b8d 100644
--- a/array.c
+++ b/array.c
@@ -569,7 +569,7 @@ do_delete(NODE *symbol, int nsubs)
 
        for (i = nsubs; i > 0; i--) {
                subs = PEEK(i - 1);
-               if (subs->type != Node_val) {
+               if (subs->type != Node_val && subs->type != Node_elem_new) {
                        free_subs(i);
                        fatal(_("attempt to use array `%s' in a scalar 
context"), array_vname(subs));
                }
diff --git a/pc/ChangeLog b/pc/ChangeLog
index 368fac17..42d97f69 100644
--- a/pc/ChangeLog
+++ b/pc/ChangeLog
@@ -1,3 +1,7 @@
+2024-09-19         Arnold D. Robbins     <arnold@skeeve.com>
+
+       * Makefile.tst, config.h: Regenerated.
+
 2024-09-17         Arnold D. Robbins     <arnold@skeeve.com>
 
        * 5.3.1: Release tar made.
diff --git a/pc/Makefile.tst b/pc/Makefile.tst
index 2cf635ba..b9c98715 100644
--- a/pc/Makefile.tst
+++ b/pc/Makefile.tst
@@ -223,6 +223,7 @@ GAWK_EXT_TESTS = \
        symtab3 symtab4 symtab5 symtab6 symtab7 symtab8 symtab9 symtab10 \
        symtab11 symtab12 timeout typedregex1 typedregex2 typedregex3 \
        typedregex4 typedregex5 typedregex6 typeof1 typeof2 typeof3 \
+       delmessy \
        typeof4 typeof5 typeof6 typeof7 typeof8 unicode1 watchpoint1
 
 ARRAYDEBUG_TESTS = arrdbg
@@ -3668,6 +3669,11 @@ typeof3:
        @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk  >_$@ 2>&1 || echo EXIT CODE: 
$$? >>_$@
        @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
 
+delmessy:
+       @echo $@
+       @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk  >_$@ 2>&1 || echo EXIT CODE: 
$$? >>_$@
+       @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
+
 typeof4:
        @echo $@
        @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk  >_$@ 2>&1 || echo EXIT CODE: 
$$? >>_$@
diff --git a/test/ChangeLog b/test/ChangeLog
index dd9c66a2..d93dab2f 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2024-09-19         Arnold D. Robbins     <arnold@skeeve.com>
+
+       * Makefile.am (EXTRADIST): New test, delmessy.
+       * delmessy.awk, delmessy.ok: New files.
+
 2024-09-17         Arnold D. Robbins     <arnold@skeeve.com>
 
        * 5.3.1: Release tar made.
diff --git a/test/Makefile.am b/test/Makefile.am
index 9178f487..60fd8f36 100644
--- a/test/Makefile.am
+++ b/test/Makefile.am
@@ -284,6 +284,8 @@ EXTRA_DIST = \
        delarprm.ok \
        delfunc.awk \
        delfunc.ok \
+       delmessy.awk \
+       delmessy.ok \
        delsub.awk \
        delsub.ok \
        devfd.in1 \
@@ -1599,6 +1601,7 @@ GAWK_EXT_TESTS = \
        symtab3 symtab4 symtab5 symtab6 symtab7 symtab8 symtab9 symtab10 \
        symtab11 symtab12 timeout typedregex1 typedregex2 typedregex3 \
        typedregex4 typedregex5 typedregex6 typeof1 typeof2 typeof3 \
+       delmessy \
        typeof4 typeof5 typeof6 typeof7 typeof8 unicode1 watchpoint1
 
 ARRAYDEBUG_TESTS = arrdbg
diff --git a/test/Makefile.in b/test/Makefile.in
index 39242ea9..a286c158 100644
--- a/test/Makefile.in
+++ b/test/Makefile.in
@@ -548,6 +548,8 @@ EXTRA_DIST = \
        delarprm.ok \
        delfunc.awk \
        delfunc.ok \
+       delmessy.awk \
+       delmessy.ok \
        delsub.awk \
        delsub.ok \
        devfd.in1 \
@@ -1863,6 +1865,7 @@ GAWK_EXT_TESTS = \
        symtab3 symtab4 symtab5 symtab6 symtab7 symtab8 symtab9 symtab10 \
        symtab11 symtab12 timeout typedregex1 typedregex2 typedregex3 \
        typedregex4 typedregex5 typedregex6 typeof1 typeof2 typeof3 \
+       delmessy \
        typeof4 typeof5 typeof6 typeof7 typeof8 unicode1 watchpoint1
 
 ARRAYDEBUG_TESTS = arrdbg
@@ -5486,6 +5489,11 @@ typeof3:
        @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk  >_$@ 2>&1 || echo EXIT CODE: 
$$? >>_$@
        @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
 
+delmessy:
+       @echo $@
+       @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk  >_$@ 2>&1 || echo EXIT CODE: 
$$? >>_$@
+       @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
+
 typeof4:
        @echo $@
        @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk  >_$@ 2>&1 || echo EXIT CODE: 
$$? >>_$@
diff --git a/test/Maketests b/test/Maketests
index 03f75449..9236de5b 100644
--- a/test/Maketests
+++ b/test/Maketests
@@ -2347,6 +2347,11 @@ typeof3:
        @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk  >_$@ 2>&1 || echo EXIT CODE: 
$$? >>_$@
        @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
 
+delmessy:
+       @echo $@
+       @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk  >_$@ 2>&1 || echo EXIT CODE: 
$$? >>_$@
+       @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@
+
 typeof4:
        @echo $@
        @-AWKPATH="$(srcdir)" $(AWK) -f $@.awk  >_$@ 2>&1 || echo EXIT CODE: 
$$? >>_$@
diff --git a/test/delmessy.awk b/test/delmessy.awk
new file mode 100644
index 00000000..8a04a7cd
--- /dev/null
+++ b/test/delmessy.awk
@@ -0,0 +1,5 @@
+func a(  z ) {
+     delete A[ "" ][ A[ "" ][ z ] ] }
+
+BEGIN{
+     a() }
diff --git a/test/delmessy.ok b/test/delmessy.ok
new file mode 100644
index 00000000..e69de29b

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

Summary of changes:
 ChangeLog                          | 5 +++++
 array.c                            | 2 +-
 pc/ChangeLog                       | 4 ++++
 pc/Makefile.tst                    | 6 ++++++
 test/ChangeLog                     | 5 +++++
 test/Makefile.am                   | 3 +++
 test/Makefile.in                   | 8 ++++++++
 test/Maketests                     | 5 +++++
 test/delmessy.awk                  | 5 +++++
 test/{arrayprm2.ok => delmessy.ok} | 0
 10 files changed, 42 insertions(+), 1 deletion(-)
 create mode 100644 test/delmessy.awk
 copy test/{arrayprm2.ok => delmessy.ok} (100%)


hooks/post-receive
-- 
gawk