Change 13876 by jhi@alpha on 2001/12/24 17:13:16
More constant casting.
Affected files ...
.... //depot/perl/regexec.c#222 edit
Differences ...
==== //depot/perl/regexec.c#222 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~ Mon Dec 24 10:30:05 2001
+++ perl/regexec.c Mon Dec 24 10:30:05 2001
@@ -989,9 +989,9 @@
else {
while (s <= e) {
UV c = utf8_to_uvchr((U8*)s, &len);
- if (c == UNICODE_GREEK_CAPITAL_LETTER_SIGMA ||
- c == UNICODE_GREEK_SMALL_LETTER_FINAL_SIGMA)
- c = UNICODE_GREEK_SMALL_LETTER_SIGMA;
+ if (c == (UV)UNICODE_GREEK_CAPITAL_LETTER_SIGMA ||
+ c == (UV)UNICODE_GREEK_SMALL_LETTER_FINAL_SIGMA)
+ c = (UV)UNICODE_GREEK_SMALL_LETTER_SIGMA;
if ( (c == c1 || c == c2)
&& (ln == len ||
ibcmp_utf8(s, do_utf8, strend - s,
End of Patch.
