diff options
| author | mig <mig> | 2013-08-23 18:30:22 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-08-23 18:30:22 (GMT) |
| commit | fb09b8a4da76d95a207b8229bdda56fad3c9c01e (patch) | |
| tree | 301c1e4cea083599e34cff4f40e141e9d63b7ae7 /generic/tclInt.h | |
| parent | 0ae283a82593a1994e6ed6e5c7577603fa7f72bb (diff) | |
| download | tcl-mig_stacklevels.zip tcl-mig_stacklevels.tar.gz tcl-mig_stacklevels.tar.bz2 | |
stop looking at the C-stack depthmig_stacklevels
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 6056119..1c1e600 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -1438,7 +1438,7 @@ typedef struct CoroutineData { CorContext caller; CorContext running; Tcl_HashTable *lineLABCPtr; /* See Interp.lineLABCPtr */ - void *stackLevel; + int stackLevel; int auxNumLevels; /* While the coroutine is running the * numLevels of the create/resume command is * stored here; for suspended coroutines it @@ -1456,11 +1456,12 @@ typedef struct ExecEnv { struct NRE_callback *callbackPtr; /* Top callback in NRE's stack. */ struct CoroutineData *corPtr; + int stackLevel; int rewind; } ExecEnv; #define COR_IS_SUSPENDED(corPtr) \ - ((corPtr)->stackLevel == NULL) + ((corPtr)->stackLevel == -1) /* * The definitions for the LiteralTable and LiteralEntry structures. Each |