Mercurial > vim
diff src/if_perl.xs @ 129:2983cde45542
updated for version 7.0044
author | vimboss |
---|---|
date | Tue, 25 Jan 2005 21:57:23 +0000 |
parents | 3fc0f57ecb91 |
children | 52e76e2b5b65 |
line wrap: on
line diff
--- a/src/if_perl.xs +++ b/src/if_perl.xs @@ -464,7 +464,9 @@ new ## TNAME ## rv(rv, ptr) \ return sv_bless(rv, gv_stashpv("VI" #TNAME, TRUE)); \ } +/* LINTED: avoid warning: cast from pointer to integer of different size */ newANYrv(win_T, WIN) +/* LINTED: avoid warning: cast from pointer to integer of different size */ newANYrv(buf_T, BUF) /* @@ -684,8 +686,8 @@ ex_perldo(eap) { dSP; length = strlen((char *)eap->arg); - sv = newSV(length + sizeof("sub VIM::perldo {")-1 + 1); - sv_setpvn(sv, "sub VIM::perldo {", sizeof("sub VIM::perldo {")-1); + sv = newSV(length + sizeof("sub VIM::perldo {") - 1 + 1); + sv_setpvn(sv, "sub VIM::perldo {", sizeof("sub VIM::perldo {") - 1); sv_catpvn(sv, (char *)eap->arg, length); sv_catpvn(sv, "}", 1); perl_eval_sv(sv, G_DISCARD | G_NOARGS); @@ -701,7 +703,7 @@ ex_perldo(eap) SAVETMPS; for (i = eap->line1; i <= eap->line2; i++) { - sv_setpv(GvSV(PL_defgv),(char *)ml_get(i)); + sv_setpv(GvSV(PL_defgv), (char *)ml_get(i)); PUSHMARK(sp); perl_call_pv("VIM::perldo", G_SCALAR | G_EVAL); str = SvPV(GvSV(PL_errgv), length);