Must cast constants if they can be quads.

p4raw-id: //depot/perl@13872

diff --git a/regcomp.c b/regcomp.c
index ea98177..b5d9860 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -3987,13 +3987,13 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state)
                    if (FOLD) {
                         if (value == UNICODE_GREEK_SMALL_LETTER_FINAL_SIGMA) {
                              Perl_sv_catpvf(aTHX_ listsv, "%04"UVxf"\n",
-                                            UNICODE_GREEK_CAPITAL_LETTER_SIGMA);
+                                            (UV)UNICODE_GREEK_CAPITAL_LETTER_SIGMA);
                              Perl_sv_catpvf(aTHX_ listsv, "%04"UVxf"\n",
-                                            UNICODE_GREEK_SMALL_LETTER_SIGMA);
+                                            (UV)UNICODE_GREEK_SMALL_LETTER_SIGMA);
                         }
                         else if (value == UNICODE_GREEK_CAPITAL_LETTER_SIGMA)
                              Perl_sv_catpvf(aTHX_ listsv, "%04"UVxf"\n",
-                                            UNICODE_GREEK_SMALL_LETTER_SIGMA);
+                                            (UV)UNICODE_GREEK_SMALL_LETTER_SIGMA);
                    }
                }
            }