Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Stop checking stack depth in [catch] compiler. Stack depth is checked in compiles of *all* Tcl commands/scripts/bodies in debug builds already. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
d9951d453c8cc56ca1ad9b364039344b |
| User & Date: | dgp 2013-07-23 18:01:36 |
Context
|
2013-07-23
| ||
| 18:03 | Remove outdated comment. Stack depths are well checked now. check-in: 872bbb0773 user: dgp tags: trunk | |
| 18:01 | Stop checking stack depth in [catch] compiler. Stack depth is checked in compiles of *all* Tcl comma... check-in: d9951d453c user: dgp tags: trunk | |
| 09:27 | Add "testfork" test command. Not used in any test-case yet check-in: 48ebb48d02 user: jan.nijtmans tags: trunk | |
Changes
Changes to generic/tclCompCmds.c.
| ︙ | ︙ | |||
540 541 542 543 544 545 546 |
Command *cmdPtr, /* Points to defintion of command being
* compiled. */
CompileEnv *envPtr) /* Holds resulting instructions. */
{
JumpFixup jumpFixup;
Tcl_Token *cmdTokenPtr, *resultNameTokenPtr, *optsNameTokenPtr;
int resultIndex, optsIndex, range;
| < | 540 541 542 543 544 545 546 547 548 549 550 551 552 553 |
Command *cmdPtr, /* Points to defintion of command being
* compiled. */
CompileEnv *envPtr) /* Holds resulting instructions. */
{
JumpFixup jumpFixup;
Tcl_Token *cmdTokenPtr, *resultNameTokenPtr, *optsNameTokenPtr;
int resultIndex, optsIndex, range;
DefineLineInformation; /* TIP #280 */
/*
* If syntax does not match what we expect for [catch], do not compile.
* Let runtime checks determine if syntax has changed.
*/
|
| ︙ | ︙ | |||
738 739 740 741 742 743 744 |
*/
if (cmdTokenPtr->type != TCL_TOKEN_SIMPLE_WORD) {
TclEmitInstInt4( INST_REVERSE, 2, envPtr);
TclEmitOpcode( INST_POP, envPtr);
}
| < < < < < < < < < | 737 738 739 740 741 742 743 744 745 746 747 748 749 750 |
*/
if (cmdTokenPtr->type != TCL_TOKEN_SIMPLE_WORD) {
TclEmitInstInt4( INST_REVERSE, 2, envPtr);
TclEmitOpcode( INST_POP, envPtr);
}
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
* TclCompileContinueCmd --
|
| ︙ | ︙ |