Optimize match object construction somewhat.

rakudo · Nov 20, 2011 · 0ad267e · 0ad267e
1 parent 0786d96
commit 0ad267e
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/src/core/Cursor.pm b/src/core/Cursor.pm
@@ -2,12 +2,11 @@ my class Cursor does NQPCursorRole {
     method MATCH() {
         my $match := nqp::getattr(self, Cursor, '$!match');
         return $match if pir::type_check__IPP($match, Match) && $match.defined;
-        $match := Match.new(
-            orig   => nqp::getattr(self, Cursor, '$!orig'),
-            from   => nqp::p6box_i(nqp::getattr_i(self, Cursor, '$!from')),
-            to     => nqp::p6box_i(nqp::getattr_i(self, Cursor, '$!pos')),
-            cursor => self,
-        );
+        $match := nqp::create(Match);
+        nqp::bindattr($match, Match, '$!orig', nqp::getattr(self, Cursor, '$!orig'));
+        nqp::bindattr($match, Match, '$!from', nqp::p6box_i(nqp::getattr_i(self, Cursor, '$!from')));
+        nqp::bindattr($match, Match, '$!to', nqp::p6box_i(nqp::getattr_i(self, Cursor, '$!pos')));
+        nqp::bindattr($match, Match, '$!CURSOR', self);
         my Mu $list := nqp::list();
         my Mu $hash := nqp::hash();
         if $match.Bool {