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/tclAssembly.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/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index cc1fe3b..7bec144 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -888,7 +888,7 @@ CompileAssembleObj( * Set up the compilation environment, and assemble the code. */ - source = Tcl_GetStringFromObj(objPtr, &sourceLen); + source = TclGetStringFromObj(objPtr, &sourceLen); TclInitCompileEnv(interp, &compEnv, source, sourceLen, NULL, 0); status = TclAssembleCode(&compEnv, source, sourceLen, TCL_EVAL_DIRECT); if (status != TCL_OK) { @@ -1311,7 +1311,7 @@ AssembleOneLine( if (GetNextOperand(assemEnvPtr, &tokenPtr, &operand1Obj) != TCL_OK) { goto cleanup; } - operand1 = Tcl_GetStringFromObj(operand1Obj, &operand1Len); + operand1 = TclGetStringFromObj(operand1Obj, &operand1Len); litIndex = TclRegisterLiteral(envPtr, operand1, operand1Len, 0); BBEmitInst1or4(assemEnvPtr, tblIdx, litIndex, 0); break; @@ -1478,7 +1478,7 @@ AssembleOneLine( &operand1Obj) != TCL_OK) { goto cleanup; } else { - operand1 = Tcl_GetStringFromObj(operand1Obj, &operand1Len); + operand1 = TclGetStringFromObj(operand1Obj, &operand1Len); litIndex = TclRegisterLiteral(envPtr, operand1, operand1Len, 0); /* @@ -2318,7 +2318,7 @@ FindLocalVar( if (GetNextOperand(assemEnvPtr, tokenPtrPtr, &varNameObj) != TCL_OK) { return TCL_INDEX_NONE; } - varNameStr = Tcl_GetStringFromObj(varNameObj, &varNameLen); + varNameStr = TclGetStringFromObj(varNameObj, &varNameLen); if (CheckNamespaceQualifiers(interp, varNameStr, varNameLen)) { Tcl_DecrRefCount(varNameObj); return TCL_INDEX_NONE; |