[svn:parrot] r46735 - branches/pct_multi_support/compilers/pct/src/POST

[bacek at svn.parrot.org]

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

Log:
Generate :multi in POST::Compiler

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

Modified: branches/pct_multi_support/compilers/pct/src/POST/Compiler.pir
==============================================================================
--- branches/pct_multi_support/compilers/pct/src/POST/Compiler.pir	Mon May 17 13:51:20 2010	(r46734)
+++ branches/pct_multi_support/compilers/pct/src/POST/Compiler.pir	Mon May 17 13:51:44 2010	(r46735)
@@ -321,6 +321,15 @@
     set_global '$?NAMESPACE', ns
     nskey = self.'key_pir'(ns)
 
+    .local pmc multi
+    $P0 = node.'multi'()
+    unless $P0 goto no_multi
+    $S0 = self.'key_pir'($P0)
+    pirflags = concat pirflags, ' :multi('
+    pirflags = concat pirflags, $S0
+    pirflags = concat pirflags, ')'
+  no_multi:
+
   subpir_start:
     $P0 = node['loadinit']
     if null $P0 goto loadinit_done