diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-11 04:47:13 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-11 04:47:13 (GMT) |
| commit | 11915ee6b5791aab49447d524ef382336aeec38d (patch) | |
| tree | 1f2bf344ff2311df7b4bd5a3874f1661c27cbc81 /generic/tclInt.h | |
| parent | e225192e11ee22d35470bef993063ace4970231b (diff) | |
| download | tcl-11915ee6b5791aab49447d524ef382336aeec38d.zip tcl-11915ee6b5791aab49447d524ef382336aeec38d.tar.gz tcl-11915ee6b5791aab49447d524ef382336aeec38d.tar.bz2 | |
simplify the coroutine BP-chain monkey-patching; tclBasic does not need to
know about bottomPtr, tebc does not need to behave differently on exit for coros
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 91f301f..bf13446 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.452 2009/12/08 20:56:29 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.453 2009/12/11 04:47:13 msofer Exp $ */ #ifndef _TCLINT @@ -1405,9 +1405,10 @@ 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. */ + struct BottomData **callerBPPtr; + /* Where to stash the caller's bottomPointer, + * if the coro is running in the caller's TEBC + * instance. Put a NULL in there otherwise. */ } CoroutineData; typedef struct ExecEnv { |