"Matt Diephouse" <[EMAIL PROTECTED]> wrote:
The following code in lines 108-110 of languages/tcl/src/class/
tclcommand.pir are giving parrot some trouble:
inlined.emit(" if epoch != %0 goto dynamic_%1", epoch, label_num)
inlined .= retval
inlined.emit(" goto end_%0", label_num)
It looks like pbc_merge is the actual source of the trouble here. If I
change languages/tcl/src/tclsh.pir to load the individual bytecode
files instead of the merged file, it works as expected.
It indeed was a pbc_merge bug that's somehow lay hidden for the best part of
a year. Fixed in r13020.
Thanks,
Jonathan
