--- generic/adler.c Wed Aug 9 15:13:17 2000 +++ generic/adler.c Fri Jul 9 16:30:50 2004 @@ -49,5 +49,4 @@ static void MDAdler_UpdateBuf _ANSI_ARGS_ ((VOID* context, unsigned char* buffer, int bufLen)); static void MDAdler_Final _ANSI_ARGS_ ((VOID* context, VOID* digest)); -static int MDAdler_Check _ANSI_ARGS_ ((Tcl_Interp* interp)); /* @@ -63,5 +62,5 @@ MDAdler_UpdateBuf, MDAdler_Final, - MDAdler_Check + NULL }; @@ -222,36 +221,2 @@ out [3] = (char) ((adler >> 0) & 0xff); } - -/* - *------------------------------------------------------* - * - * MDAdler_Check -- - * - * ------------------------------------------------* - * Check for existence of libz, load it. - * ------------------------------------------------* - * - * Sideeffects: - * As of the called procedure. - * - * Result: - * None. - * - *------------------------------------------------------* - */ - -static int -MDAdler_Check (interp) -Tcl_Interp* interp; -{ - int res; - - START (MDAdler_Check); - - res = TrfLoadZlib (interp); - - PRINT ("res = %d\n", res); - DONE (MDAdler_Check); - return res; -} - --- generic/crc_zlib.c Wed Aug 9 15:13:17 2000 +++ generic/crc_zlib.c Fri Jul 9 16:34:11 2004 @@ -49,5 +49,4 @@ static void MDcrcz_UpdateBuf _ANSI_ARGS_ ((VOID* context, unsigned char* buffer, int bufLen)); static void MDcrcz_Final _ANSI_ARGS_ ((VOID* context, VOID* digest)); -static int MDcrcz_Check _ANSI_ARGS_ ((Tcl_Interp* interp)); /* @@ -63,5 +62,5 @@ MDcrcz_UpdateBuf, MDcrcz_Final, - MDcrcz_Check + NULL }; @@ -217,28 +216,2 @@ out [0] = (char) ((crc >> 0) & 0xff); } - -/* - *------------------------------------------------------* - * - * MDcrcz_Check -- - * - * ------------------------------------------------* - * Check for existence of libz, load it. - * ------------------------------------------------* - * - * Sideeffects: - * As of the called procedure. - * - * Result: - * None. - * - *------------------------------------------------------* - */ - -static int -MDcrcz_Check (interp) -Tcl_Interp* interp; -{ - return TrfLoadZlib (interp); -} - --- generic/zip_opt.c Sat Nov 18 17:42:32 2000 +++ generic/zip_opt.c Fri Feb 15 15:13:22 2002 @@ -183,13 +183,4 @@ /* - * 'zip' is used, therefore load the required library. - * And bail out if it is not available. - */ - - if (TCL_OK != TrfLoadZlib (interp)) { - return TCL_ERROR; - } - - /* * Now perform the real option check. */