Fossil

Check-in [e7f7f79c]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Check sqlite3_mprintf() return value in the Tcl integration subsystem.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: e7f7f79ce8e0933ac97c60a16b73fae5711dcb1f
User & Date: mistachkin 2015-07-10 20:57:09.219
Context
2015-07-11
22:28
Coding style changes to fossil_utf8_to_console(). ... (check-in: 484a39a7 user: mistachkin tags: trunk)
07:39
Merge updates from trunk. ... (Closed-Leaf check-in: 0e4247f9 user: mistachkin tags: enhancedUndo)
2015-07-10
20:57
Check sqlite3_mprintf() return value in the Tcl integration subsystem. ... (check-in: e7f7f79c user: mistachkin tags: trunk)
18:43
Incorporate recent downstream changes for the Tcl integration subsystem. ... (check-in: c5f71552 user: mistachkin tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/th_tcl.c.
︙︙
790
791
792
793
794
795
796

797
798
799
800
801
802
803

      zFileName = sqlite3_mprintf("%s%c", zEnvPath, '\0');
#if TCL_USE_SET_DLL_DIRECTORY
      if( zDirName ){
        fossil_free(zDirName); zDirName = 0;
      }
#endif /* TCL_USE_SET_DLL_DIRECTORY */
    }

    hLibrary = dlopen(zFileName, RTLD_NOW | RTLD_GLOBAL);
    /* NOTE: If the file name was allocated, free it now. */
    if( zFileName!=aFileName ){
      sqlite3_free(zFileName); zFileName = 0;
    }
    if( hLibrary ){
      tcl_FindExecutableProc *xFindExecutable;








>








790
791
792
793
794
795
796
797
798
799
800
801
802
803
804

      zFileName = sqlite3_mprintf("%s%c", zEnvPath, '\0');
#if TCL_USE_SET_DLL_DIRECTORY
      if( zDirName ){
        fossil_free(zDirName); zDirName = 0;
      }
#endif /* TCL_USE_SET_DLL_DIRECTORY */
    }
    if( !zFileName ) break;
    hLibrary = dlopen(zFileName, RTLD_NOW | RTLD_GLOBAL);
    /* NOTE: If the file name was allocated, free it now. */
    if( zFileName!=aFileName ){
      sqlite3_free(zFileName); zFileName = 0;
    }
    if( hLibrary ){
      tcl_FindExecutableProc *xFindExecutable;
︙︙