Author: pmichaud
Date: Sun Nov 9 23:20:31 2008
New Revision: 32481
Modified:
trunk/compilers/pct/src/PAST/Compiler.pir
Log:
[pct]: Update 'for' nodes to follow body pattern of if/unless/while/until .
Modified: trunk/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/PAST/Compiler.pir (original)
+++ trunk/compilers/pct/src/PAST/Compiler.pir Sun Nov 9 23:20:31 2008
@@ -1177,7 +1177,6 @@
ops.'push'(looplabel)
ops.'push_pirop'('unless', iter, endlabel)
-
.local pmc subpast
subpast = node[1]
@@ -1209,9 +1208,9 @@
arity_end:
.local pmc subpost
- subpost = self.'as_post'(subpast, 'rtype'=>'P')
+ subpast.'blocktype'('immediate') # FIXME
+ subpost = self.'as_post'(subpast, 'rtype'=>'P', 'arglist'=>arglist)
ops.'push'(subpost)
- ops.'push_pirop'('call', subpost, arglist :flat)
ops.'push_pirop'('goto', looplabel)
ops.'push'(nextlabel)
ops.'push_pirop'('.local pmc exception')
