Author: mdiep Date: Tue Mar 13 12:47:30 2007 New Revision: 17471 Modified: trunk/languages/tcl/src/class/tclconst.pir trunk/languages/tcl/src/class/tclproc.pir trunk/languages/tcl/src/macros.pir
Log: [tcl]: Sprinkle some :anon and :vtable for good measure Modified: trunk/languages/tcl/src/class/tclconst.pir ============================================================================== --- trunk/languages/tcl/src/class/tclconst.pir (original) +++ trunk/languages/tcl/src/class/tclconst.pir Tue Mar 13 12:47:30 2007 @@ -12,7 +12,7 @@ =cut -.sub __class_init :load +.sub __class_init :anon :load $P0 = getclass 'String' $P1 = subclass $P0, 'TclConst' @@ -56,7 +56,7 @@ .end -.sub __set_string_native :method +.sub set_string_native :vtable :method .param string value .local int value_length Modified: trunk/languages/tcl/src/class/tclproc.pir ============================================================================== --- trunk/languages/tcl/src/class/tclproc.pir (original) +++ trunk/languages/tcl/src/class/tclproc.pir Tue Mar 13 12:47:30 2007 @@ -18,7 +18,7 @@ =cut -.sub __class_init :load +.sub __class_init :anon :load $P0 = getclass 'Sub' $P1 = subclass $P0, 'TclProc' Modified: trunk/languages/tcl/src/macros.pir ============================================================================== --- trunk/languages/tcl/src/macros.pir (original) +++ trunk/languages/tcl/src/macros.pir Tue Mar 13 12:47:30 2007 @@ -84,13 +84,13 @@ =head2 cloneable () -Simplistic implementation of C<__clone> +Simplistic implementation of C<clone> vtable =cut .macro cloneable () -.sub __clone :method +.sub clone :vtable :method .sym pmc obj obj = new .Undef assign obj, self
