Author: pmichaud
Date: Fri Aug 15 22:43:09 2008
New Revision: 30257
Modified:
trunk/compilers/pct/src/PAST/Compiler.pir
Log:
[pct]: Allow PAST::Op inline nodes to accept an array of strings.
Modified: trunk/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/PAST/Compiler.pir (original)
+++ trunk/compilers/pct/src/PAST/Compiler.pir Fri Aug 15 22:43:09 2008
@@ -1519,8 +1519,16 @@
.local pmc ops
ops = self.'post_children'(node, 'signature'=>'vP')
+ .local pmc inline_pmc
.local string inline
- inline = node.'inline'()
+ inline_pmc = node.'inline'()
+ $I0 = does inline_pmc, 'array'
+ if $I0 goto inline_array
+ inline = inline_pmc
+ goto have_inline
+ inline_array:
+ inline = join "\n", inline_pmc
+ have_inline:
.local string result
result = ''
