Changeset 22014 for src/perl6

Timestamp:

08/22/08 20:19:17 (3 months ago)

Author:

lwall

Message:

[Cursor] another speed tweak. Now compiles STD.pm in <30sec if cache is precomputed

Files:

• src/perl6/Cursor.pmc (modified) (1 diff)

src/perl6/Cursor.pmc

@@ -629 +629 @@
                             $C->deb("LAST: $last\n") if $DEBUG & DEBUG::lexer;
                             $result = $fates->[$last-1];
-                            for my $x (1 .. $max) {
-                                my $beg = $-[$x];
-                                next unless defined $beg;
-                                my $end = $+[$x];
-#                               return if $stoplen >= $end - $beg;
-                                my $f = $fates->[$x-1][3];
-                                no strict 'refs';
-                                if ($DEBUG & DEBUG::fates or ($DEBUG & DEBUG::lexer and $x == $last)) {
-                                    my $p = $pats[$x-1] // '<nopat>';
-                                    $self->deb("\$$x: $beg..$end\t$$x\t ",
-                                        $x == $last ? "====>" : "---->",
-                                        " $f\t/$p/");
+                            if ($DEBUG) {
+                                for my $x (1 .. $max) {
+                                    my $beg = $-[$x];
+                                    next unless defined $beg;
+                                    my $end = $+[$x];
+    #                           return if $stoplen >= $end - $beg;
+                                    my $f = $fates->[$x-1][3];
+                                    no strict 'refs';
+                                    if ($DEBUG & DEBUG::fates or ($DEBUG & DEBUG::lexer and $x == $last)) {
+                                        my $p = $pats[$x-1] // '<nopat>';
+                                        $self->deb("\$$x: $beg..$end\t$$x\t ",
+                                            $x == $last ? "====>" : "---->",
+                                            " $f\t/$p/");
+                                    }
                                 }
+                                $C->deb("success at '", substr($$buf,$C->{_pos},10), "'") if $DEBUG & DEBUG::lexer;
                             }
-                            $C->deb("success at '", substr($$buf,$C->{_pos},10), "'") if $DEBUG & DEBUG::lexer;
                             my $tried = "";
                             vec($tried,$last-1,1) = 1;