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 | f8900a54702510fa7e6068221cba71c5f8920f01 (patch) | |
| tree | 502e16aa19987a0abef1d255638a9d39a00bd4ab /generic/tclZlib.c | |
| parent | ace56e587278e676259306f1a89602f3ca679f52 (diff) | |
| parent | f9c3c819472813905c28f23456d1e94d8a167aa1 (diff) | |
| download | tcl-f8900a54702510fa7e6068221cba71c5f8920f01.zip tcl-f8900a54702510fa7e6068221cba71c5f8920f01.tar.gz tcl-f8900a54702510fa7e6068221cba71c5f8920f01.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)); |