updated for version 7.3.439

Problem:    Compiler warnings to size casts in Perl interface.
Solution:   Use XS macros. (James McCoy)

diff --git a/src/if_perl.xs b/src/if_perl.xs
index e1e6ada220dc1a051879494e73d6d253294d9108..9b8d2c2f69563a8db0f7779c69de7b087a876820 100644 (file)
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -611,7 +611,7 @@ newWINrv(rv, ptr)
     if (ptr->w_perl_private == NULL)
     {
        ptr->w_perl_private = newSV(0);
-       sv_setiv(ptr->w_perl_private, (IV)ptr);
+       sv_setiv(ptr->w_perl_private, PTR2IV(ptr));
     }
     else
        SvREFCNT_inc(ptr->w_perl_private);
@@ -629,7 +629,7 @@ newBUFrv(rv, ptr)
     if (ptr->b_perl_private == NULL)
     {
        ptr->b_perl_private = newSV(0);
-       sv_setiv(ptr->b_perl_private, (IV)ptr);
+       sv_setiv(ptr->b_perl_private, PTR2IV(ptr));
     }
     else
        SvREFCNT_inc(ptr->b_perl_private);

diff --git a/src/typemap b/src/typemap
index 40049237be4ac44407d311c70318c100d0a9ebc5..ca1600ef2e00b7afec33df12dd3e1370c69f544a 100644 (file)
--- a/src/typemap
+++ b/src/typemap
@@ -6,7 +6,7 @@ INPUT
 T_VIOBJNOMUNGE
        if (sv_isa($arg, \"${ntype}\")) {
            IV tmp = SvIV((SV*)SvRV($arg));
-           $var = ($type) tmp;
+           $var = INT2PTR($type, tmp);
            if (!tmp)
                croak(\"$ntype no longer exists\");
        }

diff --git a/src/version.c b/src/version.c
index bce741c093773b356ba47578c0e817bc8b177acd..22a79982631a1887130930b5973b9b09039b6df3 100644 (file)
--- a/src/version.c
+++ b/src/version.c
@@ -714,6 +714,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    439,
 /**/
     438,
 /**/