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/tclCmdIL.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/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index c79fd86..f5065f3 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -567,7 +567,7 @@ InfoBodyCmd( * the object do not invalidate the internal rep. */ - bytes = Tcl_GetStringFromObj(procPtr->bodyPtr, &numBytes); + bytes = TclGetStringFromObj(procPtr->bodyPtr, &numBytes); Tcl_SetObjResult(interp, Tcl_NewStringObj(bytes, numBytes)); return TCL_OK; } @@ -2205,7 +2205,7 @@ Tcl_JoinObjCmd( joinObjPtr = (objc == 2) ? Tcl_NewStringObj(" ", 1) : objv[2]; Tcl_IncrRefCount(joinObjPtr); - (void) Tcl_GetStringFromObj(joinObjPtr, &length); + (void)TclGetStringFromObj(joinObjPtr, &length); if (length == 0) { resObjPtr = TclStringCat(interp, listLen, elemPtrs, 0); } else { @@ -3660,7 +3660,7 @@ Tcl_LsearchObjCmd( switch (dataType) { case ASCII: case DICTIONARY: - patternBytes = Tcl_GetStringFromObj(patObj, &length); + patternBytes = TclGetStringFromObj(patObj, &length); break; case INTEGER: result = TclGetWideIntFromObj(interp, patObj, &patWide); @@ -3690,7 +3690,7 @@ Tcl_LsearchObjCmd( break; } } else { - patternBytes = Tcl_GetStringFromObj(patObj, &length); + patternBytes = TclGetStringFromObj(patObj, &length); } /* @@ -3842,7 +3842,7 @@ Tcl_LsearchObjCmd( case EXACT: switch (dataType) { case ASCII: - bytes = Tcl_GetStringFromObj(itemPtr, &elemLen); + bytes = TclGetStringFromObj(itemPtr, &elemLen); if (length == elemLen) { /* * This split allows for more optimal compilation of |