This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
regcomp.c: small efficiency gain
[perl5.git]
/
regcomp.c
diff --git
a/regcomp.c
b/regcomp.c
index
b6f0a2b
..
6aac8ce
100644
(file)
--- a/
regcomp.c
+++ b/
regcomp.c
@@
-8196,9
+8196,9
@@
ANYOF_##NAME: \
} \
} \
else { \
} \
} \
else { \
- for (value = 0; value <
256
; value++) { \
+ for (value = 0; value <
128
; value++) { \
if (TEST_7) stored += \
if (TEST_7) stored += \
- S_set_regclass_bit(aTHX_ pRExC_state, ret,
value
); \
+ S_set_regclass_bit(aTHX_ pRExC_state, ret,
UNI_TO_NATIVE(value)
); \
} \
} \
yesno = '+'; \
} \
} \
yesno = '+'; \
@@
-8213,10
+8213,13
@@
case ANYOF_N##NAME: \
} \
} \
else { \
} \
} \
else { \
- for (value = 0; value <
256
; value++) { \
+ for (value = 0; value <
128
; value++) { \
if (! TEST_7) stored += \
S_set_regclass_bit(aTHX_ pRExC_state, ret, value); \
} \
if (! TEST_7) stored += \
S_set_regclass_bit(aTHX_ pRExC_state, ret, value); \
} \
+ for (value = 128; value < 256; value++) { \
+ S_set_regclass_bit(aTHX_ pRExC_state, ret, value); \
+ } \
} \
yesno = '!'; \
what = WORD; \
} \
yesno = '!'; \
what = WORD; \
@@
-8662,16
+8665,9
@@
parseit:
if (LOC)
ANYOF_CLASS_SET(ret, ANYOF_ASCII);
else {
if (LOC)
ANYOF_CLASS_SET(ret, ANYOF_ASCII);
else {
-#ifndef EBCDIC
for (value = 0; value < 128; value++)
stored +=
for (value = 0; value < 128; value++)
stored +=
- S_set_regclass_bit(aTHX_ pRExC_state, ret, value);
-#else /* EBCDIC */
- for (value = 0; value < 256; value++) {
- if (isASCII(value))
- stored += S_set_regclass_bit(aTHX_ pRExC_state, ret, value);
- }
-#endif /* EBCDIC */
+ S_set_regclass_bit(aTHX_ pRExC_state, ret, ASCII_TO_NATIVE(value));
}
yesno = '+';
what = "ASCII";
}
yesno = '+';
what = "ASCII";
@@
-8680,16
+8676,9
@@
parseit:
if (LOC)
ANYOF_CLASS_SET(ret, ANYOF_NASCII);
else {
if (LOC)
ANYOF_CLASS_SET(ret, ANYOF_NASCII);
else {
-#ifndef EBCDIC
for (value = 128; value < 256; value++)
stored +=
for (value = 128; value < 256; value++)
stored +=
- S_set_regclass_bit(aTHX_ pRExC_state, ret, value);
-#else /* EBCDIC */
- for (value = 0; value < 256; value++) {
- if (!isASCII(value))
- stored += S_set_regclass_bit(aTHX_ pRExC_state, ret, value);
- }
-#endif /* EBCDIC */
+ S_set_regclass_bit(aTHX_ pRExC_state, ret, ASCII_TO_NATIVE(value));
}
yesno = '!';
what = "ASCII";
}
yesno = '!';
what = "ASCII";