dbb154b
To: vim_dev@googlegroups.com
dbb154b
Subject: Patch 7.3.439
dbb154b
Fcc: outbox
dbb154b
From: Bram Moolenaar <Bram@moolenaar.net>
dbb154b
Mime-Version: 1.0
dbb154b
Content-Type: text/plain; charset=UTF-8
dbb154b
Content-Transfer-Encoding: 8bit
dbb154b
------------
dbb154b
dbb154b
Patch 7.3.439
dbb154b
Problem:    Compiler warnings to size casts in Perl interface.
dbb154b
Solution:   Use XS macros. (James McCoy)
dbb154b
Files:      src/if_perl.xs, src/typemap
dbb154b
dbb154b
dbb154b
*** ../vim-7.3.438/src/if_perl.xs	2011-09-07 18:47:19.000000000 +0200
dbb154b
--- src/if_perl.xs	2012-02-12 00:28:52.000000000 +0100
dbb154b
***************
dbb154b
*** 611,617 ****
dbb154b
      if (ptr->w_perl_private == NULL)
dbb154b
      {
dbb154b
  	ptr->w_perl_private = newSV(0);
dbb154b
! 	sv_setiv(ptr->w_perl_private, (IV)ptr);
dbb154b
      }
dbb154b
      else
dbb154b
  	SvREFCNT_inc(ptr->w_perl_private);
dbb154b
--- 611,617 ----
dbb154b
      if (ptr->w_perl_private == NULL)
dbb154b
      {
dbb154b
  	ptr->w_perl_private = newSV(0);
dbb154b
! 	sv_setiv(ptr->w_perl_private, PTR2IV(ptr));
dbb154b
      }
dbb154b
      else
dbb154b
  	SvREFCNT_inc(ptr->w_perl_private);
dbb154b
***************
dbb154b
*** 629,635 ****
dbb154b
      if (ptr->b_perl_private == NULL)
dbb154b
      {
dbb154b
  	ptr->b_perl_private = newSV(0);
dbb154b
! 	sv_setiv(ptr->b_perl_private, (IV)ptr);
dbb154b
      }
dbb154b
      else
dbb154b
  	SvREFCNT_inc(ptr->b_perl_private);
dbb154b
--- 629,635 ----
dbb154b
      if (ptr->b_perl_private == NULL)
dbb154b
      {
dbb154b
  	ptr->b_perl_private = newSV(0);
dbb154b
! 	sv_setiv(ptr->b_perl_private, PTR2IV(ptr));
dbb154b
      }
dbb154b
      else
dbb154b
  	SvREFCNT_inc(ptr->b_perl_private);
dbb154b
*** ../vim-7.3.438/src/typemap	2010-08-15 21:57:29.000000000 +0200
dbb154b
--- src/typemap	2012-02-12 00:28:52.000000000 +0100
dbb154b
***************
dbb154b
*** 6,12 ****
dbb154b
  T_VIOBJNOMUNGE
dbb154b
  	if (sv_isa($arg, \"${ntype}\")) {
dbb154b
  	    IV tmp = SvIV((SV*)SvRV($arg));
dbb154b
! 	    $var = ($type) tmp;
dbb154b
  	    if (!tmp)
dbb154b
  		croak(\"$ntype no longer exists\");
dbb154b
  	}
dbb154b
--- 6,12 ----
dbb154b
  T_VIOBJNOMUNGE
dbb154b
  	if (sv_isa($arg, \"${ntype}\")) {
dbb154b
  	    IV tmp = SvIV((SV*)SvRV($arg));
dbb154b
! 	    $var = INT2PTR($type, tmp);
dbb154b
  	    if (!tmp)
dbb154b
  		croak(\"$ntype no longer exists\");
dbb154b
  	}
dbb154b
*** ../vim-7.3.438/src/version.c	2012-02-12 00:18:54.000000000 +0100
dbb154b
--- src/version.c	2012-02-12 00:31:18.000000000 +0100
dbb154b
***************
dbb154b
*** 716,717 ****
dbb154b
--- 716,719 ----
dbb154b
  {   /* Add new patch number below this line */
dbb154b
+ /**/
dbb154b
+     439,
dbb154b
  /**/
dbb154b
dbb154b
-- 
dbb154b
Microsoft is to software what McDonalds is to gourmet cooking
dbb154b
dbb154b
 /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
dbb154b
///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
dbb154b
\\\  an exciting new programming language -- http://www.Zimbu.org        ///
dbb154b
 \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///