Author: mdiep
Date: Wed May 2 09:29:23 2007
New Revision: 18397
Modified:
trunk/t/pmc/mmd.t
trunk/t/pmc/object-meths.t
trunk/t/pmc/objects.t
trunk/t/pmc/parrotobject.t
trunk/t/stm/llqueue.t
trunk/t/stm/queue.t
trunk/t/stm/runtime.t
Log:
Use more :vtable (part 1)
Modified: trunk/t/pmc/mmd.t
==============================================================================
--- trunk/t/pmc/mmd.t (original)
+++ trunk/t/pmc/mmd.t Wed May 2 09:29:23 2007
@@ -1095,26 +1095,26 @@
print "\n"
.end
.namespace ["AInt"]
-.sub __init :method
+.sub init :vtable :method
$P0 = new Integer
setattribute self, ".i", $P0
.end
-.sub __set_integer_native :method
+.sub set_integer_native :vtable :method
.param int i
$P0 = getattribute self, ".i"
$P0 = i
.end
-.sub __set_number_native :method
+.sub set_number_native :vtable :method
.param float f
$P0 = getattribute self, ".i"
$P0 = f
.end
-.sub __get_string :method
+.sub get_string :vtable :method
$P0 = getattribute self, ".i"
$S0 = $P0
.return ($S0)
.end
-.sub __get_number :method
+.sub get_number :vtable :method
$P0 = getattribute self, ".i"
$N0 = $P0
.return ($N0)
Modified: trunk/t/pmc/object-meths.t
==============================================================================
--- trunk/t/pmc/object-meths.t (original)
+++ trunk/t/pmc/object-meths.t Wed May 2 09:29:23 2007
@@ -799,7 +799,7 @@
.namespace ["Foo"]
-.sub __get_integer_keyed :method
+.sub get_integer_keyed :vtable :method
.param pmc key
print "Key = "
print key
@@ -829,7 +829,7 @@
.namespace ["Foo"]
-.sub __get_integer_keyed :method
+.sub get_integer_keyed :vtable :method
.param pmc key
$S0 = "bar"
print "Key = "
@@ -953,7 +953,7 @@
.end
.namespace ["MyString"]
-.sub __set_string_native :method
+.sub set_string_native :vtable :method
.param string s
classoffset $I0, self, "MyString"
$P0 = getattribute self, $I0
@@ -1136,47 +1136,47 @@
.namespace ["MyClass"]
-.sub __set_integer_keyed_int :method
+.sub set_integer_keyed_int :vtable :method
.param int key
.param int val
print "ikey\n"
.end
-.sub __set_integer_keyed :method
+.sub set_integer_keyed :vtable :method
.param string key
.param int val
print "skey\n"
.end
-.sub __delete_keyed_int :method
+.sub delete_keyed_int :vtable :method
.param int key
print "del_ikey\n"
.end
-.sub __delete_keyed :method
+.sub delete_keyed :vtable :method
.param string key
print "del_skey\n"
.end
-.sub __defined_keyed_int :method
+.sub defined_keyed_int :vtable :method
.param int key
print "def_ikey\n"
.return (0)
.end
-.sub __defined_keyed :method
+.sub defined_keyed :vtable :method
.param string key
print "def_skey\n"
.return (0)
.end
-.sub __exists_keyed_int :method
+.sub exists_keyed_int :vtable :method
.param int key
print "exists_ikey\n"
.return (0)
.end
-.sub __exists_keyed :method
+.sub exists_keyed :vtable :method
.param string key
print "exists_skey\n"
.return (0)
@@ -1245,7 +1245,7 @@
.namespace ["MyClass"]
-.sub __get_integer_keyed_int :method
+.sub get_integer_keyed_int :vtable :method
.param int key
print "ikey\n"
.local pmc ar
Modified: trunk/t/pmc/objects.t
==============================================================================
--- trunk/t/pmc/objects.t (original)
+++ trunk/t/pmc/objects.t Wed May 2 09:29:23 2007
@@ -431,7 +431,7 @@
print_newline
.end
.namespace ['Bar']
-.sub __init :method
+.sub init :vtable :method
$P0 = new .String
$P0 = 'Foo.i'
setattribute self, "Foo\0i", $P0
@@ -1399,7 +1399,7 @@
.end
.namespace ["MyInt"]
-.sub __get_integer :method
+.sub get_integer :vtable :method
$I0 = classoffset self, "MyInt"
$P0 = getattribute self, $I0
$I0 = $P0
@@ -1407,7 +1407,7 @@
.return $I0
.pcc_end_return
.end
-.sub __get_string :method
+.sub get_string :vtable :method
$I0 = classoffset self, "MyInt"
$P0 = getattribute self, $I0
$I0 = $P0
@@ -1454,7 +1454,7 @@
.end
.namespace ["MyInt"]
-.sub __get_string :method
+.sub get_string :vtable :method
$I0 = classoffset self, "MyInt"
$P0 = getattribute self, $I0
$I0 = $P0
@@ -1549,7 +1549,7 @@
.end
.namespace ["MyInt"]
-.sub __get_integer :method
+.sub get_integer :vtable :method
$I0 = classoffset self, "MyInt"
$P0 = getattribute self, $I0
$I0 = $P0
@@ -1557,7 +1557,7 @@
.return $I0
.pcc_end_return
.end
-.sub __get_string :method
+.sub get_string :vtable :method
$I0 = classoffset self, "MyInt"
$P0 = getattribute self, $I0
$I0 = $P0
@@ -1615,7 +1615,7 @@
.namespace ["MyInt2"]
# subclassing methods from MyInt is ok
# this one changes the value a bit
-.sub __get_integer :method
+.sub get_integer :vtable :method
$I0 = classoffset self, "MyInt"
$P0 = getattribute self, $I0
$I0 = $P0
@@ -1625,7 +1625,7 @@
.pcc_end_return
.end
.namespace ["MyInt"]
-.sub __get_integer :method
+.sub get_integer :vtable :method
$I0 = classoffset self, "MyInt"
$P0 = getattribute self, $I0
$I0 = $P0
@@ -1633,7 +1633,7 @@
.return $I0
.pcc_end_return
.end
-.sub __get_string :method
+.sub get_string :vtable :method
$I0 = classoffset self, "MyInt"
$P0 = getattribute self, $I0
$I0 = $P0
@@ -1689,7 +1689,7 @@
.end
.namespace ["MyInt2"]
-.sub __get_integer :method
+.sub get_integer :vtable :method
$I0 = classoffset self, "MyInt"
$P0 = getattribute self, $I0
$I0 = $P0
@@ -1697,7 +1697,7 @@
.return $I0
.pcc_end_return
.end
-.sub __get_string :method
+.sub get_string :vtable :method
$I0 = classoffset self, "MyInt"
$P0 = getattribute self, $I0
$I0 = $P0
@@ -1814,7 +1814,7 @@
print "ok 2\n"
.end
.namespace [ "Foo" ]
-.sub __get_string :method
+.sub get_string :vtable :method
.return("ok 1\n")
.end
.sub Foo
@@ -1949,13 +1949,13 @@
.end
.namespace ["Foo"]
-.sub __init_pmc :method
+.sub init_pmc :vtable :method
.param pmc args
$P0 = args['a']
setattribute self, 'a', $P0
.return()
.end
-.sub __init :method
+.sub init :vtable :method
$P0 = new .String
$P0 = "ok 1\n"
setattribute self, 'a', $P0
@@ -2013,7 +2013,7 @@
print "ok\n"
.end
.namespace ['Foo';'Bar']
-.sub __init :method
+.sub init :vtable :method
print "__init\n"
.end
CODE
@@ -2031,11 +2031,11 @@
print "ok\n"
.end
.namespace ['Foo';'Bar']
-.sub __init :method
+.sub init :vtable :method
print "__init Bar\n"
.end
.namespace ['Foo';'Baz']
-.sub __init :method
+.sub init :vtable :method
print "__init Baz\n"
.end
@@ -2057,16 +2057,16 @@
print "ok\n"
.end
.namespace ['Foo';'Bar']
-.sub __init :method
+.sub init :vtable :method
print "__init Bar\n"
.end
.namespace ['Foo';'Baz']
-.sub __init :method
+.sub init :vtable :method
print "__init Baz\n"
.end
.namespace ['Foo']
-.sub __init :method
+.sub init :vtable :method
print "__init Foo\n"
.end
CODE
@@ -2092,11 +2092,11 @@
print "ok 2\n"
.end
.namespace ['Perl6'; 'PAST'; 'Stmt']
-.sub __init :method
+.sub init :vtable :method
print "__init Stmt\n"
.end
.namespace ['Perl6'; 'PAST'; 'Sub']
-.sub __init :method
+.sub init :vtable :method
print "__init Sub\n"
.end
CODE
@@ -2157,11 +2157,11 @@
print "ok\n"
.end
.namespace ['Foo']
-.sub __init :method
+.sub init :vtable :method
print "__init Foo\n"
.end
.namespace ['Foo';'Bar']
-.sub __init :method
+.sub init :vtable :method
print "__init Bar\n"
.end
CODE
@@ -2186,7 +2186,7 @@
.namespace [ 'Bar' ]
-.sub '__get_string' :method
+.sub 'get_string' :vtable :method
$S0 = 'ok bar'
.return ($S0)
.end
@@ -2204,7 +2204,7 @@
.namespace [ 'Foo' ]
-.sub '__init' :method
+.sub 'init' :vtable :method
say "foo constructor"
.return ()
.end
Modified: trunk/t/pmc/parrotobject.t
==============================================================================
--- trunk/t/pmc/parrotobject.t (original)
+++ trunk/t/pmc/parrotobject.t Wed May 2 09:29:23 2007
@@ -151,18 +151,18 @@
.namespace [ 'Foo' ]
-.sub '__get_string' :method
- .return('Foo::__get_string')
+.sub 'get_string' :vtable :method
+ .return('Foo::get_string')
.end
.namespace [ 'Bar' ]
-.sub 'get_string' :method :vtable
+.sub 'get_string' :vtable :method
.return('Bar::get_string')
.end
CODE
-Foo::__get_string
+Foo::get_string
Bar::get_string
OUT
@@ -237,7 +237,7 @@
pir_output_like( <<'CODE', <<'OUT', 'RT#41732' );
.namespace ['Foo']
-.sub __invoke
+.sub invoke :vtable
.param pmc a
say 'hi'
.end
Modified: trunk/t/stm/llqueue.t
==============================================================================
--- trunk/t/stm/llqueue.t (original)
+++ trunk/t/stm/llqueue.t Wed May 2 09:29:23 2007
@@ -161,7 +161,7 @@
addattribute class, 'next'
.end
-.sub __init :method
+.sub init :vtable :method
$P1 = new Undef
setattribute self, 'value', $P1
@@ -231,7 +231,7 @@
addattribute class, 'tail'
.end
-.sub __init :method
+.sub init :vtable :method
$P1 = new Undef
$P2 = new STMVar, $P1
setattribute self, 'head', $P2
Modified: trunk/t/stm/queue.t
==============================================================================
--- trunk/t/stm/queue.t (original)
+++ trunk/t/stm/queue.t Wed May 2 09:29:23 2007
@@ -47,7 +47,7 @@
done:
.end
-.sub __init_pmc :method
+.sub init_pmc :vtable :method
.param int length
.local pmc tmpint
@@ -178,7 +178,7 @@
.return (ret)
.end
-.sub __clone :method
+.sub clone :vtable :method
.local pmc result
.local pmc length
Modified: trunk/t/stm/runtime.t
==============================================================================
--- trunk/t/stm/runtime.t (original)
+++ trunk/t/stm/runtime.t Wed May 2 09:29:23 2007
@@ -351,7 +351,7 @@
done:
.end
-.sub __init_pmc :method
+.sub init_pmc :vtable :method
.param int length
.local pmc tmpint
