[svn:parrot] r34663 - trunk/runtime/parrot/library/Tcl

Author: coke
Date: Tue Dec 30 12:29:35 2008
New Revision: 34663

Modified:
   trunk/runtime/parrot/library/Tcl/Glob.pir

Log:
avoid [DEPRECATED] opcodes. avoid a keyed lookup since we're already in this NS.



Modified: trunk/runtime/parrot/library/Tcl/Glob.pir
==============================================================================
--- trunk/runtime/parrot/library/Tcl/Glob.pir	(original)
+++ trunk/runtime/parrot/library/Tcl/Glob.pir	Tue Dec 30 12:29:35 2008
@@ -86,18 +86,18 @@
     load_bytecode 'PCT/HLLCompiler.pbc'
 
     optable = new ['PGE';'OPTable']
-    store_global '$optable', optable
+    set_global '$optable', optable
 
-    $P0 = find_global 'glob_literal'
+    $P0 = get_global 'glob_literal'
     optable.'newtok'('term:', 'precedence'=>'=', 'nows'=>1, 'parsed'=>$P0)
 
-    $P0 = find_global 'glob_quest'
+    $P0 = get_global 'glob_quest'
     optable.'newtok'('term:?', 'equiv'=>'term:', 'nows'=>1, 'parsed'=>$P0)
 
-    $P0 = find_global 'glob_star'
+    $P0 = get_global 'glob_star'
     optable.'newtok'('term:*', 'equiv'=>'term:', 'nows'=>1, 'parsed'=>$P0)
 
-    $P0 = find_global 'glob_enum'
+    $P0 = get_global 'glob_enum'
     optable.'newtok'('term:[', 'equiv'=>'term:', 'nows'=>1, 'parsed'=>$P0)
 
     optable.'newtok'('infix:', 'looser'=>'term:', 'assoc'=>'list', 'nows'=>1, 'match'=>'PGE::Exp::Concat')
@@ -127,7 +127,7 @@
     .param pmc adverbs         :slurpy :named
 
     .local pmc optable, match
-    optable = find_global ['Tcl';'Glob'], '$optable'
+    optable = get_global '$optable'
     match = optable.'parse'(mob)
     .return (match)
 .end

• [svn:parrot] r34663 - trunk/runtime/parrot/library/Tcl by coke