diff options
| author | ferrieux@users.sourceforge.net <ferrieux> | 2014-09-27 20:28:47 (GMT) |
|---|---|---|
| committer | ferrieux@users.sourceforge.net <ferrieux> | 2014-09-27 20:28:47 (GMT) |
| commit | 5f55e639be0620a51dc2496ee42f9bf6dc5f55f7 (patch) | |
| tree | 894a164f60db049455d487ab557fb6f2a02cc2ad | |
| parent | 2d826a696acf94c7c54e9649ea0a7ff1859b2f08 (diff) | |
| download | tcl-5f55e639be0620a51dc2496ee42f9bf6dc5f55f7.zip tcl-5f55e639be0620a51dc2496ee42f9bf6dc5f55f7.tar.gz tcl-5f55e639be0620a51dc2496ee42f9bf6dc5f55f7.tar.bz2 | |
Applied patch by Andreas Leitgeb so that [string cat]'s compiled bytecode optimally groups args by 255 for INSTR_STR_CONCAT1.
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index 2b83fd2..617a520 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -322,8 +322,8 @@ TclCompileStringCatCmd( CompileWord(envPtr, wordTokenPtr, interp, i); numArgs ++; if (numArgs >= 254) { /* 254 to take care of the possible +1 of "folded" above */ - TclEmitInstInt1(INST_STR_CONCAT1, 254, envPtr); - numArgs -= 253; /* concat pushes 1 obj, the result */ + TclEmitInstInt1(INST_STR_CONCAT1, numArgs, envPtr); + numArgs = 1; /* concat pushes 1 obj, the result */ } } wordTokenPtr = TokenAfter(wordTokenPtr); |