Author: coke Date: Sat Feb 23 21:57:28 2008 New Revision: 26037 Modified: trunk/languages/tcl/runtime/variables.pir
Log: [tcl] Take advantage of the new 'copy' op, which is supposed to replace morph+assign. Modified: trunk/languages/tcl/runtime/variables.pir ============================================================================== --- trunk/languages/tcl/runtime/variables.pir (original) +++ trunk/languages/tcl/runtime/variables.pir Sat Feb 23 21:57:28 2008 @@ -384,9 +384,7 @@ $P0 = lexpad[name] if null $P0 goto lexical_is_null - $I0 = typeof value - morph $P0, $I0 - assign $P0, value + copy $P0, value .return($P0) lexical_is_null: @@ -405,9 +403,7 @@ $P0 = ns[name] if null $P0 goto global_not_undef - $I0 = typeof value - morph $P0, $I0 - assign $P0, value + copy $P0, value .return($P0) global_not_undef:
