Author: jquelin
Date: Wed Oct 3 09:16:14 2007
New Revision: 21776
Modified:
branches/pdd15oo/t/compilers/imcc/reg/spill.t
branches/pdd15oo/t/compilers/imcc/syn/objects.t
Log:
more find_type removal
Modified: branches/pdd15oo/t/compilers/imcc/reg/spill.t
==============================================================================
--- branches/pdd15oo/t/compilers/imcc/reg/spill.t (original)
+++ branches/pdd15oo/t/compilers/imcc/reg/spill.t Wed Oct 3 09:16:14 2007
@@ -433,8 +433,7 @@
.sub __biginit :main
newclass $P0, "Foo"
- $I1 = find_type "Foo"
- $P1 = new $I1
+ $P1 = new "Foo"
$P1.method1()
$P1.method2()
Modified: branches/pdd15oo/t/compilers/imcc/syn/objects.t
==============================================================================
--- branches/pdd15oo/t/compilers/imcc/syn/objects.t (original)
+++ branches/pdd15oo/t/compilers/imcc/syn/objects.t Wed Oct 3 09:16:14 2007
@@ -18,8 +18,7 @@
.local pmc class
.local pmc obj
newclass class, "Foo"
- find_type $I0, "Foo"
- new obj, $I0
+ obj = new "Foo"
obj._meth()
print "done\n"
end
@@ -39,8 +38,7 @@
.local pmc class
.local pmc obj
newclass class, "Foo"
- find_type $I0, "Foo"
- new obj, $I0
+ obj = new "Foo"
$P0 = new 'String'
$P0 = "ok\n"
obj._meth($P0)
@@ -65,8 +63,7 @@
.local pmc class
.local pmc obj
newclass class, "Foo"
- find_type $I0, "Foo"
- new obj, $I0
+ obj = new "Foo"
$P0 = new 'String'
$P0 = "ok\n"
$S0 = obj._meth($P0)
@@ -96,8 +93,7 @@
.local string meth
meth = "_meth"
newclass class, "Foo"
- find_type $I0, "Foo"
- new obj, $I0
+ obj = new "Foo"
obj."_meth"()
obj._meth()
set S10, "_meth"
@@ -124,8 +120,7 @@
newclass P1, "Foo"
subclass P2, P1, "Bar"
subclass P3, P2, "Baz"
- find_type I1, "Baz"
- new P3, I1
+ P3 = new "Baz"
find_global P0, "_sub"
invokecc P0
print "done\n"
@@ -165,8 +160,7 @@
.local pmc class
.local pmc obj
newclass class, "Foo"
- find_type $I0, "Foo"
- new obj, $I0
+ obj = new "Foo"
obj._meth()
print "done\n"
end
@@ -193,8 +187,7 @@
.local pmc class
.local pmc obj
newclass class, "Foo"
- find_type $I0, "Foo"
- new obj, $I0
+ obj = new "Foo"
.pcc_begin
.invocant obj
.meth_call "_meth"
@@ -219,8 +212,7 @@
.local pmc obj
.local string meth
newclass class, "Foo"
- find_type $I0, "Foo"
- new obj, $I0
+ obj = new "Foo"
meth = "_me"
meth = meth . "th" # test concat to
.pcc_begin
@@ -245,8 +237,7 @@
.local pmc class
.local pmc obj
newclass class, "Foo"
- find_type $I0, "Foo"
- new obj, $I0
+ obj = new "Foo"
.pcc_begin
.arg "hello"
.arg "\n"
@@ -283,8 +274,7 @@
.local pmc class
.local pmc obj
newclass class, "Foo"
- find_type $I0, "Foo"
- new obj, $I0
+ obj = new "Foo"
.pcc_begin
.invocant obj
.meth_call "_meth"
@@ -308,8 +298,7 @@
.local pmc class
.local pmc obj
newclass class, "Foo"
- find_type $I0, "Foo"
- new obj, $I0
+ obj = new "Foo"
obj.open()
print "done\n"
end
