[svn:parrot] r43186 - trunk/ext/nqp-rx/src/stage0

[bacek at svn.parrot.org]

Author: bacek
Date: Mon Dec 21 19:42:56 2009
New Revision: 43186
URL: https://trac.parrot.org/parrot/changeset/43186

Log:
Update nqp-rx to use getattribute syntax in CallContext

Modified:
   trunk/ext/nqp-rx/src/stage0/Regex-s0.pir

Modified: trunk/ext/nqp-rx/src/stage0/Regex-s0.pir
==============================================================================
--- trunk/ext/nqp-rx/src/stage0/Regex-s0.pir	Mon Dec 21 19:15:15 2009	(r43185)
+++ trunk/ext/nqp-rx/src/stage0/Regex-s0.pir	Mon Dec 21 19:42:56 2009	(r43186)
@@ -1337,13 +1337,13 @@
     context = $P0['context';1]
   caller_loop:
     if null context goto caller_done
-    $P0 = context['current_sub']
+    $P0 = getattribute context, 'current_sub'
     $S0 = $P0
     # stop if we find a name that doesn't begin with ! (33)
     $I0 = ord $S0
     if $I0 != 33 goto caller_done
     if $S0 == peekname goto subrule_none
-    context = context['caller_ctx']
+    context = getattribute context, 'caller_ctx'
     goto caller_loop
   caller_done: