Update Changes.

[p5sagit/p5-mst-13.2.git] / ext / Encode / Unicode / Unicode.xs

diff --git a/ext/Encode/Unicode/Unicode.xs b/ext/Encode/Unicode/Unicode.xs
index 4689b49..7c79d4a 100644 (file)
--- a/ext/Encode/Unicode/Unicode.xs
+++ b/ext/Encode/Unicode/Unicode.xs
@@ -1,5 +1,5 @@
 /*
- $Id: Unicode.xs,v 1.3 2002/04/20 23:43:47 dankogai Exp $
+ $Id: Unicode.xs,v 1.5 2002/05/20 15:25:44 dankogai Exp $
  */
 
 #define PERL_NO_GET_CONTEXT
@@ -61,7 +61,7 @@ enc_pack(pTHX_ SV *result,STRLEN size,U8 endian,UV value)
        d += SvCUR(result);
        SvCUR_set(result,SvCUR(result)+size);
        while (size--) {
-           *d++ = value & 0xFF;
+           *d++ = (U8)(value & 0xFF);
            value >>= 8;
        }
        break;
@@ -70,7 +70,7 @@ enc_pack(pTHX_ SV *result,STRLEN size,U8 endian,UV value)
        SvCUR_set(result,SvCUR(result)+size);
        d += SvCUR(result);
        while (size--) {
-           *--d = value & 0xFF;
+           *--d = (U8)(value & 0xFF);
            value >>= 8;
        }
        break;
@@ -212,7 +212,7 @@ CODE:
            if (!issurrogate(ord)){
                if (ucs2) {
                    if (check) {
-                       croak("%s:code point \"\\x{"UVxf"}\" too high",
+                       croak("%s:code point \"\\x{%"UVxf"}\" too high",
                              SvPV_nolen(
                                  *hv_fetch((HV *)SvRV(obj),"Name",4,0))
                              ,ord);