Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | * generic/tclBasic.c: add missing INT2PTR |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
08e5d582901033133870965b34fa9634 |
| User & Date: | mig 2011-07-07 18:57:46 |
Context
|
2011-07-08
| ||
| 12:35 | [FRQ 3358415]: Minor doc improvement check-in: 15623d9fe5 user: dkf tags: trunk | |
|
2011-07-07
| ||
| 18:57 | * generic/tclBasic.c: add missing INT2PTR check-in: 08e5d58290 user: mig tags: trunk | |
| 17:41 | Correct test suite errors revealed by a -singleproc 1 -debug 1 run. check-in: c5adaf006a user: dgp tags: trunk | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2011-07-03 Donal K. Fellows <[email protected]> * doc/FileSystem.3: Corrected statements about ctime field of 'struct stat'; that was always the time of the last metadata change, not the time of creation. 2011-07-02 Kevin B. Kenny <[email protected]> | > > > > | 1 2 3 4 5 6 7 8 9 10 11 | 2011-07-07 Miguel Sofer <[email protected]> * generic/tclBasic.c: add missing INT2PTR 2011-07-03 Donal K. Fellows <[email protected]> * doc/FileSystem.3: Corrected statements about ctime field of 'struct stat'; that was always the time of the last metadata change, not the time of creation. 2011-07-02 Kevin B. Kenny <[email protected]> |
| ︙ | ︙ |
Changes to generic/tclBasic.c.
| ︙ | ︙ | |||
4135 4136 4137 4138 4139 4140 4141 |
*
* data[1] stores a marker for use by tailcalls; it will be set to 1 by
* command redirectors (imports, alias, ensembles) so that tailcalls
* finishes the source command and not just the target.
*/
if (iPtr->evalFlags & TCL_EVAL_REDIRECT) {
| | | 4135 4136 4137 4138 4139 4140 4141 4142 4143 4144 4145 4146 4147 4148 4149 |
*
* data[1] stores a marker for use by tailcalls; it will be set to 1 by
* command redirectors (imports, alias, ensembles) so that tailcalls
* finishes the source command and not just the target.
*/
if (iPtr->evalFlags & TCL_EVAL_REDIRECT) {
TclNRAddCallback(interp, NRCommand, NULL, INT2PTR(1), INT2PTR(objc), objv);
iPtr->evalFlags &= ~TCL_EVAL_REDIRECT;
} else {
TclNRAddCallback(interp, NRCommand, NULL, NULL, INT2PTR(objc), objv);
}
cmdPtrPtr = (Command **) &(TOP_CB(interp)->data[0]);
TclNRSpliceDeferred(interp);
|
| ︙ | ︙ |