Author: kjs
Date: Sun Nov 30 06:35:52 2008
New Revision: 33365
Modified:
trunk/t/compilers/imcc/syn/file.t
Log:
[t] more 'global' -> 'find_global' conversions.
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:35:52 2008
@@ -178,7 +178,7 @@
say "sub1"
load_bytecode "$temp_pbc"
say "loaded"
- \$P0 = global "_sub2"
+ \$P0 = find_global "_sub2"
.begin_call
.call \$P0
ret:
@@ -212,7 +212,7 @@
say "sub1"
load_bytecode "$temp_pbc"
say "loaded"
- \$P0 = global "_sub2"
+ \$P0 = find_global "_sub2"
.begin_call
.call \$P0
ret:
@@ -249,7 +249,7 @@
say "sub1"
load_bytecode "$temp_pbc"
say "loaded"
- \$P0 = global "_sub2"
+ \$P0 = find_global "_sub2"
.begin_call
.call \$P0
ret:
@@ -279,7 +279,7 @@
say "sub1"
load_bytecode "$temp_pir"
say "loaded"
- \$P0 = global "_sub2"
+ \$P0 = find_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 = global "_sub2"
+ $P0 = find_global "_sub2"
.begin_call
.call $P0
ret:
@@ -321,7 +321,7 @@
print $FOO <<'ENDF';
.sub _sub1
say "sub1"
- $P0 = global "_sub2"
+ $P0 = find_global "_sub2"
.begin_call
.call $P0
ret:
@@ -412,7 +412,7 @@
print "sub1\n"
load_bytecode "$temp_pir"
print "loaded\n"
- $P0 = global "_sub2"
+ $P0 = find_global "_sub2"
.begin_call
.call $P0
ret:
@@ -421,7 +421,7 @@
print "sub1 again\n"
load_bytecode "$temp_pir"
print "loaded again\n"
- $P0 = global "_sub2"
+ $P0 = find_global "_sub2"
.begin_call
.call $P0
ret_again:
