Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Prefer CompileWord() over CompileTokens() when possible. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
4790b68c656881a2cc2d2eeba5282e9e |
| User & Date: | dgp 2013-07-15 17:07:51 |
Context
|
2013-07-18
| ||
| 15:05 | [Bug 1c17fbba5d] Fix -errorinfo from syntax errors so that the error is not obscured. Instead highl... check-in: 91ed4186a8 user: dgp tags: trunk | |
|
2013-07-17
| ||
| 16:02 | Start notifier thread again if we were forked, to solve Rivet bug 55153 - RFE [a0bc856dcd] check-in: 30ab3e0fb0 user: oehhar tags: rfe-notifier-fork | |
|
2013-07-15
| ||
| 19:40 | merge trunk check-in: 303b956143 user: dgp tags: dgp-tcs-rewrite | |
| 19:20 | merge trunk check-in: 369655f910 user: dgp tags: dgp-refactor | |
| 19:09 | Possible improvement in light of [86ceb4e2b6]. check-in: d97afc2a13 user: dgp tags: bug-86ceb4e2b6 | |
| 17:07 | Prefer CompileWord() over CompileTokens() when possible. check-in: 4790b68c65 user: dgp tags: trunk | |
|
2013-07-12
| ||
| 18:44 | Global replace: CompileBody() -> BODY(). check-in: 8338d07129 user: dgp tags: trunk | |
Changes
Changes to generic/tclCompCmds.c.
| ︙ | ︙ | |||
2634 2635 2636 2637 2638 2639 2640 |
*/
loopIndex = 0;
for (i = 0, tokenPtr = parsePtr->tokenPtr;
i < numWords-1;
i++, tokenPtr = TokenAfter(tokenPtr)) {
if ((i%2 == 0) && (i > 0)) {
| < | | 2634 2635 2636 2637 2638 2639 2640 2641 2642 2643 2644 2645 2646 2647 2648 |
*/
loopIndex = 0;
for (i = 0, tokenPtr = parsePtr->tokenPtr;
i < numWords-1;
i++, tokenPtr = TokenAfter(tokenPtr)) {
if ((i%2 == 0) && (i > 0)) {
CompileWord(envPtr, tokenPtr, interp, i);
tempVar = (firstValueTemp + loopIndex);
Emit14Inst( INST_STORE_SCALAR, tempVar, envPtr);
TclEmitOpcode( INST_POP, envPtr);
loopIndex++;
}
}
|
| ︙ | ︙ |
Changes to generic/tclCompCmdsGR.c.
| ︙ | ︙ | |||
695 696 697 698 699 700 701 | DefineLineInformation; /* TIP #280 */ /* * Compile the argument, then add the instruction to convert it into a * list of arguments. */ | < | | 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 |
DefineLineInformation; /* TIP #280 */
/*
* Compile the argument, then add the instruction to convert it into a
* list of arguments.
*/
CompileWord(envPtr, TokenAfter(parsePtr->tokenPtr), interp, 1);
TclEmitOpcode( INST_INFO_LEVEL_ARGS, envPtr);
}
return TCL_OK;
}
int
TclCompileInfoObjectClassCmd(
|
| ︙ | ︙ |
Changes to generic/tclCompCmdsSZ.c.
| ︙ | ︙ | |||
1278 1279 1280 1281 1282 1283 1284 |
* Check if we can generate a jump table, since if so that's faster than
* doing an explicit compare with each body. Note that we're definitely
* over-conservative with determining whether we can do the jump table,
* but it handles the most common case well enough.
*/
/* Both methods push the value to match against onto the stack. */
| < | | 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 |
* Check if we can generate a jump table, since if so that's faster than
* doing an explicit compare with each body. Note that we're definitely
* over-conservative with determining whether we can do the jump table,
* but it handles the most common case well enough.
*/
/* Both methods push the value to match against onto the stack. */
CompileWord(envPtr, valueTokenPtr, interp, valueIndex);
if (mode == Switch_Exact) {
IssueSwitchJumpTable(interp, envPtr, valueIndex, numWords, bodyToken,
bodyLines, bodyContLines);
} else {
IssueSwitchChainedTests(interp, envPtr, mode, noCase, valueIndex,
numWords, bodyToken, bodyLines, bodyContLines);
|
| ︙ | ︙ |