diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2010-04-25 13:39:24 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2010-04-25 13:39:24 (GMT) |
| commit | 645ae6e948ae08dfa895b2c01c79119733011da6 (patch) | |
| tree | 13e6375482e74c54296a8a89ead998754e0755f7 /generic/tclInt.h | |
| parent | eac8ecf3bb3d3d4cc99c78f12abf28cf9e408174 (diff) | |
| download | tcl-645ae6e948ae08dfa895b2c01c79119733011da6.zip tcl-645ae6e948ae08dfa895b2c01c79119733011da6.tar.gz tcl-645ae6e948ae08dfa895b2c01c79119733011da6.tar.bz2 | |
* generic/tclBasic.c: add unsupported [yieldm] command.
* generic/tclInt.h:
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 28b0e3c..965f69b 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -15,7 +15,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.470 2010/04/24 17:07:32 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.471 2010/04/25 13:39:25 msofer Exp $ */ #ifndef _TCLINT @@ -1494,6 +1494,9 @@ typedef struct CoroutineData { /* Where to stash the caller's bottomPointer, * if the coro is running in the caller's TEBC * instance. Put a NULL in there otherwise. */ + int nargs; /* Number of args required for resuming this + * coroutine; -2 means "0 or 1" (default), -1 + * means "any" */ } CoroutineData; typedef struct ExecEnv { @@ -2751,6 +2754,7 @@ MODULE_SCOPE Tcl_NRPostProc TclNRForIterCallback; MODULE_SCOPE Tcl_ObjCmdProc TclNRTailcallObjCmd; MODULE_SCOPE Tcl_ObjCmdProc TclNRCoroutineObjCmd; MODULE_SCOPE Tcl_ObjCmdProc TclNRYieldObjCmd; +MODULE_SCOPE Tcl_ObjCmdProc TclNRYieldmObjCmd; MODULE_SCOPE Tcl_ObjCmdProc TclNRYieldToObjCmd; MODULE_SCOPE void TclClearTailcall(Tcl_Interp *interp, |