Change 11123 by jhi@alpha on 2001/07/03 16:04:49
Subject: Re: POINTERRIGOR
From: Andy Dougherty <[EMAIL PROTECTED]>
Date: Tue, 3 Jul 2001 11:49:28 -0400 (EDT)
Message-ID:
<[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/util.c#285 edit
Differences ...
==== //depot/perl/util.c#285 (text) ====
Index: perl/util.c
--- perl/util.c.~1~ Tue Jul 3 10:15:05 2001
+++ perl/util.c Tue Jul 3 10:15:05 2001
@@ -692,16 +692,8 @@
top2:
/*SUPPRESS 560*/
if ((tmp = table[*s])) {
-#ifdef POINTERRIGOR
- if (bigend - s > tmp) {
- s += tmp;
- goto top2;
- }
- s += tmp;
-#else
if ((s += tmp) < bigend)
goto top2;
-#endif
goto check_end;
}
else { /* less expensive than calling strncmp() */
@@ -795,25 +787,6 @@
if (!(pos += PL_screamnext[pos]))
goto cant_find;
}
-#ifdef POINTERRIGOR
- do {
- if (pos >= stop_pos) break;
- if (big[pos-previous] != first)
- continue;
- for (x=big+pos+1-previous,s=little; s < littleend; /**/ ) {
- if (*s++ != *x++) {
- s--;
- break;
- }
- }
- if (s == littleend) {
- *old_posp = pos;
- if (!last) return (char *)(big+pos-previous);
- found = 1;
- }
- } while ( pos += PL_screamnext[pos] );
- return (last && found) ? (char *)(big+(*old_posp)-previous) : Nullch;
-#else /* !POINTERRIGOR */
big -= previous;
do {
if (pos >= stop_pos) break;
@@ -833,7 +806,6 @@
} while ( pos += PL_screamnext[pos] );
if (last && found)
return (char *)(big+(*old_posp));
-#endif /* POINTERRIGOR */
check_tail:
if (!SvTAIL(littlestr) || (end_shift > 0))
return Nullch;
End of Patch.
