Mercurial > vim

comparison src/if_perl.xs @ 3344:dec4338a7da2 v7.3.439

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.3.439 Problem: Compiler warnings to size casts in Perl interface. Solution: Use XS macros. (James McCoy)
author Bram Moolenaar <bram@vim.org>
date Sun, 12 Feb 2012 00:31:52 +0100
parents 22550986c713
children 7613c9ab083f
comparison
equal deleted inserted replaced
3343:a64a3bc0feda 3344:dec4338a7da2
609 { 609 {
610 sv_upgrade(rv, SVt_RV); 610 sv_upgrade(rv, SVt_RV);
611 if (ptr->w_perl_private == NULL) 611 if (ptr->w_perl_private == NULL)
612 { 612 {
613 ptr->w_perl_private = newSV(0); 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 else 616 else
617 SvREFCNT_inc(ptr->w_perl_private); 617 SvREFCNT_inc(ptr->w_perl_private);
618 SvRV(rv) = ptr->w_perl_private; 618 SvRV(rv) = ptr->w_perl_private;
619 SvROK_on(rv); 619 SvROK_on(rv);
627 { 627 {
628 sv_upgrade(rv, SVt_RV); 628 sv_upgrade(rv, SVt_RV);
629 if (ptr->b_perl_private == NULL) 629 if (ptr->b_perl_private == NULL)
630 { 630 {
631 ptr->b_perl_private = newSV(0); 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 else 634 else
635 SvREFCNT_inc(ptr->b_perl_private); 635 SvREFCNT_inc(ptr->b_perl_private);
636 SvRV(rv) = ptr->b_perl_private; 636 SvRV(rv) = ptr->b_perl_private;
637 SvROK_on(rv); 637 SvROK_on(rv);