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 | 29080aaa9aa4b3a25eed62b35a8703324e4b652c (patch) | |
| tree | 5c51da27a8473c687ab32cca8029ca2dc98d3af7 /generic/tclResult.c | |
| parent | be7f5c536c48c876701cfeee5085e12aa9cdc649 (diff) | |
| parent | 3fd7f1aa143d5095721daf36be1497966e1fae79 (diff) | |
| download | tcl-29080aaa9aa4b3a25eed62b35a8703324e4b652c.zip tcl-29080aaa9aa4b3a25eed62b35a8703324e4b652c.tar.gz tcl-29080aaa9aa4b3a25eed62b35a8703324e4b652c.tar.bz2 | |
Merge 8.7. Tcl_GetStringFromObj() -> TclGetStringFromObj() (optimization)
Diffstat (limited to 'generic/tclResult.c')
| -rw-r--r-- | generic/tclResult.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclResult.c b/generic/tclResult.c index 9e5d8a2..7151fc4 100644 --- a/generic/tclResult.c +++ b/generic/tclResult.c @@ -359,7 +359,7 @@ Tcl_AppendElement( if (Tcl_IsShared(iPtr->objResultPtr)) { Tcl_SetObjResult(interp, Tcl_DuplicateObj(iPtr->objResultPtr)); } - bytes = Tcl_GetStringFromObj(iPtr->objResultPtr, &length); + bytes = TclGetStringFromObj(iPtr->objResultPtr, &length); if (TclNeedSpace(bytes, bytes + length)) { Tcl_AppendToObj(iPtr->objResultPtr, " ", 1); } @@ -720,7 +720,7 @@ TclProcessReturn( if (valuePtr != NULL) { Tcl_Size length; - (void) Tcl_GetStringFromObj(valuePtr, &length); + (void)TclGetStringFromObj(valuePtr, &length); if (length) { iPtr->errorInfo = valuePtr; Tcl_IncrRefCount(iPtr->errorInfo); |