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/tclExecute.c | |
| parent | fdfd431637d67d40a0af98bfe92a2771a2852e94 (diff) | |
| download | tcl-ab8249dfc3c847de69ae379bb7849bdb7346db40.zip tcl-ab8249dfc3c847de69ae379bb7849bdb7346db40.tar.gz tcl-ab8249dfc3c847de69ae379bb7849bdb7346db40.tar.bz2 | |
General [concat] compilation.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index ab7a3f5..cb6afaf 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2712,6 +2712,17 @@ TEBCresume( NEXT_INST_V(2, opnd, 1); } + case INST_CONCAT_STK: + /* + * Pop the opnd (objc) top stack elements, run through Tcl_ConcatObj, + * and then decrement their ref counts. + */ + + opnd = TclGetUInt4AtPtr(pc+1); + objResultPtr = Tcl_ConcatObj(opnd, &OBJ_AT_DEPTH(opnd-1)); + TRACE_WITH_OBJ(("%u => ", opnd), objResultPtr); + NEXT_INST_V(5, opnd, 1); + case INST_EXPAND_START: /* * Push an element to the auxObjList. This records the current |