From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 24 Dec 2001 17:13:16 +0000 (+0000)
Subject: More constant casting.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=880bd94600e718ff5c2052338897fe329f8bd085;p=p5sagit%2Fp5-mst-13.2.git

More constant casting.

p4raw-id: //depot/perl@13876
---

diff --git a/regexec.c b/regexec.c
index 7a00dfd..7b459e2 100644
--- a/regexec.c
+++ b/regexec.c
@@ -989,9 +989,9 @@ S_find_byclass(pTHX_ regexp * prog, regnode *c, char *s, char *strend, char *sta
 		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,