Karsten Hopp dd660c
To: vim-dev@vim.org
Karsten Hopp dd660c
Subject: Patch 7.2.009
Karsten Hopp dd660c
Fcc: outbox
Karsten Hopp dd660c
From: Bram Moolenaar <Bram@moolenaar.net>
Karsten Hopp dd660c
Mime-Version: 1.0
Karsten Hopp dd660c
Content-Type: text/plain; charset=ISO-8859-1
Karsten Hopp dd660c
Content-Transfer-Encoding: 8bit
Karsten Hopp dd660c
------------
Karsten Hopp dd660c
Karsten Hopp dd660c
Patch 7.2.009
Karsten Hopp dd660c
Problem:    Can't compile with Perl 5.10 on MS-Windows. (Cesar Romani)
Karsten Hopp dd660c
Solution:   Add the Perl_sv_free2 function for dynamic loading. (Dan Sharp)
Karsten Hopp dd660c
Files:	    src/if_perl.xs
Karsten Hopp dd660c
Karsten Hopp dd660c
Karsten Hopp dd660c
*** ../vim-7.2.008/src/if_perl.xs	Thu Jul 24 16:24:15 2008
Karsten Hopp dd660c
--- src/if_perl.xs	Mon Sep  1 14:58:37 2008
Karsten Hopp dd660c
***************
Karsten Hopp dd660c
*** 136,141 ****
Karsten Hopp dd660c
--- 136,144 ----
Karsten Hopp dd660c
  #  define Perl_newXS_flags dll_Perl_newXS_flags
Karsten Hopp dd660c
  #endif
Karsten Hopp dd660c
  # define Perl_sv_free dll_Perl_sv_free
Karsten Hopp dd660c
+ # if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
Karsten Hopp dd660c
+ #  define Perl_sv_free2 dll_Perl_sv_free2
Karsten Hopp dd660c
+ # endif
Karsten Hopp dd660c
  # define Perl_sv_isa dll_Perl_sv_isa
Karsten Hopp dd660c
  # define Perl_sv_magic dll_Perl_sv_magic
Karsten Hopp dd660c
  # define Perl_sv_setiv dll_Perl_sv_setiv
Karsten Hopp dd660c
***************
Karsten Hopp dd660c
*** 268,273 ****
Karsten Hopp dd660c
--- 271,277 ----
Karsten Hopp dd660c
  static void (*boot_DynaLoader)_((pTHX_ CV*));
Karsten Hopp dd660c
  
Karsten Hopp dd660c
  #if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
Karsten Hopp dd660c
+ static void (*Perl_sv_free2)(pTHX_ SV*);
Karsten Hopp dd660c
  static void (*Perl_sys_init3)(int* argc, char*** argv, char*** env);
Karsten Hopp dd660c
  static void (*Perl_sys_term)(void);
Karsten Hopp dd660c
  static SV** (*Perl_ISv_ptr)(register PerlInterpreter*);
Karsten Hopp dd660c
***************
Karsten Hopp dd660c
*** 367,372 ****
Karsten Hopp dd660c
--- 371,377 ----
Karsten Hopp dd660c
      {"Perl_TXpv_ptr", (PERL_PROC*)&Perl_TXpv_ptr},
Karsten Hopp dd660c
      {"Perl_Tna_ptr", (PERL_PROC*)&Perl_Tna_ptr},
Karsten Hopp dd660c
  #else
Karsten Hopp dd660c
+     {"Perl_sv_free2", (PERL_PROC*)&Perl_sv_free2},
Karsten Hopp dd660c
      {"Perl_sys_init3", (PERL_PROC*)&Perl_sys_init3},
Karsten Hopp dd660c
      {"Perl_sys_term", (PERL_PROC*)&Perl_sys_term},
Karsten Hopp dd660c
      {"Perl_ISv_ptr", (PERL_PROC*)&Perl_ISv_ptr},
Karsten Hopp dd660c
*** ../vim-7.2.008/src/version.c	Mon Sep  1 17:32:40 2008
Karsten Hopp dd660c
--- src/version.c	Mon Sep  1 17:55:24 2008
Karsten Hopp dd660c
***************
Karsten Hopp dd660c
*** 678,679 ****
Karsten Hopp dd660c
--- 678,681 ----
Karsten Hopp dd660c
  {   /* Add new patch number below this line */
Karsten Hopp dd660c
+ /**/
Karsten Hopp dd660c
+     9,
Karsten Hopp dd660c
  /**/
Karsten Hopp dd660c
Karsten Hopp dd660c
-- 
Karsten Hopp dd660c
How To Keep A Healthy Level Of Insanity:
Karsten Hopp dd660c
11. Specify that your drive-through order is "to go".
Karsten Hopp dd660c
Karsten Hopp dd660c
 /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
Karsten Hopp dd660c
///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
Karsten Hopp dd660c
\\\        download, build and distribute -- http://www.A-A-P.org        ///
Karsten Hopp dd660c
 \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///