Change 13872: Must cast constants if they can be quads.

[Jarkko Hietaniemi]

Change 13872 by jhi@alpha on 2001/12/24 02:53:02

        Must cast constants if they can be quads.

Affected files ...

.... //depot/perl/regcomp.c#261 edit

Differences ...

==== //depot/perl/regcomp.c#261 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~  Sun Dec 23 20:00:06 2001
+++ perl/regcomp.c      Sun Dec 23 20:00:06 2001
@@ -3987,13 +3987,13 @@
                    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);
                    }
                }
            }
End of Patch.