Author: kjs
Date: Sun Nov 30 06:41:33 2008
New Revision: 33366
Modified:
trunk/t/compilers/imcc/syn/file.t
trunk/t/compilers/imcc/syn/pcc.t
trunk/t/pmc/coroutine.t
Log:
[t] {find_global,global} becomes get_global.
Modified: trunk/t/compilers/imcc/syn/file.t
==============================================================================
--- trunk/t/compilers/imcc/syn/file.t (original)
+++ trunk/t/compilers/imcc/syn/file.t Sun Nov 30 06:41:33 2008
@@ -178,7 +178,7 @@
say "sub1"
load_bytecode "$temp_pbc"
say "loaded"
- \$P0 = find_global "_sub2"
+ \$P0 = get_global "_sub2"
.begin_call
.call \$P0
ret:
@@ -212,7 +212,7 @@
say "sub1"
load_bytecode "$temp_pbc"
say "loaded"
- \$P0 = find_global "_sub2"
+ \$P0 = get_global "_sub2"
.begin_call
.call \$P0
ret:
@@ -249,7 +249,7 @@
say "sub1"
load_bytecode "$temp_pbc"
say "loaded"
- \$P0 = find_global "_sub2"
+ \$P0 = get_global "_sub2"
.begin_call
.call \$P0
ret:
@@ -279,7 +279,7 @@
say "sub1"
load_bytecode "$temp_pir"
say "loaded"
- \$P0 = find_global "_sub2"
+ \$P0 = get_global "_sub2"
.begin_call
.call \$P0
ret:
@@ -296,7 +296,7 @@
pir_output_is( <<'CODE', <<'OUT', 'call internal sub like external' );
.sub _sub1
print "sub1\n"
- $P0 = find_global "_sub2"
+ $P0 = get_global "_sub2"
.begin_call
.call $P0
ret:
@@ -321,7 +321,7 @@
print $FOO <<'ENDF';
.sub _sub1
say "sub1"
- $P0 = find_global "_sub2"
+ $P0 = get_global "_sub2"
.begin_call
.call $P0
ret:
@@ -412,7 +412,7 @@
print "sub1\n"
load_bytecode "$temp_pir"
print "loaded\n"
- $P0 = find_global "_sub2"
+ $P0 = get_global "_sub2"
.begin_call
.call $P0
ret:
@@ -421,7 +421,7 @@
print "sub1 again\n"
load_bytecode "$temp_pir"
print "loaded again\n"
- $P0 = find_global "_sub2"
+ $P0 = get_global "_sub2"
.begin_call
.call $P0
ret_again:
Modified: trunk/t/compilers/imcc/syn/pcc.t
==============================================================================
--- trunk/t/compilers/imcc/syn/pcc.t (original)
+++ trunk/t/compilers/imcc/syn/pcc.t Sun Nov 30 06:41:33 2008
@@ -87,7 +87,7 @@
pir_output_is( <<'CODE', <<'OUT', "_func() syntax with var - global" );
.sub test :main
.local pmc the_sub
- the_sub = global "_sub"
+ the_sub = get_global "_sub"
the_sub(10, 20)
end
.end
Modified: trunk/t/pmc/coroutine.t
==============================================================================
--- trunk/t/pmc/coroutine.t (original)
+++ trunk/t/pmc/coroutine.t Sun Nov 30 06:41:33 2008
@@ -265,7 +265,7 @@
.sub main :main
.local pmc c
- c = global "coro"
+ c = get_global "coro"
typeof $S0, c
print $S0
.end
@@ -284,7 +284,7 @@
.sub main :main
.local pmc c
- c = global "coro"
+ c = get_global "coro"
loop:
.begin_call
.call c
@@ -311,7 +311,7 @@
<<'CODE', <<'OUTPUT', "Call an exited coroutine", todo => 'goes one
iteration too far.' );
.sub main :main
.local pmc c
- c = global "coro"
+ c = get_global "coro"
loop:
$P0 = c()
print $P0
