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
|
