summaryrefslogtreecommitdiff
path: root/test/fordel.awk
blob: 58ede20fbd43bc48a27f7129afb89961d4296036 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
#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