diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-09 17:21:31 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-09 17:21:31 (GMT) |
| commit | 3408cb4caba6bdda86ed5bd407f26f9f9fff9948 (patch) | |
| tree | 2749fdf06c69cbd0027fc83117455052086b2c39 /generic/tclAssembly.c | |
| parent | 3f704efe4e8c1fc7b8eff04d4a7eb80c31c7f44e (diff) | |
| parent | 77e9a375ff3089711d1b2d25da3d190afc639e1e (diff) | |
| download | tcl-3408cb4caba6bdda86ed5bd407f26f9f9fff9948.zip tcl-3408cb4caba6bdda86ed5bd407f26f9f9fff9948.tar.gz tcl-3408cb4caba6bdda86ed5bd407f26f9f9fff9948.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index a0a6061..8540b59 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -1300,7 +1300,7 @@ AssembleOneLine( if (GetNextOperand(assemEnvPtr, &tokenPtr, &operand1Obj) != TCL_OK) { goto cleanup; } - operand1 = Tcl_GetStringFromObj(operand1Obj, &operand1Len); + operand1 = TclGetStringFromObj(operand1Obj, &operand1Len); litIndex = TclRegisterNewLiteral(envPtr, operand1, operand1Len); BBEmitInst1or4(assemEnvPtr, tblIdx, litIndex, 0); break; @@ -1449,7 +1449,7 @@ AssembleOneLine( &operand1Obj) != TCL_OK) { goto cleanup; } else { - operand1 = Tcl_GetStringFromObj(operand1Obj, &operand1Len); + operand1 = TclGetStringFromObj(operand1Obj, &operand1Len); litIndex = TclRegisterNewLiteral(envPtr, operand1, operand1Len); /* @@ -2289,7 +2289,7 @@ FindLocalVar( if (GetNextOperand(assemEnvPtr, tokenPtrPtr, &varNameObj) != TCL_OK) { return -1; } - varNameStr = Tcl_GetStringFromObj(varNameObj, &varNameLen); + varNameStr = TclGetStringFromObj(varNameObj, &varNameLen); if (CheckNamespaceQualifiers(interp, varNameStr, varNameLen)) { Tcl_DecrRefCount(varNameObj); return -1; |