diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-21 13:55:11 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-21 13:55:11 (GMT) |
| commit | 0d615819b7678c25b7da29c7218b56f8ce8052d7 (patch) | |
| tree | 5c51da27a8473c687ab32cca8029ca2dc98d3af7 /generic/tclIO.c | |
| parent | 2ffbe54c20f058377c1a6ebb30f783ec148c6dfe (diff) | |
| parent | 4d34ce202b3c9139e9046f447fa2b5d4dc87b72c (diff) | |
| download | tcl-0d615819b7678c25b7da29c7218b56f8ce8052d7.zip tcl-0d615819b7678c25b7da29c7218b56f8ce8052d7.tar.gz tcl-0d615819b7678c25b7da29c7218b56f8ce8052d7.tar.bz2 | |
Merge 8.7. Tcl_GetStringFromObj() -> TclGetStringFromObj() (optimization)
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index f52edc4..4b5cb7d 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -4255,7 +4255,7 @@ Tcl_WriteObj( } return result; } else { - src = Tcl_GetStringFromObj(objPtr, &srcLen); + src = TclGetStringFromObj(objPtr, &srcLen); return WriteChars(chanPtr, src, srcLen); } } @@ -4649,7 +4649,7 @@ Tcl_GetsObj( * newline in the available input. */ - (void)Tcl_GetStringFromObj(objPtr, &oldLength); + (void)TclGetStringFromObj(objPtr, &oldLength); oldFlags = statePtr->inputEncodingFlags; oldState = statePtr->inputEncodingState; oldRemoved = BUFFER_PADDING; @@ -6251,7 +6251,7 @@ ReadChars( if (dstLimit <= 0) { dstLimit = INT_MAX; /* avoid overflow */ } - (void) Tcl_GetStringFromObj(objPtr, &numBytes); + (void) TclGetStringFromObj(objPtr, &numBytes); TclAppendUtfToUtf(objPtr, NULL, dstLimit); if (toRead == srcLen) { Tcl_Size size; @@ -6307,8 +6307,8 @@ ReadChars( flags, &statePtr->inputEncodingState, dst, dstLimit, &srcRead, &dstDecoded, &numChars); - if (code == TCL_CONVERT_UNKNOWN || code == TCL_CONVERT_SYNTAX || - (code == TCL_CONVERT_MULTIBYTE && GotFlag(statePtr, CHANNEL_EOF))) { + if (code == TCL_CONVERT_UNKNOWN || code == TCL_CONVERT_SYNTAX + || (code == TCL_CONVERT_MULTIBYTE && GotFlag(statePtr, CHANNEL_EOF))) { SetFlag(statePtr, CHANNEL_ENCODING_ERROR); code = TCL_OK; } @@ -9777,7 +9777,7 @@ CopyData( * - Fail below with a read error */ if (size < 0 && Tcl_GetErrno() == EILSEQ) { - Tcl_GetStringFromObj(bufObj, &sizePart); + TclGetStringFromObj(bufObj, &sizePart); if (sizePart > 0) { size = sizePart; } @@ -9846,7 +9846,7 @@ CopyData( buffer = csPtr->buffer; sizeb = WriteBytes(outStatePtr->topChanPtr, buffer, size); } else { - buffer = Tcl_GetStringFromObj(bufObj, &sizeb); + buffer = TclGetStringFromObj(bufObj, &sizeb); sizeb = WriteChars(outStatePtr->topChanPtr, buffer, sizeb); } |