develooper Front page | perl.cvs.parrot | Postings from November 2008

[svn:parrot] r33365 - trunk/t/compilers/imcc/syn

From:
kjs
Date:
November 30, 2008 06:36
Subject:
[svn:parrot] r33365 - trunk/t/compilers/imcc/syn
Message ID:
20081130143553.9E905CB9AF@x12.develooper.com
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:



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About