Re: bug in gawk 3.1.3

[Aharon Robbins]

Greetings.  Re this:

> Date: Sat, 03 Jan 2004 00:07:39 +0100
> From: Juergen Kahrs <address@hidden>
> To: Aharon Robbins <address@hidden>
> Subject: bug in gawk 3.1.3
>
> Hello,
>
> the attached script produces an internal error
> when invoked with gawk 3.1.3. You already "solved"
> the problem about 5 years ago, if I remember correctly.
>
> BEGIN {
>   f(x)
>   x++
> }
>
> function f(a) {
>   print a
> }

Indeed, but the internals have changed.  Here's the fix from
the 3.1.4 tree.

Enjoy,

Arnold

--- /home/arnold/Gnu/gawk/gawk-3.1.3/awkgram.y  2003-07-04 20:25:23.000000000 
+0300
+++ awkgram.y   2004-01-08 11:39:05.000000000 +0200
@@ -3006,10 +3006,10 @@
                         */
                        NODE *n;
 
-                       if (type == Node_var)
-                               n = node(Nnull_string, type, (NODE *) NULL);
+                       if (type == Node_var_array)
+                               n = node((NODE *) NULL, type, (NODE *) NULL);
                        else
-                               n = node((NODE *) NULL, type, (NODE *) NULL);
+                               n = node(Nnull_string, type, (NODE *) NULL);
 
                        return install(name, n);
                }