[svn:parrot] r21745 - trunk/t/pmc

[kjs]

Author: kjs
Date: Tue Oct  2 06:53:16 2007
New Revision: 21745

Modified:
   trunk/t/pmc/threads.t

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

Modified: trunk/t/pmc/threads.t
==============================================================================
--- trunk/t/pmc/threads.t       (original)
+++ trunk/t/pmc/threads.t       Tue Oct  2 06:53:16 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