diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-04-26 13:52:58 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-04-26 13:52:58 (GMT) |
commit | f0e80d448f3f3811daf7cbead5099f2ac1c955be (patch) | |
tree | 502e16aa19987a0abef1d255638a9d39a00bd4ab /generic/tclZlib.c | |
parent | bd225549d99654b28b5f9b3647014de5faf1af39 (diff) | |
parent | 9237d075a9ed52e64993a5fc0e8e3b64d857c5c8 (diff) | |
download | tcl-f0e80d448f3f3811daf7cbead5099f2ac1c955be.zip tcl-f0e80d448f3f3811daf7cbead5099f2ac1c955be.tar.gz tcl-f0e80d448f3f3811daf7cbead5099f2ac1c955be.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)); |