diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-09-28 13:46:07 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-09-28 13:46:07 (GMT) |
| commit | f382ac98486d875787dc6b708fc22216a0246c48 (patch) | |
| tree | 7a8011640225ca882d24e02ebed95a70dbb5b3fb /generic/tclInt.h | |
| parent | 0f26317d580254d922cc16f4e5586bce2c2d0a31 (diff) | |
| download | tcl-f382ac98486d875787dc6b708fc22216a0246c48.zip tcl-f382ac98486d875787dc6b708fc22216a0246c48.tar.gz tcl-f382ac98486d875787dc6b708fc22216a0246c48.tar.bz2 | |
* generic/tclBasic.c: Fix the numLevels computations on
* generic/tclInt.h: coroutine yield/resume
* tests/unsupported.test:
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 0ed0192..cbb66b7 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.399 2008/09/18 16:14:51 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.400 2008/09/28 13:46:11 msofer Exp $ */ #ifndef _TCLINT @@ -1342,6 +1342,9 @@ typedef struct CoroutineData { CorContext running; CorContext base; int *stackLevel; + int auxNumLevels; /* While the coroutine is running the numLevels of the + * create/resume command is stored here; for suspended + * coroutines it holds the nesting numLevels at yield*/ } CoroutineData; typedef struct ExecEnv { |