Author: coke Date: Wed Apr 20 08:09:47 2005 New Revision: 7895 Modified: trunk/languages/tcl/tcl.imc Log: > $P2 = parser."parse"(input_line_PMC,zero,zero) > (retcode,retval) = interpret($P1) > > $P1 / $P2 seems to be a typo, which happens to work as it's likely that > the register allocator will use the same register.
Courtesy Leo Toetsch Modified: trunk/languages/tcl/tcl.imc ============================================================================== --- trunk/languages/tcl/tcl.imc (original) +++ trunk/languages/tcl/tcl.imc Wed Apr 20 08:09:47 2005 @@ -41,7 +41,7 @@ input_line = readline STDIN input_line_PMC = new String input_line_PMC = input_line - $P2 = parser."parse"(input_line_PMC,zero,zero) + $P1 = parser."parse"(input_line_PMC,zero,zero) (retcode,retval) = interpret($P1) # print out the result of the evaluation. print retval