Merge branch 'cursor-mem-opts' of github.com:perl6/nqp

Author: FROGGS

src/QRegex/Cursor.nqp

@@ -85,7 +85,15 @@ role NQPCursorRole is export {
                 }
                 $csi++;
             }
-        } 
+        }
+
+        # Once we've produced the captures, and if we know we're finished and
+        # will never be backtracked into, we can release cstack and regexsub.
+        unless nqp::defined($!bstack) {
+            $!cstack   := nqp::null();
+            $!regexsub := nqp::null();
+        }
+
         $caps;
     }
 
@@ -212,8 +220,10 @@ role NQPCursorRole is export {
     }
 
     method !cursor_fail() {
-        $!match  := nqp::null();
-        $!bstack := nqp::null();
+        $!match    := nqp::null();
+        $!bstack   := nqp::null();
+        $!cstack   := nqp::null();
+        $!regexsub := nqp::null();
         $!pos    := -3;
     }
 

src/QRegex/P6Regex/Actions.nqp

@@ -729,6 +729,9 @@ class QRegex::P6Regex::Actions is HLL::Actions {
                                        ) 
                                    )
                               )));
+        if %*RX<r> {
+            $qast[2].backtrack('r');
+        }
         $block.push($qast);
 
         $block;