[svn:parrot] r21746 - branches/pdd15oo/t/pmc

[kjs]

Author: kjs
Date: Tue Oct  2 08:14:25 2007
New Revision: 21746

Modified:
   branches/pdd15oo/t/pmc/threads.t

Log:
t/pmc/threads.t:
* replace a .Type to 'Type'
* remove find_type ops


Modified: branches/pdd15oo/t/pmc/threads.t
==============================================================================
--- branches/pdd15oo/t/pmc/threads.t    (original)
+++ branches/pdd15oo/t/pmc/threads.t    Tue Oct  2 08:14:25 2007
@@ -606,8 +606,7 @@
 .end
 
 .sub thread_test_func
-    $I0 = find_type 'Bar'
-    $P0 = new $I0
+    $P0 = new 'Bar'
     print $P0
     print "\n"
     $P0.'barmeth'()
@@ -683,7 +682,7 @@
 .namespace [ 'main' ]
 
 .sub init
-    $P0 = getclass .Integer
+    $P0 = getclass 'Integer'
     $P1 = subclass $P0, 'Foo'
     addattribute $P1, 'foo1'
     addattribute $P1, 'foo2'
@@ -692,8 +691,7 @@
 .end
 
 .sub thread_test_func
-    $I0 = find_type 'Bar'
-    $P0 = new $I0
+    $P0 = new 'Bar'
     print $P0
     print "\n"
     $P0.'barmeth'()
@@ -952,10 +950,8 @@
 
 .sub test
     .param pmc passed_value
-    .local int PerlIntType
     .local pmc the_value
-    PerlIntType = find_type 'PerlInt'
-    the_value = new 'PerlIntType'
+    the_value = new 'PerlInt'
     the_value = 42
     store_global 'Foo', 'x', the_value
     $I0 = typeof passed_value
@@ -991,9 +987,7 @@
     bor flags, flags, .PARROT_CLONE_LIBRARIES
 
     .local pmc passed
-    .local int PerlIntType
-    PerlIntType = find_type 'PerlInt'
-    passed = new 'PerlIntType'
+    passed = new 'PerlInt'
     passed = 15
 
     .local pmc thread_func