Author: mdiep Date: Wed Sep 28 21:58:17 2005 New Revision: 9272 Modified: trunk/languages/tcl/lib/commands/format.pir trunk/languages/tcl/lib/expression.pir Log: tcl: use "foo = sprintf bar, baz", not "sprintf foo, bar, baz"
Modified: trunk/languages/tcl/lib/commands/format.pir ============================================================================== --- trunk/languages/tcl/lib/commands/format.pir (original) +++ trunk/languages/tcl/lib/commands/format.pir Wed Sep 28 21:58:17 2005 @@ -14,7 +14,7 @@ # pull off the format string. shift format, argv - sprintf $S0, format, argv + $S0 = sprintf format, argv .return($S0) .end Modified: trunk/languages/tcl/lib/expression.pir ============================================================================== --- trunk/languages/tcl/lib/expression.pir (original) +++ trunk/languages/tcl/lib/expression.pir Wed Sep 28 21:58:17 2005 @@ -530,7 +530,7 @@ as PIR. $P1[1] = $I0 # Use n_operators pragma to force generation of new pmcs - sprintf pir_code, ".pragma n_operators 1\n.sub blah @ANON\n%s.return ($P%s)\n.end\n", $P1 + pir_code = sprintf ".pragma n_operators 1\n.sub blah @ANON\n%s.return ($P%s)\n.end\n", $P1 #print pir_code # for debugging the compiler
