Add pastnode rxtype to QAST::Regex.

Author: pmichaud

src/QAST/Compiler.nqp

@@ -261,6 +261,18 @@ class QAST::Compiler is HLL::Compiler {
         $ops;
     }
 
+    method pastnode($node) {
+        my $ops := self.post_new('Ops', :result(%*REG<cur>));
+        $ops.push_pirop('repr_bind_attr_int', %*REG<cur>, %*REG<curclass>, '"$!pos"', %*REG<pos>);
+        $ops.push_pirop('store_lex', 'unicode:"$\x{a2}"', %*REG<cur>);
+        my $cpost := $*PASTCOMPILER.as_post($node[0], :rtype<P>);
+        $ops.push($cpost);
+        if $node.subtype eq 'zerowidth' {
+            $ops.push_pirop($node.negate ?? 'if' !! 'unless', $cpost, %*REG<fail>);
+        }
+        $ops;
+    }
+
     method quant($node) {
         my $ops := self.post_new('Ops', :result(%*REG<cur>));
         my $backtrack := $node.backtrack || 'g';