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/tclUtil.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/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index e15a18f..5d8db6f 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -1981,7 +1981,7 @@ Tcl_ConcatObj( TclObjTypeHasProc(objPtr, indexProc)) { continue; } - (void)Tcl_GetStringFromObj(objPtr, &length); + (void)TclGetStringFromObj(objPtr, &length); if (length > 0) { break; } @@ -2028,7 +2028,7 @@ Tcl_ConcatObj( */ for (i = 0; i < objc; i++) { - element = Tcl_GetStringFromObj(objv[i], &elemLength); + element = TclGetStringFromObj(objv[i], &elemLength); if (bytesNeeded > (TCL_SIZE_MAX - elemLength)) { break; /* Overflow. Do not preallocate. See comment below. */ } @@ -2048,7 +2048,7 @@ Tcl_ConcatObj( for (i = 0; i < objc; i++) { Tcl_Size triml, trimr; - element = Tcl_GetStringFromObj(objv[i], &elemLength); + element = TclGetStringFromObj(objv[i], &elemLength); /* Trim away the leading/trailing whitespace. */ triml = TclTrim(element, elemLength, CONCAT_TRIM_SET, @@ -2668,7 +2668,7 @@ TclDStringAppendObj( Tcl_Obj *objPtr) { Tcl_Size length; - const char *bytes = Tcl_GetStringFromObj(objPtr, &length); + const char *bytes = TclGetStringFromObj(objPtr, &length); return Tcl_DStringAppend(dsPtr, bytes, length); } @@ -3508,7 +3508,7 @@ GetEndOffsetFromObj( while ((irPtr = TclFetchInternalRep(objPtr, &endOffsetType)) == NULL) { Tcl_ObjInternalRep ir; Tcl_Size length; - const char *bytes = Tcl_GetStringFromObj(objPtr, &length); + const char *bytes = TclGetStringFromObj(objPtr, &length); if (*bytes != 'e') { int numType; |