Changeset 22896 for src

Timestamp:

11/06/08 07:18:30 (2 months ago)

Author:

lwall

Message:

[Cursor] Heh, if we bypass TRE to just immediately revert to the stupid old
backoff LTM matcher, STD (precached) can parse itself in half the time! Yow!

Files:

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

src/perl6/Cursor.pmc

@@ -699 +699 @@
                     $peek =~ s/\t/\\t/g;
                     $self->deb("looking for $name at --------->$GREEN$peek$CLEAR");
+                }
+                if (not defined $_[0]) {
+                    my $tried = "";
+                    vec($tried,@pats-1,1) = 0;
+                    $_[0] = [$tried, 1_000_000, []];
                 }
 
@@ -759 +764 @@
                                 }
                             }
-                            --$$trylen;
+                            if ($$trylen == 1_000_000) {
+                                my $max = 0;
+                                for my $x (@$rxlens) { $max = $x if $x > $max }
+                                $$trylen = $max;
+                            }
+                            else {
+                                --$$trylen;
+                            }
                         }