home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / patches / 6.0.093 < prev    next >
Encoding:
Internet Message Format  |  2001-11-05  |  2.2 KB
  1. To: vim-dev@vim.org
  2. Subject: Patch 6.0.093
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. MIME-Version: 1.0
  6. Content-Type: text/plain; charset=ISO-8859-1
  7. Content-Transfer-Encoding: 8bit
  8. ------------
  9.  
  10. Patch 6.0.093
  11. Problem:    When the Tcl library couldn't be loaded dynamically, get an error
  12.             message when closing a buffer or window. (Muraoka Taro)
  13. Solution:   Only free structures if already using the Tcl interpreter.
  14. Files:      src/if_tcl.c
  15.  
  16.  
  17. *** ../vim60.92/src/if_tcl.c    Sun Nov  4 14:31:23 2001
  18. --- src/if_tcl.c    Tue Nov  6 11:39:23 2001
  19. ***************
  20. *** 228,233 ****
  21. --- 228,236 ----
  22.   }
  23.   
  24.   #if defined(DYNAMIC_TCL) || defined(PROTO)
  25. + 
  26. + static int stubs_initialized = FALSE;
  27. + 
  28.   /*
  29.    * Return TRUE if the TCL interface can be used.
  30.    */
  31. ***************
  32. *** 235,242 ****
  33.   tcl_enabled(verbose)
  34.       int        verbose;
  35.   {
  36. -     static int stubs_initialized = FALSE;
  37. - 
  38.       if (!stubs_initialized && find_executable_arg != NULL
  39.           && tcl_runtime_link_init(DYNAMIC_TCL_DLL, verbose) == OK)
  40.       {
  41. --- 238,243 ----
  42. ***************
  43. *** 2079,2085 ****
  44.       struct ref *reflist;
  45.   
  46.   #ifdef DYNAMIC_TCL
  47. !     if (!tcl_enabled(TRUE))
  48.       return;
  49.   #endif
  50.   
  51. --- 2080,2086 ----
  52.       struct ref *reflist;
  53.   
  54.   #ifdef DYNAMIC_TCL
  55. !     if (!stubs_initialized)    /* Not using Tcl, nothing to do. */
  56.       return;
  57.   #endif
  58.   
  59. ***************
  60. *** 2100,2106 ****
  61.       struct ref *reflist;
  62.   
  63.   #ifdef DYNAMIC_TCL
  64. !     if (!tcl_enabled(TRUE))
  65.       return;
  66.   #endif
  67.   
  68. --- 2101,2107 ----
  69.       struct ref *reflist;
  70.   
  71.   #ifdef DYNAMIC_TCL
  72. !     if (!stubs_initialized)    /* Not using Tcl, nothing to do. */
  73.       return;
  74.   #endif
  75.   
  76. *** ../vim60.92/src/version.c    Tue Nov  6 22:02:12 2001
  77. --- src/version.c    Tue Nov  6 22:03:56 2001
  78. ***************
  79. *** 608,609 ****
  80. --- 608,611 ----
  81.   {   /* Add new patch number below this line */
  82. + /**/
  83. +     93,
  84.   /**/
  85.  
  86. -- 
  87. How To Keep A Healthy Level Of Insanity:
  88. 6. In the memo field of all your checks, write "for sexual favors".
  89.  
  90.  ///  Bram Moolenaar -- Bram@moolenaar.net -- http://www.moolenaar.net  \\\
  91. (((   Creator of Vim -- http://vim.sf.net -- ftp://ftp.vim.org/pub/vim   )))
  92.  \\\  Help me helping AIDS orphans in Uganda - http://iccf-holland.org  ///
  93.