[svn:parrot] r41888 - trunk/compilers/pct/src/PCT

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Fri Oct 16 14:12:24 2009
New Revision: 41888
URL: https://trac.parrot.org/parrot/changeset/41888

Log:
[pct]:  Explicitly allow protoobjects as parseactions in HLLCompiler.

Modified:
   trunk/compilers/pct/src/PCT/HLLCompiler.pir

Modified: trunk/compilers/pct/src/PCT/HLLCompiler.pir
==============================================================================
--- trunk/compilers/pct/src/PCT/HLLCompiler.pir	Fri Oct 16 13:47:42 2009	(r41887)
+++ trunk/compilers/pct/src/PCT/HLLCompiler.pir	Fri Oct 16 14:12:24 2009	(r41888)
@@ -389,6 +389,9 @@
     parseactions = self.'parseactions'()
     $I0 = isa parseactions, ['Undef']
     if $I0 goto have_action
+    ##  if parseactions is a protoobject, use it directly
+    $I0 = isa parseactions, 'P6protoobject'
+    if $I0 goto action_exact
     ##  if parseactions is a Class or array, make action directly from that
     $I0 = isa parseactions, 'Class'
     if $I0 goto action_make
@@ -399,6 +402,7 @@
     ##  if parseactions is not a String, use it directly.
     $I0 = isa parseactions, 'String'
     if $I0 goto action_string
+  action_exact:
     action = parseactions
     goto have_action
   action_namespace: