| To: vim_dev@googlegroups.com |
| Subject: Patch 7.3.667 |
| Fcc: outbox |
| From: Bram Moolenaar <Bram@moolenaar.net> |
| Mime-Version: 1.0 |
| Content-Type: text/plain; charset=UTF-8 |
| Content-Transfer-Encoding: 8bit |
| |
| |
| Patch 7.3.667 |
| Problem: Unused variables in Perl interface. |
| Solution: Adjust #ifdefs. |
| Files: src/if_perl.xs |
| |
| |
| |
| |
| |
| *** 315,320 **** |
| --- 315,323 ---- |
| static void (*Perl_sv_free2)(pTHX_ SV*); |
| static void (*Perl_sys_init)(int* argc, char*** argv); |
| static void (*Perl_sys_term)(void); |
| + static void (*Perl_call_list)(pTHX_ I32, AV*); |
| + # if (PERL_REVISION == 5) && (PERL_VERSION >= 14) |
| + # else |
| static SV** (*Perl_ISv_ptr)(register PerlInterpreter*); |
| static SV*** (*Perl_Istack_max_ptr)(register PerlInterpreter*); |
| static SV*** (*Perl_Istack_base_ptr)(register PerlInterpreter*); |
| |
| *** 326,341 **** |
| static I32** (*Perl_Imarkstack_max_ptr)(register PerlInterpreter*); |
| static SV*** (*Perl_Istack_sp_ptr)(register PerlInterpreter*); |
| static OP** (*Perl_Iop_ptr)(register PerlInterpreter*); |
| - static void (*Perl_call_list)(pTHX_ I32, AV*); |
| static I32* (*Perl_Iscopestack_ix_ptr)(register PerlInterpreter*); |
| static AV** (*Perl_Iunitcheckav_ptr)(register PerlInterpreter*); |
| #endif |
| |
| static GV** (*Perl_Idefgv_ptr)(register PerlInterpreter*); |
| static GV** (*Perl_Ierrgv_ptr)(register PerlInterpreter*); |
| static SV* (*Perl_Isv_yes_ptr)(register PerlInterpreter*); |
| - static void (*boot_DynaLoader)_((pTHX_ CV*)); |
| static perl_key* (*Perl_Gthr_key_ptr)_((pTHX)); |
| |
| /* |
| * Table of name to function pointer of perl. |
| --- 329,347 ---- |
| static I32** (*Perl_Imarkstack_max_ptr)(register PerlInterpreter*); |
| static SV*** (*Perl_Istack_sp_ptr)(register PerlInterpreter*); |
| static OP** (*Perl_Iop_ptr)(register PerlInterpreter*); |
| static I32* (*Perl_Iscopestack_ix_ptr)(register PerlInterpreter*); |
| static AV** (*Perl_Iunitcheckav_ptr)(register PerlInterpreter*); |
| + # endif |
| #endif |
| |
| + #if (PERL_REVISION == 5) && (PERL_VERSION >= 14) |
| + #else |
| static GV** (*Perl_Idefgv_ptr)(register PerlInterpreter*); |
| static GV** (*Perl_Ierrgv_ptr)(register PerlInterpreter*); |
| static SV* (*Perl_Isv_yes_ptr)(register PerlInterpreter*); |
| static perl_key* (*Perl_Gthr_key_ptr)_((pTHX)); |
| + #endif |
| + static void (*boot_DynaLoader)_((pTHX_ CV*)); |
| |
| /* |
| * Table of name to function pointer of perl. |
| |
| |
| |
| *** 721,722 **** |
| --- 721,724 ---- |
| { /* Add new patch number below this line */ |
| + /**/ |
| + 667, |
| /**/ |
| |
| -- |
| Two cows are standing together in a field. One asks the other: |
| "So what do you think about this Mad Cow Disease?" |
| The other replies: "That doesn't concern me. I'm a helicopter." |
| |
| /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net \\\ |
| /// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\ |
| \\\ an exciting new programming language -- http://www.Zimbu.org /// |
| \\\ help me help AIDS victims -- http://ICCF-Holland.org /// |