[svn:parrot] r29900 - trunk/languages/tcl/runtime

[coke@xxxxxxxxxxxx]

Author: coke
Date: Wed Jul 30 20:37:55 2008
New Revision: 29900

Modified:
   trunk/languages/tcl/runtime/conversions.pir

Log:
[tcl] remove unused function parameter



Modified: trunk/languages/tcl/runtime/conversions.pir
==============================================================================
--- trunk/languages/tcl/runtime/conversions.pir (original)
+++ trunk/languages/tcl/runtime/conversions.pir Wed Jul 30 20:37:55 2008
@@ -291,7 +291,6 @@
 
 .sub compileExpr
     .param string expression
-    .param int    pir_only :named('pir_only') :optional
     .param pmc    ns       :named('ns')       :optional
     .param int    has_ns   :opt_flag
 
@@ -337,7 +336,6 @@
 
     .local string ret
     ret = ast['ret']
-    if pir_only goto only_pir
 
     .local pmc pir
     pir = new 'CodeString'
@@ -353,9 +351,6 @@
     $P2 = $P1(pir)
     .return ($P2)
 
-  only_pir:
-    .return(result, ret)
-
   premature_end:
     $S0 = expression
     $S0 = 'syntax error in expression "' . $S0