thac0/vim
1
0
Fork 0
forked from aniani/vim
Code Activity

updated for version 7.3.439

Browse Source 
Problem:    Compiler warnings to size casts in Perl interface.
Solution:   Use XS macros. (James McCoy)
This commit is contained in:
Bram Moolenaar
2012-02-12 00:31:52 +01:00
parent a61d5fbf7a
commit be74734429
3 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/if_perl.xs
View File

@@ -611,7 +611,7 @@ newWINrv(rv, ptr)
if (ptr->w_perl_private == NULL) if (ptr->w_perl_private == NULL)
{ {
ptr->w_perl_private = newSV(0); ptr->w_perl_private = newSV(0);
sv_setiv(ptr->w_perl_private, (IV)ptr); sv_setiv(ptr->w_perl_private, PTR2IV(ptr));
} }
else else
SvREFCNT_inc(ptr->w_perl_private); SvREFCNT_inc(ptr->w_perl_private);
@@ -629,7 +629,7 @@ newBUFrv(rv, ptr)
if (ptr->b_perl_private == NULL) if (ptr->b_perl_private == NULL)
{ {
ptr->b_perl_private = newSV(0); ptr->b_perl_private = newSV(0);
sv_setiv(ptr->b_perl_private, (IV)ptr); sv_setiv(ptr->b_perl_private, PTR2IV(ptr));
} }
else else
SvREFCNT_inc(ptr->b_perl_private); SvREFCNT_inc(ptr->b_perl_private);

2
src/typemap
View File

@@ -6,7 +6,7 @@ INPUT
T_VIOBJNOMUNGE T_VIOBJNOMUNGE
if (sv_isa($arg, \"${ntype}\")) { if (sv_isa($arg, \"${ntype}\")) {
IV tmp = SvIV((SV*)SvRV($arg)); IV tmp = SvIV((SV*)SvRV($arg));
$var = ($type) tmp; $var = INT2PTR($type, tmp);
if (!tmp) if (!tmp)
croak(\"$ntype no longer exists\"); croak(\"$ntype no longer exists\");
} }

2
src/version.c
View File

@@ -714,6 +714,8 @@ static char *(features[]) =
static int included_patches[] = static int included_patches[] =
{ /* Add new patch number below this line */ { /* Add new patch number below this line */
/**/
439,
/**/ /**/
438, 438,
/**/ /**/