Author: jquelin
Date: Wed Oct 3 09:30:06 2007
New Revision: 21781
Modified:
branches/pdd15oo/t/pmc/freeze.t
branches/pdd15oo/t/pmc/object-meths.t
branches/pdd15oo/t/pmc/objects.t
Log:
more find_type removal
Modified: branches/pdd15oo/t/pmc/freeze.t
==============================================================================
--- branches/pdd15oo/t/pmc/freeze.t (original)
+++ branches/pdd15oo/t/pmc/freeze.t Wed Oct 3 09:30:06 2007
@@ -442,8 +442,7 @@
print S10
print "\n"
- find_type I4, S10
- new P5, I4
+ P5 = new S10
print "ok 3\n"
classoffset I5, P5, S10
new P6, 'String'
@@ -483,8 +482,7 @@
print S10
print "\n"
- find_type I4, S10
- new P5, I4
+ P5 = new S10
print "ok 3\n"
classoffset I5, P5, S10
new P6, 'String'
@@ -517,8 +515,7 @@
newclass P10, "Foo"
addattribute P10, ".aa"
addattribute P10, ".bb"
- find_type I4, "Foo"
- new P10, I4
+ P10 = new "Foo"
print S10
freeze S3, P10
open P3, "temp.fpmc", ">"
Modified: branches/pdd15oo/t/pmc/object-meths.t
==============================================================================
--- branches/pdd15oo/t/pmc/object-meths.t (original)
+++ branches/pdd15oo/t/pmc/object-meths.t Wed Oct 3 09:30:06 2007
@@ -103,8 +103,7 @@
pasm_output_is( <<'CODE', <<'OUTPUT', "can object" );
newclass P2, "Foo"
- find_type I0, "Foo"
- new P2, I0
+ P2 = new "Foo"
set S0, "meth"
@@ -126,8 +125,7 @@
pasm_output_is( <<'CODE', <<'OUTPUT', "constructor" );
newclass P1, "Foo"
- find_type I1, "Foo"
- new P3, I1
+ P3 = new "Foo"
print "ok 2\n"
end
.namespace ["Foo"]
@@ -144,8 +142,7 @@
newclass P1, "Foo"
new P0, 'String'
setprop P1, "BUILD", P0
- find_type I1, "Foo"
- new P3, I1
+ P3 = new "Foo"
print "ok 1\n"
end
.namespace ["Foo"]
@@ -164,8 +161,7 @@
push_eh _handler
- find_type I1, "Foo"
- new P3, I1
+ P3 = new "Foo"
print "not ok 1\n"
end
@@ -188,8 +184,7 @@
pasm_output_is( <<'CODE', <<'OUTPUT', "constructor - init attr" );
newclass P1, "Foo"
addattribute P1, ".i"
- find_type I1, "Foo"
- new P3, I1
+ P3 = new "Foo"
print "ok 2\n"
print P3
print "\n"
@@ -220,10 +215,8 @@
newclass P1, "Foo"
subclass P2, P1, "Bar"
subclass P3, P2, "Baz"
- find_type I1, "Baz"
- new P3, I1
- find_type I1, "Bar"
- new P3, I1
+ P3 = new "Baz"
+ P3 = new "Bar"
find_global P0, "_sub"
invokecc P0
print "done\n"
@@ -276,11 +269,8 @@
newclass A, "A"
newclass B, "B"
- find_type I0, "A"
- find_type I1, "B"
-
- new A, I0
- new B, I1
+ A = new "A"
+ B = new "B"
setprop A, "B", B
@@ -334,11 +324,8 @@
newclass A, "A"
newclass B, "B"
- find_type I0, "A"
- find_type I1, "B"
-
- new A, I0
- new B, I1
+ A = new "A"
+ B = new "B"
A."foo"(B)
B."foo"()
@@ -389,11 +376,8 @@
newclass A, "A"
newclass B, "B"
- find_type I0, "A"
- find_type I1, "B"
-
- new A, I0
- new B, I1
+ A = new "A"
+ B = new "B"
.local pmc r
r = A."foo"(B)
@@ -448,8 +432,7 @@
newclass P0, "Foo"
print "new\n"
- find_type I0, "Foo"
- new P2, I0
+ P2 = new "Foo"
eh:
print "back in main\n"
end
@@ -472,8 +455,7 @@
pasm_output_is( <<'CODE', <<'OUTPUT', "find_method" );
newclass P3, "Foo"
- find_type I0, "Foo"
- new P2, I0
+ P2 = new "Foo"
set S0, "meth"
find_method P0, P2, S0
@@ -530,8 +512,7 @@
bsr _check_isa
print "new F\n"
- find_type I1, "F"
- new P16, I1
+ P16 = new "F"
print "done\n"
end
@@ -660,10 +641,8 @@
setprop P2, "BUILD", P10
subclass P3, P2, "Baz"
setprop P3, "BUILD", P10
- find_type I1, "Baz"
- new P3, I1
- find_type I1, "Bar"
- new P3, I1
+ P3 = new "Baz"
+ P3 = new "Bar"
find_global P0, "_sub"
invokecc P0
print "done\n"
@@ -761,9 +740,8 @@
.local pmc A
newclass A, "A"
- find_type I0, "A"
+ A = new "A"
- new A, I0
A."foo"()
end
.end
@@ -786,8 +764,7 @@
.sub _main
newclass $P0, "Foo"
- find_type $I0, "Foo"
- new $P1, $I0
+ $P1 = new "Foo"
$I1 = $P1["foo"]
@@ -816,8 +793,7 @@
.sub _main
newclass $P0, "Foo"
- find_type $I0, "Foo"
- new $P1, $I0
+ $P1 = new "Foo"
$I1 = $P1["foo"]
@@ -851,8 +827,7 @@
.local pmc o, cl
newclass cl, "Foo"
subclass cl, cl, "Bar"
- $I0 = find_type "Bar"
- o = new $I0
+ o = new "Bar"
print o
$P0 = global "ok2"
store_global "Bar", "__get_string", $P0
Modified: branches/pdd15oo/t/pmc/objects.t
==============================================================================
--- branches/pdd15oo/t/pmc/objects.t (original)
+++ branches/pdd15oo/t/pmc/objects.t Wed Oct 3 09:30:06 2007
@@ -535,8 +535,7 @@
newclass P1, "Foo"
addattribute P1, "i"
addattribute P1, "j"
- find_type I0, "Foo"
- new P2, I0
+ P2 = new "Foo"
classoffset I1, P2, "Foo"
new P3, 'Integer'
