[svn:parrot] r43507 - in branches/pge_no_namespace_methods: runtime/parrot/library/PGE t/compilers/pge
tene at svn.parrot.org
tene at svn.parrot.org
Wed Jan 20 08:18:25 UTC 2010
Author: tene
Date: Wed Jan 20 08:18:24 2010
New Revision: 43507
URL: https://trac.parrot.org/parrot/changeset/43507
Log:
[pge] Fix PGE::Text::bracketed and its test
Modified:
branches/pge_no_namespace_methods/runtime/parrot/library/PGE/Text.pir
branches/pge_no_namespace_methods/t/compilers/pge/pge_text.t
Modified: branches/pge_no_namespace_methods/runtime/parrot/library/PGE/Text.pir
==============================================================================
--- branches/pge_no_namespace_methods/runtime/parrot/library/PGE/Text.pir Wed Jan 20 08:18:17 2010 (r43506)
+++ branches/pge_no_namespace_methods/runtime/parrot/library/PGE/Text.pir Wed Jan 20 08:18:24 2010 (r43507)
@@ -36,8 +36,7 @@
=cut
-.sub "bracketed"
- .param pmc tgt # target to match
+.sub "bracketed" :method
.param string delim :optional # optional delimiters
.param int has_delim :opt_flag
.param pmc adverbs :slurpy :named # named options
@@ -51,7 +50,7 @@
.local pmc stack # lookket backtracking
$P0 = get_hll_global ['PGE'], 'Match'
- (mob, pos, target) = $P0.'new'(tgt)
+ (mob, pos, target) = $P0.'new'(self)
from = pos
if has_delim goto mkdelims
Modified: branches/pge_no_namespace_methods/t/compilers/pge/pge_text.t
==============================================================================
--- branches/pge_no_namespace_methods/t/compilers/pge/pge_text.t Wed Jan 20 08:18:17 2010 (r43506)
+++ branches/pge_no_namespace_methods/t/compilers/pge/pge_text.t Wed Jan 20 08:18:24 2010 (r43507)
@@ -32,7 +32,8 @@
load_bytecode 'PGE.pbc'
load_bytecode 'PGE/Text.pbc'
- bracketed = get_global ['PGE';'Text'], "bracketed"
+ bracketed = get_global ['PGE'], 'Text'
+ bracketed = find_method bracketed, "bracketed"
.local pmc jmpstack
jmpstack = new 'ResizableIntegerArray'
$S0 = "{ nested { and } okay, () and <>, escaped \\}'s } okay"
More information about the parrot-commits
mailing list