[svn:parrot] r29909 - trunk/languages/tcl/runtime/builtin

[coke@xxxxxxxxxxxx]

Author: coke
Date: Thu Jul 31 06:22:41 2008
New Revision: 29909

Modified:
   trunk/languages/tcl/runtime/builtin/binary.pir

Log:
[tcl] remove unused param; use more named registers.



Modified: trunk/languages/tcl/runtime/builtin/binary.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/binary.pir      (original)
+++ trunk/languages/tcl/runtime/builtin/binary.pir      Thu Jul 31 06:22:41 2008
@@ -4,10 +4,9 @@
 .sub '&binary'
     .param pmc argv :slurpy
 
-    .local pmc retval
-
-    $I0 = elements argv
-    unless $I0 goto no_args
+    .local int argc
+    argc = elements argv
+    unless argc goto no_args
 
     .local string subcommand_name
     subcommand_name = shift argv
@@ -42,8 +41,6 @@
     .param pmc argv
 
     .local int argc
-    .local pmc retval
-
     argc = elements argv
     unless argc goto bad_args