[svn:parrot] r46734 - branches/pct_multi_support/compilers/pct/src/PAST

[bacek at svn.parrot.org]

Author: bacek
Date: Mon May 17 13:51:20 2010
New Revision: 46734
URL: https://trac.parrot.org/parrot/changeset/46734

Log:
Pass PAST::Block.multi to POST::Sub.new

Modified:
   branches/pct_multi_support/compilers/pct/src/PAST/Compiler.pir

Modified: branches/pct_multi_support/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- branches/pct_multi_support/compilers/pct/src/PAST/Compiler.pir	Mon May 17 13:51:04 2010	(r46733)
+++ branches/pct_multi_support/compilers/pct/src/PAST/Compiler.pir	Mon May 17 13:51:20 2010	(r46734)
@@ -791,7 +791,7 @@
     unshift blockpast, node
 
     .local string name, pirflags, blocktype
-    .local pmc nsentry, subid, ns, hll
+    .local pmc nsentry, subid, ns, hll, multi
     name = node.'name'()
     pirflags = node.'pirflags'()
     blocktype = node.'blocktype'()
@@ -799,6 +799,7 @@
     subid = node.'subid'()
     ns = node.'namespace'()
     hll = node.'hll'()
+    multi = node.'multi'()
 
     ##  handle nsentry attribute
     $I0 = defined nsentry
@@ -824,7 +825,7 @@
     ##  create a POST::Sub node for this block
     .local pmc bpost
     $P0 = get_hll_global ['POST'], 'Sub'
-    bpost = $P0.'new'('node'=>node, 'name'=>name, 'blocktype'=>blocktype, 'namespace'=>ns, 'hll'=>hll, 'subid'=>subid)
+    bpost = $P0.'new'('node'=>node, 'name'=>name, 'blocktype'=>blocktype, 'namespace'=>ns, 'hll'=>hll, 'subid'=>subid, 'multi'=>multi)
     unless pirflags goto pirflags_done
     bpost.'pirflags'(pirflags)
   pirflags_done: