Clean-up some warnings when compiling on Win32 with VC++

p4raw-id: //depot/perl@24096

1 files changed, 3 insertions, 3 deletions

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;