Do store the NFA of standalone regexes.

jnthn · jnthn · commit deb59eeab06d · 2012-10-21T15:15:38.000+02:00
Turns out that the current way we do gen_op in Rakudo needs that. (Yes,
this will change soon, but this is the easiest way for now.)
diff --git a/src/QRegex/P6Regex/Actions.nqp b/src/QRegex/P6Regex/Actions.nqp
@@ -675,9 +675,9 @@ class QRegex::P6Regex::Actions is HLL::Actions {
         $code_obj.SET_CAPS(%caps);
     }
     
-    # Override this to store the overall NFA for a regex. (Standalone mode doesn't need
-    # it, as it only supports executing individual regexes).
+    # Stores the NFA for the regex overall.
     method store_regex_nfa($code_obj, $block, $nfa) {
+        $code_obj.SET_NFA($nfa.save);
     }
     
     # Stores the NFA for a regex alternation.

Original file line number	Diff line number	Diff line change
`@@ -675,9 +675,9 @@ class QRegex::P6Regex::Actions is HLL::Actions {`
`675`	`675`	`$code_obj.SET_CAPS(%caps);`
`676`	`676`	`}`
`677`	`677`
`678`		`- # Override this to store the overall NFA for a regex. (Standalone mode doesn't need`
`679`		`- # it, as it only supports executing individual regexes).`
	`678`	`+ # Stores the NFA for the regex overall.`
`680`	`679`	`method store_regex_nfa($code_obj, $block, $nfa) {`
	`680`	`+ $code_obj.SET_NFA($nfa.save);`
`681`	`681`	`}`
`682`	`682`
`683`	`683`	`# Stores the NFA for a regex alternation.`