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

NotFound at svn.parrot.org NotFound at svn.parrot.org
Thu Sep 3 21:30:05 UTC 2009


Author: NotFound
Date: Thu Sep  3 21:30:05 2009
New Revision: 40964
URL: https://trac.parrot.org/parrot/changeset/40964

Log:
[cage] make some TODOed test at least compile

Modified:
   trunk/t/pmc/threads.t

Modified: trunk/t/pmc/threads.t
==============================================================================
--- trunk/t/pmc/threads.t	Thu Sep  3 20:46:22 2009	(r40963)
+++ trunk/t/pmc/threads.t	Thu Sep  3 21:30:05 2009	(r40964)
@@ -831,10 +831,10 @@
     .local pmc the_value
     the_value = new ['PerlInt']
     the_value = 42
-    store_global 'Foo', 'x', the_value
-    $I0 = typeof passed_value
-    $I1 = typeof the_value
-    $I0 = $I0 - $I1
+    set_hll_global ['Foo'], 'x', the_value
+    $S0 = typeof passed_value
+    $S1 = typeof the_value
+    $I0 = iseq $S0, $S1
     print $I0
     print "\n"
     .local pmc ns
@@ -848,7 +848,7 @@
 okay:
     print "ok (equal)\n"
 
-    $I0 = fortytwo
+    $I0 = the_value
     print $I0
     print "\n"
 .end


More information about the parrot-commits mailing list