thac0/vim
1
0
Fork 0
forked from aniani/vim
Code Activity

updated for version 7.4.046

Browse Source 
Problem:    Can't use Tcl 8.6.
Solution:   Change how Tcl_FindExecutable is called. (Jan Nijtmans)
This commit is contained in:
Bram Moolenaar
2013-10-02 14:25:44 +02:00
parent ceb84af027
commit 0b4db6b6e5
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/if_tcl.c
View File

@@ -165,6 +165,7 @@ typedef int HANDLE;
*/ */
static HANDLE hTclLib = NULL; static HANDLE hTclLib = NULL;
Tcl_Interp* (*dll_Tcl_CreateInterp)(); Tcl_Interp* (*dll_Tcl_CreateInterp)();
void (*dll_Tcl_FindExecutable)(const void *);
/* /*
* Table of name to function pointer of tcl. * Table of name to function pointer of tcl.
@@ -175,6 +176,7 @@ static struct {
TCL_PROC* ptr; TCL_PROC* ptr;
} tcl_funcname_table[] = { } tcl_funcname_table[] = {
{"Tcl_CreateInterp", (TCL_PROC*)&dll_Tcl_CreateInterp}, {"Tcl_CreateInterp", (TCL_PROC*)&dll_Tcl_CreateInterp},
{"Tcl_FindExecutable", (TCL_PROC*)&dll_Tcl_FindExecutable},
{NULL, NULL}, {NULL, NULL},
}; };
@@ -248,11 +250,12 @@ tcl_enabled(verbose)
{ {
Tcl_Interp *interp; Tcl_Interp *interp;
dll_Tcl_FindExecutable(find_executable_arg);
if (interp = dll_Tcl_CreateInterp()) if (interp = dll_Tcl_CreateInterp())
{ {
if (Tcl_InitStubs(interp, DYNAMIC_TCL_VER, 0)) if (Tcl_InitStubs(interp, DYNAMIC_TCL_VER, 0))
{ {
Tcl_FindExecutable(find_executable_arg);
Tcl_DeleteInterp(interp); Tcl_DeleteInterp(interp);
stubs_initialized = TRUE; stubs_initialized = TRUE;
} }

2
src/version.c
View File

@@ -738,6 +738,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 */
/**/
46,
/**/ /**/
45, 45,
/**/ /**/