aniani/vim
0
0
Fork 1
mirror of https://github.com/vim/vim.git synced 2025-07-26 11:04:33 -04:00
Code

updated for version 7.3.668

Browse Source 
Problem:    Building with Perl loaded dynamically  still uses static library.
Solution:   Adjust use of PL_thr_key. (Ken Takata)
This commit is contained in:
Bram Moolenaar 2012-09-21 12:50:51 +02:00
parent f5fe79a5f3
commit 01c10524d2
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/if_perl.xs
View File

@ -155,7 +155,7 @@ typedef int perl_key;
# define Perl_set_context dll_Perl_set_context # define Perl_set_context dll_Perl_set_context
# if (PERL_REVISION == 5) && (PERL_VERSION >= 14) # if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
# define Perl_sv_2bool_flags dll_Perl_sv_2bool_flags # define Perl_sv_2bool_flags dll_Perl_sv_2bool_flags
# define Perl_xs_apiversion_bootcheck dll_Perl_xs_apiversion_bootcheck # define Perl_xs_apiversion_bootcheck dll_Perl_xs_apiversion_bootcheck
# else # else
# define Perl_sv_2bool dll_Perl_sv_2bool # define Perl_sv_2bool dll_Perl_sv_2bool
# endif # endif
@ -225,6 +225,9 @@ typedef int perl_key;
# define Perl_call_list dll_Perl_call_list # define Perl_call_list dll_Perl_call_list
# define Perl_Iscopestack_ix_ptr dll_Perl_Iscopestack_ix_ptr # define Perl_Iscopestack_ix_ptr dll_Perl_Iscopestack_ix_ptr
# define Perl_Iunitcheckav_ptr dll_Perl_Iunitcheckav_ptr # define Perl_Iunitcheckav_ptr dll_Perl_Iunitcheckav_ptr
# if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
# define PL_thr_key *dll_PL_thr_key
# endif
/* /*
* Declare HANDLE for perl.dll and function pointers. * Declare HANDLE for perl.dll and function pointers.
@ -335,6 +338,7 @@ static AV** (*Perl_Iunitcheckav_ptr)(register PerlInterpreter*);
#endif #endif
#if (PERL_REVISION == 5) && (PERL_VERSION >= 14) #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
static perl_key* dll_PL_thr_key;
#else #else
static GV** (*Perl_Idefgv_ptr)(register PerlInterpreter*); static GV** (*Perl_Idefgv_ptr)(register PerlInterpreter*);
static GV** (*Perl_Ierrgv_ptr)(register PerlInterpreter*); static GV** (*Perl_Ierrgv_ptr)(register PerlInterpreter*);
@ -453,6 +457,7 @@ static struct {
# endif # endif
#endif #endif
#if (PERL_REVISION == 5) && (PERL_VERSION >= 14) #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
{"PL_thr_key", (PERL_PROC*)&dll_PL_thr_key},
#else #else
{"Perl_Idefgv_ptr", (PERL_PROC*)&Perl_Idefgv_ptr}, {"Perl_Idefgv_ptr", (PERL_PROC*)&Perl_Idefgv_ptr},
{"Perl_Ierrgv_ptr", (PERL_PROC*)&Perl_Ierrgv_ptr}, {"Perl_Ierrgv_ptr", (PERL_PROC*)&Perl_Ierrgv_ptr},

2
src/version.c
View File

@ -719,6 +719,8 @@ static char *(features[]) =
static int included_patches[] = static int included_patches[] =
{ /* Add new patch number below this line */ { /* Add new patch number below this line */
/**/
668,
/**/ /**/
667, 667,
/**/ /**/