Index: kitsh/buildsrc/kitsh-0.0/kitInit.c ================================================================== --- kitsh/buildsrc/kitsh-0.0/kitInit.c +++ kitsh/buildsrc/kitsh-0.0/kitInit.c @@ -37,13 +37,16 @@ Tcl_AppInitProc Itcl_Init; #endif #ifdef KIT_INCLUDES_MK4TCL Tcl_AppInitProc Mk4tcl_Init; #endif -Tcl_AppInitProc Vfs_Init, Rechan_Init, Zlib_Init; +Tcl_AppInitProc Vfs_Init, Rechan_Init; #if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 85 Tcl_AppInitProc Pwb_Init; +#endif +#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 86 +Tcl_AppInitProc Zlib_Init; #endif #ifdef TCL_THREADS Tcl_AppInitProc Thread_Init; #endif #ifdef _WIN32 @@ -170,11 +173,13 @@ #if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 85 Tcl_StaticPackage(0, "pwb", Pwb_Init, NULL); #endif Tcl_StaticPackage(0, "rechan", Rechan_Init, NULL); Tcl_StaticPackage(0, "vfs", Vfs_Init, NULL); +#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 86 Tcl_StaticPackage(0, "zlib", Zlib_Init, NULL); +#endif #ifdef TCL_THREADS Tcl_StaticPackage(0, "Thread", Thread_Init, NULL); #endif #ifdef _WIN32 Tcl_StaticPackage(0, "dde", Dde_Init, NULL); Index: kitsh/buildsrc/kitsh-0.0/zlib.c ================================================================== --- kitsh/buildsrc/kitsh-0.0/zlib.c +++ kitsh/buildsrc/kitsh-0.0/zlib.c @@ -2,12 +2,13 @@ * March 2003 - placed in the public domain by the author. * * Interface to the "zlib" compression library */ -#include "zlib.h" #include +#if 10 * TCL_MAJOR_VERSION + TCL_MINOR_VERSION < 86 +#include "zlib.h" typedef struct { z_stream stream; Tcl_Obj *indata; } zlibstream; @@ -207,5 +208,6 @@ int Zlib_Init(Tcl_Interp *interp) { Tcl_CreateObjCommand(interp, "zlib", ZlibCmd, 0, 0); return Tcl_PkgProvide( interp, "zlib", "1.1"); } +#endif /* Tcl version less than 8.6 */