diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2012-10-03 09:38:50 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2012-10-03 09:38:50 (GMT) |
| commit | b51cc7fb86f2496499946cbec78cba6aeda1e470 (patch) | |
| tree | d9b2d594ecc34cd9f16a8e002fc84d91c6411cba /generic/tclZlib.c | |
| parent | 600a6fff72cc36cbc608170f94758552f0108c17 (diff) | |
| download | tcl-b51cc7fb86f2496499946cbec78cba6aeda1e470.zip tcl-b51cc7fb86f2496499946cbec78cba6aeda1e470.tar.gz tcl-b51cc7fb86f2496499946cbec78cba6aeda1e470.tar.bz2 | |
documented new C API; corrected type signature of no-zlib fallback function
Diffstat (limited to 'generic/tclZlib.c')
| -rw-r--r-- | generic/tclZlib.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c index 20130d1..2054b15 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -3974,15 +3974,12 @@ Tcl_ZlibAdler32( return 0; } -int +void Tcl_ZlibStreamSetCompressionDictionary( - Tcl_Interp *interp, - Tcl_ZlibStream zhandle, + Tcl_ZlibStream zshandle, Tcl_Obj *compressionDictionaryObj) { - Tcl_SetObjResult(interp, Tcl_NewStringObj("unimplemented", -1)); - Tcl_SetErrorCode(interp, "TCL", "UNIMPLEMENTED", NULL); - return TCL_ERROR; + /* Do nothing. */ } #endif /* HAVE_ZLIB */ |