make conjseq handle zerowidth subtype

diakopter · diakopter · commit fd2fd16c7d87 · 2011-11-19T18:29:51.000-08:00
diff --git a/src/QAST/Compiler.nqp b/src/QAST/Compiler.nqp
@@ -229,6 +229,7 @@ class QAST::Compiler is HLL::Compiler {
             self.regex_peek($ops, $conjlabel, '$I11', '$I12');
             $ops.push_pirop('ne', %*REG<pos>, '$I12', %*REG<fail>);
         }
+        $ops.push_pirop('set', %*REG<pos>, '$I11') if $node.subtype eq 'zerowidth';
         $ops;
     }
 

Original file line number	Diff line number	Diff line change
`@@ -229,6 +229,7 @@ class QAST::Compiler is HLL::Compiler {`
`229`	`229`	`self.regex_peek($ops, $conjlabel, '$I11', '$I12');`
`230`	`230`	`$ops.push_pirop('ne', %REG<pos>, '$I12', %REG<fail>);`
`231`	`231`	`}`
	`232`	`+ $ops.push_pirop('set', %*REG<pos>, '$I11') if $node.subtype eq 'zerowidth';`
`232`	`233`	`$ops;`
`233`	`234`	`}`
`234`	`235`