diff options
| author | Steve Hay <SteveHay@planit.com> | 2005-10-17 10:14:46 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-10-17 10:14:46 +0000 |
| commit | 585ec06d680e861557397efeb05210638532c6dc (patch) | |
| tree | d28fe8c8e4c0c72bc9128edb40834bf04f755a0d /pp_pack.c | |
| parent | a0fd494844cc8648fdc5234c367fd018a12fdf3f (diff) | |
| download | perl-585ec06d680e861557397efeb05210638532c6dc.tar.gz | |
Make some casts explicit to keep VC++ 7 happy
Specifically, this silences the warnings from the following smoke:
http://www.nntp.perl.org/group/perl.daily-build.reports/32258
(Hmm. Looks like you need to decode the base64 yourself before you
can read that.)
p4raw-id: //depot/perl@25779
Diffstat (limited to 'pp_pack.c')
| -rw-r--r-- | pp_pack.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2987,7 +2987,7 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist ) ckWARN(WARN_PACK)) Perl_warner(aTHX_ packWARN(WARN_PACK), "Character in 'c' format wrapped in pack"); - PUSH_BYTE(utf8, cur, aiv & 0xff); + PUSH_BYTE(utf8, cur, (U8)(aiv & 0xff)); } break; case 'C': @@ -3004,7 +3004,7 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist ) ckWARN(WARN_PACK)) Perl_warner(aTHX_ packWARN(WARN_PACK), "Character in 'C' format wrapped in pack"); - *cur++ = aiv & 0xff; + *cur++ = (char)(aiv & 0xff); } break; case 'W': { |