diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-03 09:38:50 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-03 09:38:50 (GMT) |
| commit | e8194c6b432919103ad3c5f472e4c05ce1a2b037 (patch) | |
| tree | d9b2d594ecc34cd9f16a8e002fc84d91c6411cba /generic/tclZlib.c | |
| parent | d7fd32ebdc04976287c78247d664efa442b3c5fe (diff) | |
| download | tcl-e8194c6b432919103ad3c5f472e4c05ce1a2b037.zip tcl-e8194c6b432919103ad3c5f472e4c05ce1a2b037.tar.gz tcl-e8194c6b432919103ad3c5f472e4c05ce1a2b037.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 */ |