Tcl Source Code

The following small Tcl code loops forever in Tcl8.6a3:

for {set i 20} {$i > 0} {incr i -1} {
    puts "i=$i"
    continue
}

But only, if source'd !
It runs OK if entered interactively.
I know the example is bogus, but it has been stripped down as much as possible.
My configuration is (RHEL4 machine):

# uname -a
Linux orion 2.6.9-42.ELsmp #1 SMP Wed Jul 12 23:32:02 EDT 2006 x86_64 x86_64 x86_64 GNU/Linux

Tcl configured with:

# cd tcl8.6a3/unix
# ./configure --enable-64bit \
    --prefix=/usr/local/tcltk8.6a3 \
    --enable-symbols

My memory debugger (purify) doesn't complain.
I can create a stack trace if required.

-Jochen

Committed, closing.

File Added - 301742: fortest.patch

Attaching missing test.
File Added: fortest.patch

Alpha testing works!

Spread the word!

I can also confirm that the suggested patch fixes my problem.
Thank you very much for the quick turnaround guys.
Good job!

Jochen

Patch reviewed, accepted, committed. Leaving open as reminder: missing test!

I believe this patch is the fix.
Miguel should review and commit.
Original reporter is invited to
test as well.


diff -u -r1.107 tclCmdAH.c
--- generic/tclCmdAH.c  17 Oct 2008 16:32:58 -0000      1.107
+++ generic/tclCmdAH.c  22 Oct 2008 18:22:57 -0000
@@ -1763,7 +1763,7 @@
     char *msg = data[3];


-    if (result == TCL_OK) {
+    if ((result == TCL_OK) || (result == TCL_CONTINUE)) {
        /*
         * TIP #280. Make invoking context available to next script.
         *

sorry, it's the *non*compiled
[for] that is at fault.  Given
the timing of the appearance,
seems to be a flaw in the new
TclNRForObjCmd(), probably related
to handling TCL_CONTINUE from
the body.

NR-enabling [for] on 2008-07-31
appears to be to blame.

8.6a1 is ok.

Compiled [for] appears to be at fault.

confirmed.  Also in 8.6a2.

File Added - 298399: loop.tcl