Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | * generic/tclBasic.c: fix for [Bug 2440625], kbk's patch |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
7cbeec20a47e0dfcc2ac7db33e203286 |
| User & Date: | mig 2011-04-12 17:34:29 |
Context
|
2011-04-12
| ||
| 19:18 | Update to Olson tzdata2011f check-in: 3d162e8ce6 user: venkat tags: trunk | |
| 17:34 | * generic/tclBasic.c: fix for [Bug 2440625], kbk's patch check-in: 7cbeec20a4 user: mig tags: trunk | |
| 14:21 | minor nits, taken over from TEA (tclconfig) check-in: 941b13875b user: jan.nijtmans tags: trunk | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2011-04-11 Miguel Sofer <[email protected]> * generic/tclBasic.c: * tests/coroutine.test: insure that 'coroutine eval' runs the initial command in the proper context, [Bug 3282869] 2011-04-11 Jan Nijtmans <[email protected]> | > > > > | 1 2 3 4 5 6 7 8 9 10 11 | 2011-04-12 Miguel Sofer <[email protected]> * generic/tclBasic.c: fix for [Bug 2440625], kbk's patch 2011-04-11 Miguel Sofer <[email protected]> * generic/tclBasic.c: * tests/coroutine.test: insure that 'coroutine eval' runs the initial command in the proper context, [Bug 3282869] 2011-04-11 Jan Nijtmans <[email protected]> |
| ︙ | ︙ |
Changes to generic/tclBasic.c.
| ︙ | ︙ | |||
4261 4262 4263 4264 4265 4266 4267 |
cmdPtr->refCount++;
/*
* Find the objProc to call: nreProc if available, objProc otherwise. Push
* a callback to do the actual running.
*/
| < < < < < < < < < < < < < | | < | 4261 4262 4263 4264 4265 4266 4267 4268 4269 4270 4271 4272 4273 4274 4275 4276 4277 4278 4279 4280 4281 |
cmdPtr->refCount++;
/*
* Find the objProc to call: nreProc if available, objProc otherwise. Push
* a callback to do the actual running.
*/
if (cmdPtr->nreProc) {
TclNRAddCallback(interp, NRRunObjProc, cmdPtr,
INT2PTR(objc), (ClientData) objv, NULL);
return TCL_OK;
} else {
return cmdPtr->objProc(cmdPtr->objClientData, interp, objc, objv);
}
}
void
TclPushTailcallPoint(
Tcl_Interp *interp)
{
TclNRAddCallback(interp, NRCommand, NULL, NULL, NULL, NULL);
|
| ︙ | ︙ | |||
4369 4370 4371 4372 4373 4374 4375 |
NRRunObjProc(
ClientData data[],
Tcl_Interp *interp,
int result)
{
/* OPT: do not call? */
| < | | | < | < < | 4355 4356 4357 4358 4359 4360 4361 4362 4363 4364 4365 4366 4367 4368 4369 4370 4371 4372 4373 |
NRRunObjProc(
ClientData data[],
Tcl_Interp *interp,
int result)
{
/* OPT: do not call? */
Command* cmdPtr = data[0];
int objc = PTR2INT(data[1]);
Tcl_Obj **objv = data[2];
return cmdPtr->nreProc(cmdPtr->objClientData, interp, objc, objv);
}
/*
*----------------------------------------------------------------------
*
* TEOV_Exception -
|
| ︙ | ︙ |