Author: pmichaud
Date: Sun Jan 4 00:24:06 2009
New Revision: 34915
Modified:
branches/rvar/compilers/pct/src/PAST/Compiler.pir
Log:
[pct]: Add 'null' pasttype.
Modified: branches/rvar/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- branches/rvar/compilers/pct/src/PAST/Compiler.pir (original)
+++ branches/rvar/compilers/pct/src/PAST/Compiler.pir Sun Jan 4 00:24:06 2009
@@ -1527,6 +1527,21 @@
.end
+=item null(PAST::Op node)
+
+A "no-op" node -- none of the children are processed, and
+no statements are generated.
+
+=cut
+
+.sub 'null' :method :multi(_, ['PAST';'Op'])
+ .param pmc node
+ .param pmc options :slurpy :named
+ $P0 = get_hll_global ['POST'], 'Ops'
+ .tailcall $P0.'new'('node'=>node)
+.end
+
+
=item return(PAST::Op node)
Generate a return exception, using the first child (if any) as
