xref: /illumos-gate/usr/src/test/util-tests/tests/awk/gnu/fordel.awk (revision 3ee4fc2aa6b5136515cc3eed32d3c6ef33e37471)

#Date: Mon, 7 Jun 2004 10:40:28 -0500
#From: mary1john8@earthlink.net
#To: arnold@skeeve.com
#Subject: gawk internal errors
#Message-ID: <20040607154028.GA2457@apollo>
#
#Hello,
#
#    gawk-3.1.3i internal errors:
#
#[1]
#
#$> ./gawk 'BEGIN { for (i in a) delete a; }'
BEGIN { for (i in a) delete a; }
#gawk: fatal error: internal error
#Aborted
#
#------------------------------------------------------------------
#--- awkgram.y.orig	2004-06-07 09:42:14.000000000 -0500
#+++ awkgram.y	2004-06-07 09:45:58.000000000 -0500
#@@ -387,7 +387,7 @@
# 		 * Check that the body is a `delete a[i]' statement,
# 		 * and that both the loop var and array names match.
# 		 */
#-		if ($8 != NULL && $8->type == Node_K_delete) {
#+		if ($8 != NULL && $8->type == Node_K_delete && $8->rnode != NULL) {
# 			NODE *arr, *sub;
#
# 			assert($8->rnode->type == Node_expression_list);
#------------------------------------------------------------------
#
#
#[2]
#
#$> ./gawk 'BEGIN { printf("%3$*10$.*1$s\n", 20, 10, "hello"); }'
#gawk: fatal error: internal error
#Aborted
#
#------------------------------------------------------------------
#--- builtin.c.orig	2004-06-07 10:04:20.000000000 -0500
#+++ builtin.c	2004-06-07 10:06:08.000000000 -0500
#@@ -780,7 +780,10 @@
# 					s1++;
# 					n0--;
# 				}
#-
#+				if (val >= num_args) {
#+					toofew = TRUE;
#+					break;
#+				}
# 				arg = the_args[val];
# 			} else {
# 				parse_next_arg();
#------------------------------------------------------------------
#
#
#    Finally, a test for the rewritten get_src_buf():
#
#$> AWKBUFSIZE=2 make check
#
#I get 3 failed tests. Not sure this is of any interest.
#
#
#Thanks,
#John