|
 |
dcd767c |
To: vim-dev@vim.org
|
|
|
dcd767c |
Subject: Patch 7.2.363
|
|
|
dcd767c |
Fcc: outbox
|
|
|
dcd767c |
From: Bram Moolenaar <Bram@moolenaar.net>
|
|
|
dcd767c |
Mime-Version: 1.0
|
|
|
dcd767c |
Content-Type: text/plain; charset=UTF-8
|
|
|
dcd767c |
Content-Transfer-Encoding: 8bit
|
|
|
dcd767c |
------------
|
|
|
dcd767c |
|
|
|
dcd767c |
Patch 7.2.363
|
|
|
dcd767c |
Problem: Can't dynamically load Perl 5.10.
|
|
|
dcd767c |
Solution: Add the function Perl_croak_xs_usage. (Sergey Khorev)
|
|
|
dcd767c |
Files: src/if_perl.xs
|
|
|
dcd767c |
|
|
|
dcd767c |
|
|
|
dcd767c |
*** ../vim-7.2.362/src/if_perl.xs 2009-11-11 14:45:36.000000000 +0100
|
|
|
dcd767c |
--- src/if_perl.xs 2010-02-17 16:33:16.000000000 +0100
|
|
|
dcd767c |
***************
|
|
|
dcd767c |
*** 93,98 ****
|
|
|
dcd767c |
--- 93,101 ----
|
|
|
dcd767c |
# define perl_free dll_perl_free
|
|
|
dcd767c |
# define Perl_get_context dll_Perl_get_context
|
|
|
dcd767c |
# define Perl_croak dll_Perl_croak
|
|
|
dcd767c |
+ # if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
|
|
|
dcd767c |
+ # define Perl_croak_xs_usage dll_Perl_croak_xs_usage
|
|
|
dcd767c |
+ # endif
|
|
|
dcd767c |
# ifndef PROTO
|
|
|
dcd767c |
# define Perl_croak_nocontext dll_Perl_croak_nocontext
|
|
|
dcd767c |
# define Perl_call_argv dll_Perl_call_argv
|
|
|
dcd767c |
***************
|
|
|
dcd767c |
*** 202,207 ****
|
|
|
dcd767c |
--- 205,213 ----
|
|
|
dcd767c |
static int (*perl_parse)(PerlInterpreter*, XSINIT_t, int, char**, char**);
|
|
|
dcd767c |
static void* (*Perl_get_context)(void);
|
|
|
dcd767c |
static void (*Perl_croak)(pTHX_ const char*, ...);
|
|
|
dcd767c |
+ #if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
|
|
|
dcd767c |
+ static void (*Perl_croak_xs_usage)(pTHX_ const CV *const, const char *const params);
|
|
|
dcd767c |
+ #endif
|
|
|
dcd767c |
static void (*Perl_croak_nocontext)(const char*, ...);
|
|
|
dcd767c |
static I32 (*Perl_dowantarray)(pTHX);
|
|
|
dcd767c |
static void (*Perl_free_tmps)(pTHX);
|
|
|
dcd767c |
***************
|
|
|
dcd767c |
*** 306,311 ****
|
|
|
dcd767c |
--- 312,320 ----
|
|
|
dcd767c |
{"perl_parse", (PERL_PROC*)&perl_parse},
|
|
|
dcd767c |
{"Perl_get_context", (PERL_PROC*)&Perl_get_context},
|
|
|
dcd767c |
{"Perl_croak", (PERL_PROC*)&Perl_croak},
|
|
|
dcd767c |
+ #if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
|
|
|
dcd767c |
+ {"Perl_croak_xs_usage", (PERL_PROC*)&Perl_croak_xs_usage},
|
|
|
dcd767c |
+ #endif
|
|
|
dcd767c |
{"Perl_croak_nocontext", (PERL_PROC*)&Perl_croak_nocontext},
|
|
|
dcd767c |
{"Perl_dowantarray", (PERL_PROC*)&Perl_dowantarray},
|
|
|
dcd767c |
{"Perl_free_tmps", (PERL_PROC*)&Perl_free_tmps},
|
|
|
dcd767c |
*** ../vim-7.2.362/src/version.c 2010-02-17 16:31:27.000000000 +0100
|
|
|
dcd767c |
--- src/version.c 2010-02-17 16:35:39.000000000 +0100
|
|
|
dcd767c |
***************
|
|
|
dcd767c |
*** 683,684 ****
|
|
|
dcd767c |
--- 683,686 ----
|
|
|
dcd767c |
{ /* Add new patch number below this line */
|
|
|
dcd767c |
+ /**/
|
|
|
dcd767c |
+ 363,
|
|
|
dcd767c |
/**/
|
|
|
dcd767c |
|
|
|
dcd767c |
--
|
|
|
dcd767c |
If you're sending someone Styrofoam, what do you pack it in?
|
|
|
dcd767c |
|
|
|
dcd767c |
/// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net \\\
|
|
|
dcd767c |
/// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
|
|
|
dcd767c |
\\\ download, build and distribute -- http://www.A-A-P.org ///
|
|
|
dcd767c |
\\\ help me help AIDS victims -- http://ICCF-Holland.org ///
|