diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-08 20:56:28 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-08 20:56:28 (GMT) |
| commit | b475ec90cf97e4e17e2fda2954e1983c882ab339 (patch) | |
| tree | f0440b1ff94865fad5e6d9f65c92fec53d2f6615 /generic/tclInt.h | |
| parent | 5291a66f405cc624cacbafb313ad1a5c0e34e3a5 (diff) | |
| download | tcl-b475ec90cf97e4e17e2fda2954e1983c882ab339.zip tcl-b475ec90cf97e4e17e2fda2954e1983c882ab339.tar.gz tcl-b475ec90cf97e4e17e2fda2954e1983c882ab339.tar.bz2 | |
* generic/tclBasic.c: Partial nre-enabling of coroutines.
* generic/tclExecute.c: The initial call still requires its
* generic/tclInt.h: own instance of tebc, but on resume coros
can execute in the caller's tebc.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 6eb542e..91f301f 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.451 2009/12/08 01:34:05 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.452 2009/12/08 20:56:29 msofer Exp $ */ #ifndef _TCLINT @@ -1405,6 +1405,9 @@ typedef struct CoroutineData { * numLevels of the create/resume command is * stored here; for suspended coroutines it * holds the nesting numLevels at yield. */ + struct BottomData *callerBP;/* The caller's bottomPointer, if the coro is + * running in the caller's TEBC instance. NULL + * otherwise. */ } CoroutineData; typedef struct ExecEnv { |