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