[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