|
1 To: [email protected] |
|
2 Subject: Patch 7.2.363 |
|
3 Fcc: outbox |
|
4 From: Bram Moolenaar <[email protected]> |
|
5 Mime-Version: 1.0 |
|
6 Content-Type: text/plain; charset=UTF-8 |
|
7 Content-Transfer-Encoding: 8bit |
|
8 ------------ |
|
9 |
|
10 Patch 7.2.363 |
|
11 Problem: Can't dynamically load Perl 5.10. |
|
12 Solution: Add the function Perl_croak_xs_usage. (Sergey Khorev) |
|
13 Files: src/if_perl.xs |
|
14 |
|
15 |
|
16 *** ../vim-7.2.362/src/if_perl.xs 2009-11-11 14:45:36.000000000 +0100 |
|
17 --- src/if_perl.xs 2010-02-17 16:33:16.000000000 +0100 |
|
18 *************** |
|
19 *** 93,98 **** |
|
20 --- 93,101 ---- |
|
21 # define perl_free dll_perl_free |
|
22 # define Perl_get_context dll_Perl_get_context |
|
23 # define Perl_croak dll_Perl_croak |
|
24 + # if (PERL_REVISION == 5) && (PERL_VERSION >= 10) |
|
25 + # define Perl_croak_xs_usage dll_Perl_croak_xs_usage |
|
26 + # endif |
|
27 # ifndef PROTO |
|
28 # define Perl_croak_nocontext dll_Perl_croak_nocontext |
|
29 # define Perl_call_argv dll_Perl_call_argv |
|
30 *************** |
|
31 *** 202,207 **** |
|
32 --- 205,213 ---- |
|
33 static int (*perl_parse)(PerlInterpreter*, XSINIT_t, int, char**, char**); |
|
34 static void* (*Perl_get_context)(void); |
|
35 static void (*Perl_croak)(pTHX_ const char*, ...); |
|
36 + #if (PERL_REVISION == 5) && (PERL_VERSION >= 10) |
|
37 + static void (*Perl_croak_xs_usage)(pTHX_ const CV *const, const char *const params); |
|
38 + #endif |
|
39 static void (*Perl_croak_nocontext)(const char*, ...); |
|
40 static I32 (*Perl_dowantarray)(pTHX); |
|
41 static void (*Perl_free_tmps)(pTHX); |
|
42 *************** |
|
43 *** 306,311 **** |
|
44 --- 312,320 ---- |
|
45 {"perl_parse", (PERL_PROC*)&perl_parse}, |
|
46 {"Perl_get_context", (PERL_PROC*)&Perl_get_context}, |
|
47 {"Perl_croak", (PERL_PROC*)&Perl_croak}, |
|
48 + #if (PERL_REVISION == 5) && (PERL_VERSION >= 10) |
|
49 + {"Perl_croak_xs_usage", (PERL_PROC*)&Perl_croak_xs_usage}, |
|
50 + #endif |
|
51 {"Perl_croak_nocontext", (PERL_PROC*)&Perl_croak_nocontext}, |
|
52 {"Perl_dowantarray", (PERL_PROC*)&Perl_dowantarray}, |
|
53 {"Perl_free_tmps", (PERL_PROC*)&Perl_free_tmps}, |
|
54 *** ../vim-7.2.362/src/version.c 2010-02-17 16:31:27.000000000 +0100 |
|
55 --- src/version.c 2010-02-17 16:35:39.000000000 +0100 |
|
56 *************** |
|
57 *** 683,684 **** |
|
58 --- 683,686 ---- |
|
59 { /* Add new patch number below this line */ |
|
60 + /**/ |
|
61 + 363, |
|
62 /**/ |
|
63 |
|
64 -- |
|
65 If you're sending someone Styrofoam, what do you pack it in? |
|
66 |
|
67 /// Bram Moolenaar -- [email protected] -- http://www.Moolenaar.net \\\ |
|
68 /// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\ |
|
69 \\\ download, build and distribute -- http://www.A-A-P.org /// |
|
70 \\\ help me help AIDS victims -- http://ICCF-Holland.org /// |