From fe2774edcceb29d7f31eb2b8407d2ab3df896594 Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Tue, 29 Mar 2005 15:18:30 +0000 Subject: Clean-up some warnings when compiling on Win32 with VC++ p4raw-id: //depot/perl@24096 --- pp_pack.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'pp_pack.c') diff --git a/pp_pack.c b/pp_pack.c index 1e470b73bc..98f1bed837 100644 --- a/pp_pack.c +++ b/pp_pack.c @@ -585,7 +585,7 @@ uni_to_byte(pTHX_ char **s, const char *end, I32 datumtype) val &= 0xff; } *s += retlen; - return val; + return (U8)val; } #define SHIFT_BYTE(utf8, s, strend, datumtype) ((utf8) ? \ @@ -612,7 +612,7 @@ uni_to_bytes(pTHX_ char **s, char *end, char *buf, int buf_len, I32 datumtype) bad |= 2; val &= 0xff; } - *(U8 *)buf++ = val; + *(U8 *)buf++ = (U8)val; } /* We have enough characters for the buffer. Did we have problems ? */ if (bad) { @@ -2933,7 +2933,7 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist ) GROWING(0, cat, start, cur, len+1); end = start+SvLEN(cat)-1; } - *(U8 *) cur++ = auv; + *(U8 *) cur++ = (U8)auv; } } break; -- cgit v1.2.1