Front page | perl.cvs.parrot |
Postings from December 2008
[svn:parrot] r34663 - trunk/runtime/parrot/library/Tcl
From:
coke
Date:
December 30, 2008 12:29
Subject:
[svn:parrot] r34663 - trunk/runtime/parrot/library/Tcl
Message ID:
20081230202936.92D16CB9FA@x12.develooper.com
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