Tcl Source Code

Artifact 7fcbd503a08f74ad38543f9a2c4fbec9b365cce1:

Attachment "if_tcl.c.diff" to ticket [8419b6d9ae] added by jan.nijtmans 2013-09-06 22:49:16.

---

*** if_tcl.c.orig	2013-09-07 00:36:07.155070503 +0200
--- if_tcl.c	2013-09-07 00:42:11.865338448 +0200
***************
*** 162,167 ****
--- 162,168 ----
   */
  static HANDLE hTclLib = NULL;
  Tcl_Interp* (*dll_Tcl_CreateInterp)();
+ void (*dll_Tcl_FindExecutable)(const void *);
  
  /*
   * Table of name to function pointer of tcl.
***************
*** 172,177 ****
--- 173,179 ----
      TCL_PROC* ptr;
  } tcl_funcname_table[] = {
      {"Tcl_CreateInterp", (TCL_PROC*)&dll_Tcl_CreateInterp},
+     {"Tcl_FindExecutable", (TCL_PROC*)&dll_Tcl_FindExecutable},
      {NULL, NULL},
  };
  
***************
*** 246,256 ****
      {
  	Tcl_Interp *interp;
  
  	if (interp = dll_Tcl_CreateInterp())
  	{
  	    if (Tcl_InitStubs(interp, DYNAMIC_TCL_VER, 0))
  	    {
- 		Tcl_FindExecutable(find_executable_arg);
  		Tcl_DeleteInterp(interp);
  		stubs_initialized = TRUE;
  	    }
--- 248,259 ----
      {
  	Tcl_Interp *interp;
  
+ 	dll_Tcl_FindExecutable(find_executable_arg);
+ 
  	if (interp = dll_Tcl_CreateInterp())
  	{
  	    if (Tcl_InitStubs(interp, DYNAMIC_TCL_VER, 0))
  	    {
  		Tcl_DeleteInterp(interp);
  		stubs_initialized = TRUE;
  	    }