diff options
| author | Bram Moolenaar <Bram@vim.org> | 2005-01-25 21:57:23 +0000 |
|---|---|---|
| committer | Bram Moolenaar <Bram@vim.org> | 2005-01-25 21:57:23 +0000 |
| commit | 9d75c83f8fa3fec072019d0a13b58b00501959b5 (patch) | |
| tree | b3633eb0b393fe5ec8f0f2f97e085039ee09924d /src/if_perl.xs | |
| parent | 281bdcec60a64ccd0b613ecaf2379e46b21c9912 (diff) | |
updated for version 7.0044
Diffstat (limited to 'src/if_perl.xs')
| -rw-r--r-- | src/if_perl.xs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/if_perl.xs b/src/if_perl.xs index 96608ef6b9..072ddcdc87 100644 --- 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); |