[svn:parrot] r46733 - in branches/pct_multi_support/compilers/pct/src: PAST POST

[bacek at svn.parrot.org]

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

Log:
Add PAST::Block.multi and POST::Sub.multi.

Modified:
   branches/pct_multi_support/compilers/pct/src/PAST/Node.pir
   branches/pct_multi_support/compilers/pct/src/POST/Node.pir

Modified: branches/pct_multi_support/compilers/pct/src/PAST/Node.pir
==============================================================================
--- branches/pct_multi_support/compilers/pct/src/PAST/Node.pir	Mon May 17 13:31:36 2010	(r46732)
+++ branches/pct_multi_support/compilers/pct/src/PAST/Node.pir	Mon May 17 13:51:04 2010	(r46733)
@@ -570,6 +570,19 @@
     .tailcall self.'attr'('namespace', value, has_value)
 .end
 
+=item multi([multi])
+
+Get/set the multi signature for this block.  The C<multi> argument
+can be either a string or an array of strings.
+
+=cut
+
+.sub 'multi' :method
+    .param pmc value           :optional
+    .param int has_value       :opt_flag
+    .tailcall self.'attr'('multi', value, has_value)
+.end
+
 
 =item hll([hll])
 

Modified: branches/pct_multi_support/compilers/pct/src/POST/Node.pir
==============================================================================
--- branches/pct_multi_support/compilers/pct/src/POST/Node.pir	Mon May 17 13:31:36 2010	(r46732)
+++ branches/pct_multi_support/compilers/pct/src/POST/Node.pir	Mon May 17 13:51:04 2010	(r46733)
@@ -204,6 +204,12 @@
     .tailcall self.'attr'('outer', value, has_value)
 .end
 
+.sub 'multi' :method
+    .param pmc value           :optional
+    .param int has_value       :opt_flag
+    .tailcall self.'attr'('multi', value, has_value)
+.end
+
 
 .sub 'subid' :method
     .param pmc value           :optional