Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

updated for version 7.3.439

Problem:    Compiler warnings to size casts in Perl interface.
Solution:   Use XS macros. (James McCoy)
  • Loading branch information...
commit b392293566877141103c1a805f9098ec6329dd19 1 parent fc91cb4
Bram Moolenaar authored

Showing 3 changed files with 5 additions and 3 deletions. Show diff stats Hide diff stats

  1. +2 2 src/if_perl.xs
  2. +1 1  src/typemap
  3. +2 0  src/version.c
4 src/if_perl.xs
@@ -611,7 +611,7 @@ newWINrv(rv, ptr)
611 611 if (ptr->w_perl_private == NULL)
612 612 {
613 613 ptr->w_perl_private = newSV(0);
614   - sv_setiv(ptr->w_perl_private, (IV)ptr);
  614 + sv_setiv(ptr->w_perl_private, PTR2IV(ptr));
615 615 }
616 616 else
617 617 SvREFCNT_inc(ptr->w_perl_private);
@@ -629,7 +629,7 @@ newBUFrv(rv, ptr)
629 629 if (ptr->b_perl_private == NULL)
630 630 {
631 631 ptr->b_perl_private = newSV(0);
632   - sv_setiv(ptr->b_perl_private, (IV)ptr);
  632 + sv_setiv(ptr->b_perl_private, PTR2IV(ptr));
633 633 }
634 634 else
635 635 SvREFCNT_inc(ptr->b_perl_private);
2  src/typemap
@@ -6,7 +6,7 @@ INPUT
6 6 T_VIOBJNOMUNGE
7 7 if (sv_isa($arg, \"${ntype}\")) {
8 8 IV tmp = SvIV((SV*)SvRV($arg));
9   - $var = ($type) tmp;
  9 + $var = INT2PTR($type, tmp);
10 10 if (!tmp)
11 11 croak(\"$ntype no longer exists\");
12 12 }
2  src/version.c
@@ -715,6 +715,8 @@ static char *(features[]) =
715 715 static int included_patches[] =
716 716 { /* Add new patch number below this line */
717 717 /**/
  718 + 439,
  719 +/**/
718 720 438,
719 721 /**/
720 722 437,

0 comments on commit b392293

Please sign in to comment.
Something went wrong with that request. Please try again.