1 To: [email protected] |
|
2 Subject: Patch 7.2.009 |
|
3 Fcc: outbox |
|
4 From: Bram Moolenaar <[email protected]> |
|
5 Mime-Version: 1.0 |
|
6 Content-Type: text/plain; charset=ISO-8859-1 |
|
7 Content-Transfer-Encoding: 8bit |
|
8 ------------ |
|
9 |
|
10 Patch 7.2.009 |
|
11 Problem: Can't compile with Perl 5.10 on MS-Windows. (Cesar Romani) |
|
12 Solution: Add the Perl_sv_free2 function for dynamic loading. (Dan Sharp) |
|
13 Files: src/if_perl.xs |
|
14 |
|
15 |
|
16 *** ../vim-7.2.008/src/if_perl.xs Thu Jul 24 16:24:15 2008 |
|
17 --- src/if_perl.xs Mon Sep 1 14:58:37 2008 |
|
18 *************** |
|
19 *** 136,141 **** |
|
20 --- 136,144 ---- |
|
21 # define Perl_newXS_flags dll_Perl_newXS_flags |
|
22 #endif |
|
23 # define Perl_sv_free dll_Perl_sv_free |
|
24 + # if (PERL_REVISION == 5) && (PERL_VERSION >= 10) |
|
25 + # define Perl_sv_free2 dll_Perl_sv_free2 |
|
26 + # endif |
|
27 # define Perl_sv_isa dll_Perl_sv_isa |
|
28 # define Perl_sv_magic dll_Perl_sv_magic |
|
29 # define Perl_sv_setiv dll_Perl_sv_setiv |
|
30 *************** |
|
31 *** 268,273 **** |
|
32 --- 271,277 ---- |
|
33 static void (*boot_DynaLoader)_((pTHX_ CV*)); |
|
34 |
|
35 #if (PERL_REVISION == 5) && (PERL_VERSION >= 10) |
|
36 + static void (*Perl_sv_free2)(pTHX_ SV*); |
|
37 static void (*Perl_sys_init3)(int* argc, char*** argv, char*** env); |
|
38 static void (*Perl_sys_term)(void); |
|
39 static SV** (*Perl_ISv_ptr)(register PerlInterpreter*); |
|
40 *************** |
|
41 *** 367,372 **** |
|
42 --- 371,377 ---- |
|
43 {"Perl_TXpv_ptr", (PERL_PROC*)&Perl_TXpv_ptr}, |
|
44 {"Perl_Tna_ptr", (PERL_PROC*)&Perl_Tna_ptr}, |
|
45 #else |
|
46 + {"Perl_sv_free2", (PERL_PROC*)&Perl_sv_free2}, |
|
47 {"Perl_sys_init3", (PERL_PROC*)&Perl_sys_init3}, |
|
48 {"Perl_sys_term", (PERL_PROC*)&Perl_sys_term}, |
|
49 {"Perl_ISv_ptr", (PERL_PROC*)&Perl_ISv_ptr}, |
|
50 *** ../vim-7.2.008/src/version.c Mon Sep 1 17:32:40 2008 |
|
51 --- src/version.c Mon Sep 1 17:55:24 2008 |
|
52 *************** |
|
53 *** 678,679 **** |
|
54 --- 678,681 ---- |
|
55 { /* Add new patch number below this line */ |
|
56 + /**/ |
|
57 + 9, |
|
58 /**/ |
|
59 |
|
60 -- |
|
61 How To Keep A Healthy Level Of Insanity: |
|
62 11. Specify that your drive-through order is "to go". |
|
63 |
|
64 /// Bram Moolenaar -- [email protected] -- http://www.Moolenaar.net \\\ |
|
65 /// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\ |
|
66 \\\ download, build and distribute -- http://www.A-A-P.org /// |
|
67 \\\ help me help AIDS victims -- http://ICCF-Holland.org /// |
|