diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-12-11 15:02:49 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2010-12-11 15:57:16 -0700 |
| commit | ffc130aa464ab42cfe8e8a19205f5b398675d98f (patch) | |
| tree | 1929c7ed89c651aca97481e2c013a2b7f644d648 | |
| parent | 234242ca5bbd2e073a9d2c4dc7103a0dcea61a54 (diff) | |
| download | perl-ffc130aa464ab42cfe8e8a19205f5b398675d98f.tar.gz | |
regcomp.c: remove unncessary counting
stored now contains the number of 1 bits in the ANYOF node, and is no
longer needed to be arbitrarily set. Part of this is because there is
now a flag if there is any match outside the bitmap, which prohibits
optimization if so.
| -rw-r--r-- | regcomp.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -8349,7 +8349,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, U32 depth) #ifdef EBCDIC UV literal_endpoint = 0; #endif - UV stored = 0; /* 0, 1, or more than 1 chars stored in the class */ + UV stored = 0; /* how many chars stored in the bitmap */ regnode * const orig_emit = RExC_emit; /* Save the original RExC_emit in case we need to change the emitted regop to an EXACT. */ @@ -8730,7 +8730,6 @@ parseit: /* Strings such as "+utf8::isWord\n" */ Perl_sv_catpvf(aTHX_ listsv, "%cutf8::Is%s\n", yesno, what); } - stored+=2; /* can't optimize this class */ /* All but ASCII can match characters storable only in utf8 */ if (namedclass != ANYOF_ASCII) { @@ -8773,7 +8772,6 @@ parseit: } /* now is the next time */ - /*stored += (value - prevvalue + 1);*/ if (!SIZE_ONLY) { if (prevvalue < 256) { const IV ceilvalue = value < 256 ? value : 255; @@ -8808,7 +8806,6 @@ parseit: if (value > 255 || UTF) { const UV prevnatvalue = NATIVE_TO_UNI(prevvalue); const UV natvalue = NATIVE_TO_UNI(value); - stored+=2; /* can't optimize this class */ /* If the code point requires utf8 to represent, and we are not * folding, it can't match unless the target is in utf8. Only |