diff options
author | dkf <dkf@noemail.net> | 2013-10-26 08:25:02 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2013-10-26 08:25:02 (GMT) |
commit | 7f5654d56b4edbe9be11cb5d6eb852d71e942faf (patch) | |
tree | 2c6d109993ecaaac663957806936a709f271c448 /generic/tclCompile.c | |
parent | 47dc71ec60976ed3190610907444182aef0ec0c1 (diff) | |
download | tcl-7f5654d56b4edbe9be11cb5d6eb852d71e942faf.zip tcl-7f5654d56b4edbe9be11cb5d6eb852d71e942faf.tar.gz tcl-7f5654d56b4edbe9be11cb5d6eb852d71e942faf.tar.bz2 |
General [concat] compilation.
FossilOrigin-Name: 280e05bb113af775c12c59058d72b99634a7bee2
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r-- | generic/tclCompile.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 48a5456..280bf64 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -561,6 +561,11 @@ InstructionDesc const tclInstructionTable[] = { * pushes the resulting string. * Stack: ... string charset => ... trimmedString */ + {"concatStk", 5, INT_MIN, 1, {OPERAND_UINT4}}, + /* Wrapper round Tcl_ConcatObj(), used for [concat] and [eval]. opnd + * is number of values to concatenate. + * Operation: push concat(stk1 stk2 ... stktop) */ + {NULL, 0, 0, 0, {OPERAND_NONE}} }; @@ -4050,7 +4055,6 @@ TclEmitInvoke( int savedStackDepth = envPtr->currStackDepth; int savedExpandCount = envPtr->expandCount; JumpFixup nonTrapFixup; - ExceptionAux *exceptAux = envPtr->exceptAuxArrayPtr + loopRange; if (auxBreakPtr != NULL) { auxBreakPtr = envPtr->exceptAuxArrayPtr + breakRange; |