Tcl Source Code

Andreas Kupries reports:

I believe that I have found a bug in the bytecode
compiler. Below a minimal example of the difference
between 8.3.4 and 8.4 CVS head of last friday (April 5).

What happens is that the "return" in the catch is not
catched but stops execution of the surounding procedure.


[andreask@pliers pro_ng]$ cat catch_test
# -*- tcl -*-

proc foo {} {
    set fail [catch {
        return
    }] ; # {}

    return 2
}

puts "foo = [foo]"
[andreask@pliers pro_ng]$
[andreask@pliers pro_ng]$ ./install/834/bin/tclsh8.3
catch_test
foo = 2
[andreask@pliers pro_ng]$
[andreask@pliers pro_ng]$
[andreask@pliers pro_ng]$ ./install/84cvs/bin/tclsh8.4
catch_test
foo =

Logged In: YES 
user_id=148712

Patch committed: bytecodes now check for a possible [catch]
before returning. Before this, the bytecompiled [return] was
uncatchable.

File Added - 20934: bcCatch.patch

Logged In: YES 
user_id=148712

The patch attached solves the issue.