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

updated for version 7.0044

Browse Source
This commit is contained in:
Bram Moolenaar
2005-01-25 21:57:23 +00:00
parent 281bdcec60
commit 9d75c83f8f
8 changed files with 33 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/if_perl.xs
View File

@@ -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);