Permalink
Browse files

updated for version 7.3.439

Problem:    Compiler warnings to size casts in Perl interface.
Solution:   Use XS macros. (James McCoy)
  • Loading branch information...
1 parent fc91cb4 commit b392293566877141103c1a805f9098ec6329dd19 @brammool brammool committed Feb 11, 2012
Showing with 5 additions and 3 deletions.
  1. +2 −2 src/if_perl.xs
  2. +1 −1 src/typemap
  3. +2 −0 src/version.c
View
4 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);
View
2 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\");
}
View
2 src/version.c
@@ -715,6 +715,8 @@ static char *(features[]) =
static int included_patches[] =
{ /* Add new patch number below this line */
/**/
+ 439,
+/**/
438,
/**/
437,

0 comments on commit b392293

Please sign in to comment.