diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2012-04-26 13:52:58 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2012-04-26 13:52:58 (GMT) |
| commit | 559b06ad27d1a68be117a331a2f62219b2daa6f5 (patch) | |
| tree | 502e16aa19987a0abef1d255638a9d39a00bd4ab /generic/tclZlib.c | |
| parent | bfcb55a861fe14618d3244a4da3617595e1e2444 (diff) | |
| parent | 16b4e79286e53eb98ef501a25def03233fda42bc (diff) | |
| download | tcl-559b06ad27d1a68be117a331a2f62219b2daa6f5.zip tcl-559b06ad27d1a68be117a331a2f62219b2daa6f5.tar.gz tcl-559b06ad27d1a68be117a331a2f62219b2daa6f5.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclZlib.c')
| -rw-r--r-- | generic/tclZlib.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c index 6290d60..51d6beb 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -417,9 +417,7 @@ ExtractHeader( Tcl_ExternalToUtfDString(latin1enc, (char *) headerPtr->comment, -1, &tmp); - SetValue(dictObj, "comment", Tcl_NewStringObj(Tcl_DStringValue(&tmp), - Tcl_DStringLength(&tmp))); - Tcl_DStringFree(&tmp); + SetValue(dictObj, "comment", TclDStringToObj(&tmp)); } SetValue(dictObj, "crc", Tcl_NewBooleanObj(headerPtr->hcrc)); if (headerPtr->name != Z_NULL) { @@ -436,9 +434,7 @@ ExtractHeader( Tcl_ExternalToUtfDString(latin1enc, (char *) headerPtr->name, -1, &tmp); - SetValue(dictObj, "filename", Tcl_NewStringObj(Tcl_DStringValue(&tmp), - Tcl_DStringLength(&tmp))); - Tcl_DStringFree(&tmp); + SetValue(dictObj, "filename", TclDStringToObj(&tmp)); } if (headerPtr->os != 255) { SetValue(dictObj, "os", Tcl_NewIntObj(headerPtr->os)); |