diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-26 08:25:02 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-26 08:25:02 (GMT) |
| commit | ab8249dfc3c847de69ae379bb7849bdb7346db40 (patch) | |
| tree | 2c6d109993ecaaac663957806936a709f271c448 /generic/tclCompile.c | |
| parent | fdfd431637d67d40a0af98bfe92a2771a2852e94 (diff) | |
| download | tcl-ab8249dfc3c847de69ae379bb7849bdb7346db40.zip tcl-ab8249dfc3c847de69ae379bb7849bdb7346db40.tar.gz tcl-ab8249dfc3c847de69ae379bb7849bdb7346db40.tar.bz2 | |
General [concat] compilation.
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; |