diff options
Diffstat (limited to 'generic/tclZlib.c')
| -rw-r--r-- | generic/tclZlib.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c index 0afe9ea..a3be307 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -444,7 +444,7 @@ GenerateHeader( goto error; } else if (value != NULL) { Tcl_EncodingState state; - valueStr = Tcl_GetStringFromObj(value, &length); + valueStr = TclGetStringFromObj(value, &length); result = Tcl_UtfToExternal(NULL, latin1enc, valueStr, length, TCL_ENCODING_START|TCL_ENCODING_END|TCL_ENCODING_PROFILE_STRICT, &state, headerPtr->nativeCommentBuf, MAX_COMMENT_LEN-1, NULL, &len, @@ -479,7 +479,7 @@ GenerateHeader( goto error; } else if (value != NULL) { Tcl_EncodingState state; - valueStr = Tcl_GetStringFromObj(value, &length); + valueStr = TclGetStringFromObj(value, &length); result = Tcl_UtfToExternal(NULL, latin1enc, valueStr, length, TCL_ENCODING_START|TCL_ENCODING_END|TCL_ENCODING_PROFILE_STRICT, &state, headerPtr->nativeFilenameBuf, MAXPATHLEN-1, NULL, &len, @@ -3521,7 +3521,7 @@ ZlibTransformGetOption( } else { if (cd->compDictObj) { Tcl_Size length; - const char *str = Tcl_GetStringFromObj(cd->compDictObj, &length); + const char *str = TclGetStringFromObj(cd->compDictObj, &length); Tcl_DStringAppend(dsPtr, str, length); } |