Author: coke
Date: Tue Jan 6 22:02:24 2009
New Revision: 35096
Modified:
trunk/runtime/parrot/library/Test/More.pir
Log:
avoid some [DEPRECATED] opcodes.
Modified: trunk/runtime/parrot/library/Test/More.pir
==============================================================================
--- trunk/runtime/parrot/library/Test/More.pir (original)
+++ trunk/runtime/parrot/library/Test/More.pir Tue Jan 6 22:02:24 2009
@@ -84,7 +84,7 @@
.param string tests
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
test.'plan'( tests )
.end
@@ -100,7 +100,7 @@
.param string description :optional
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
test.'ok'( passed, description )
.end
@@ -117,7 +117,7 @@
.param string description :optional
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
.local int reverse_passed
reverse_passed = not passed
@@ -154,7 +154,7 @@
.param int have_desc :opt_flag
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
.local int l, r, pass
l = left
@@ -185,7 +185,7 @@
.param int have_prec :opt_flag
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
.local num l, r
.local int pass
@@ -225,7 +225,7 @@
.param int have_desc :opt_flag
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
.local string l, r
.local int pass
@@ -255,7 +255,7 @@
.param int have_desc :opt_flag
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
.local int pass
.local int does_type
@@ -316,7 +316,7 @@
.param int have_desc :opt_flag
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
.local int pass
pass = 0
@@ -351,7 +351,7 @@
.param int have_desc :opt_flag
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
.local int pass
pass = 0
@@ -386,7 +386,7 @@
.param int have_desc :opt_flag
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
.local int pass
pass = 0
@@ -421,7 +421,7 @@
.param int have_desc :opt_flag
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
# this comparison may not work in general, but it's worth trying
.local int pass
@@ -454,7 +454,7 @@
.param string diagnostic
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
test.'diag'( diagnostic )
.end
@@ -484,7 +484,7 @@
position = new 'ResizablePMCArray'
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
.local int does_flag
does_flag = does left, 'array'
@@ -547,7 +547,7 @@
.param pmc position
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
.local int l_count
.local int r_count
@@ -612,7 +612,7 @@
.param pmc position
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
.local int l_count
.local int r_count
@@ -833,7 +833,7 @@
.param string description :optional
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
.local pmc p6rule_compile
load_bytecode "PGE.pbc"
@@ -887,7 +887,7 @@
.param string description
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
test.'skip'(how_many, description)
.end
@@ -895,7 +895,7 @@
.param int how_many
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
test.'skip'(how_many)
.end
@@ -903,13 +903,13 @@
.param string description
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
test.'skip'(1, description)
.end
.sub skip :multi()
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
test.'skip'()
.end
@@ -925,7 +925,7 @@
.param pmc args :slurpy
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
test.'todo'( args :flat )
.end
@@ -950,7 +950,7 @@
.param int got_name :opt_flag
.local pmc test
- find_global test, [ 'Test'; 'More' ], '_test'
+ get_hll_global test, [ 'Test'; 'More' ], '_test'
.local string description, diagnostic
description = "The object"
