Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | improved tidy-up from branch |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b946fae2c69a3d4945a29e52f415200c |
| User & Date: | dkf 2014-01-22 19:33:03 |
Context
|
2014-01-24
| ||
| 21:52 | In WriteChars(), eliminate the copy step through a staging buffer when it is not required for channe... check-in: d76ed8a13f user: dgp tags: trunk | |
|
2014-01-23
| ||
| 23:12 | merge trunk check-in: ddec41f466 user: jan.nijtmans tags: novem | |
| 13:15 | merge trunk check-in: e5eacae891 user: dgp tags: dgp-refactor | |
|
2014-01-22
| ||
| 19:33 | improved tidy-up from branch check-in: b946fae2c6 user: dkf tags: trunk | |
| 13:48 | remove unused variable check-in: 8cf8f4d2dc user: jan.nijtmans tags: trunk | |
| 09:14 | minor tidying up check-in: 039b02fa79 user: dkf tags: dkf-bytecode-8.6-main | |
Changes
Changes to generic/tclBasic.c.
| ︙ | ︙ | |||
8412 8413 8414 8415 8416 8417 8418 |
ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *const objv[])
{
CoroutineData *corPtr = iPtr->execEnvPtr->corPtr;
Tcl_Obj *listPtr, *nsObjPtr;
| | | | 8412 8413 8414 8415 8416 8417 8418 8419 8420 8421 8422 8423 8424 8425 8426 8427 8428 8429 8430 8431 8432 8433 8434 8435 8436 8437 8438 8439 8440 |
ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj *const objv[])
{
CoroutineData *corPtr = iPtr->execEnvPtr->corPtr;
Tcl_Obj *listPtr, *nsObjPtr;
Tcl_Namespace *nsPtr = TclGetCurrentNamespace(interp);
if (objc < 2) {
Tcl_WrongNumArgs(interp, 1, objv, "command ?arg ...?");
return TCL_ERROR;
}
if (!corPtr) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"yieldto can only be called in a coroutine", -1));
Tcl_SetErrorCode(interp, "TCL", "COROUTINE", "ILLEGAL_YIELD", NULL);
return TCL_ERROR;
}
if (((Namespace *) nsPtr)->flags & NS_DYING) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"yieldto called in deleted namespace", -1));
Tcl_SetErrorCode(interp, "TCL", "COROUTINE", "YIELDTO_IN_DELETED",
NULL);
return TCL_ERROR;
}
|
| ︙ | ︙ |