[svn:parrot] r29780 - in trunk/languages/tcl/src: . class grammar/expr

[coke]

Author: coke
Date: Sat Jul 26 18:27:31 2008
New Revision: 29780

Modified:
   trunk/languages/tcl/src/class/tclconst.pir
   trunk/languages/tcl/src/grammar/expr/past.pir
   trunk/languages/tcl/src/macros.pir

Log:
[tcl] Now that :vtable knows about 'self', drop the :method hack we had been 
using to get access to it.


Modified: trunk/languages/tcl/src/class/tclconst.pir
==============================================================================
--- trunk/languages/tcl/src/class/tclconst.pir  (original)
+++ trunk/languages/tcl/src/class/tclconst.pir  Sat Jul 26 18:27:31 2008
@@ -55,7 +55,7 @@
 
 .end
 
-.sub set_string_native :vtable :method
+.sub set_string_native :vtable
   .param string value
 
   .local int value_length

Modified: trunk/languages/tcl/src/grammar/expr/past.pir
==============================================================================
--- trunk/languages/tcl/src/grammar/expr/past.pir       (original)
+++ trunk/languages/tcl/src/grammar/expr/past.pir       Sat Jul 26 18:27:31 2008
@@ -72,7 +72,7 @@
 
 =cut
 
-.sub init :vtable :method
+.sub init :vtable
     $P0 = new 'String'
     $P1 = new 'Integer'
     $P2 = new 'ResizablePMCArray'

Modified: trunk/languages/tcl/src/macros.pir
==============================================================================
--- trunk/languages/tcl/src/macros.pir  (original)
+++ trunk/languages/tcl/src/macros.pir  Sat Jul 26 18:27:31 2008
@@ -90,7 +90,7 @@
 
 .macro cloneable ()
 
-.sub clone :vtable :method
+.sub clone :vtable
   .local pmc obj
   obj = new 'Undef'
   assign obj, self