diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-24 02:53:02 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-24 02:53:02 +0000 |
| commit | eb050b281c774e9965cb9f786004ee9e75aa5005 (patch) | |
| tree | 215a5a12348292eb82a9accdaa79fda4e8e0e806 /regcomp.c | |
| parent | 26e623cf5c6575142e6e7688e9ee3f8f630f52a2 (diff) | |
| download | perl-eb050b281c774e9965cb9f786004ee9e75aa5005.tar.gz | |
Must cast constants if they can be quads.
p4raw-id: //depot/perl@13872
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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); } } } |