Changeset 22894 for src

Timestamp:

11/06/08 06:16:32 (2 months ago)

Author:

lwall

Message:

[Cursor] couple more micro-optimizations to help procrastinate the big one

Files:

• src/perl6/Cursor.pmc (modified) (15 diffs)

src/perl6/Cursor.pmc

@@ -111 +111 @@
         $args{'_' . $name} = shift;
     }
-    my $self = CORE::bless \%args, ref $class || $class;
+    my $self = bless \%args, ref $class || $class;
     $self->BUILD;
     $self;
@@ -189 +189 @@
 sub orig { \$::ORIG }
 sub WHAT { ref $_[0] || $_[0] }
-sub bless { CORE::bless $_[1], $_[0]->WHAT }
 
 sub item { exists $_[0]->{''} ? $_[0]->{''} : $_[0]->text }
@@ -230 +229 @@
     }
     $key = 'termish' if $key eq 'EXPR';
-    return $self->lexers->{$key} //= $self->_AUTOLEXgen($key, $retree);
+    return $::LEXERS{ref $self}->{$key} //= $self->_AUTOLEXgen($key, $retree);
 }
 
@@ -438 +437 @@
     sub new { my $self = shift;
         my %args = @_;
-        CORE::bless \%args, $self;
+        bless \%args, $self;
     }
 
@@ -454 +453 @@
     my %r = %$self;
     $r{_peek} = 1;
-    CORE::bless \%r, ref $self;
+    bless \%r, ref $self;
 }
 
@@ -465 +464 @@
     $r{_fate} = $self->{_fate};
     $r{_herelang} = $self->{_herelang} if $self->{_herelang};
-    CORE::bless \%r, ref $lang || $lang;
+    bless \%r, ref $lang || $lang;
 }
 
@@ -472 +471 @@
     my %r = %$self;
     $r{_herelang} = $self;
-    CORE::bless \%r, 'STD::Q';
+    bless \%r, 'STD::Q';
 }
 
@@ -565 +564 @@
     $submatch->{_from} = $r{_from} = $r{_pos};
     $r{_pos} = $submatch->{_pos};
-    CORE::bless \%r, ref $self;         # return new match cursor for parent
+    bless \%r, ref $self;               # return new match cursor for parent
 }
 
@@ -578 +577 @@
     my $try;
     
-    my $lexer = $self->lexers->{$name} // do {
+    my $lexer = $::LEXERS{ref $self}->{$name} // do {
         local %AUTOLEXED;
         $self->_AUTOLEXpeek($name,$retree);
@@ -841 +840 @@
     $r{_pos} = $tpos;
 
-    CORE::bless \%r, ref $self;
+    bless \%r, ref $self;
 }
 
@@ -871 +870 @@
     $r{_pos} = $tpos;
 
-    CORE::bless \%r, ref $self;
+    bless \%r, ref $self;
 }
 
@@ -887 +886 @@
 #    $r{_from} = $self->{_from};
 
-    CORE::bless \%r, ref $self;
+    bless \%r, ref $self;
 }
 
@@ -1266 +1265 @@
 
     local $CTX = $self->callm if $DEBUG & DEBUG::trace_call;
-    lazymap(sub { CORE::bless($_[0],ref($self))->retm() },
+    lazymap(sub { bless($_[0],ref($self))->retm() },
         $block->($self));
 }
@@ -1275 +1274 @@
     local $CTX = $self->callm if $DEBUG & DEBUG::trace_call;
     my ($val) = $block->($self) or return ();
-    CORE::bless($val,ref($self))->retm();
+    bless($val,ref($self))->retm();
 }
 
@@ -1930 +1929 @@
     return ();
 }
+
+sub bless { CORE::bless $_[1], $_[0]->WHAT }
 
 #############################################################3