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

*** ../vim-7.3.666/src/if_perl.xs	2012-08-08 13:17:26.000000000 +0200

--- src/if_perl.xs	2012-09-21 12:39:29.000000000 +0200

***************

*** 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.

*** ../vim-7.3.666/src/version.c	2012-09-18 22:00:02.000000000 +0200

--- src/version.c	2012-09-21 12:40:57.000000000 +0200

***************

*** 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    ///