diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-10 15:02:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-10 15:02:24 (GMT) |
| commit | 0b39585b19e94e663d35f0618c748abfb37de5cd (patch) | |
| tree | a80c320541298c393521f3f88ba7605a004ac050 /generic/tclInt.h | |
| parent | 643fbd40d93f1432a5465323319edaa756f309f8 (diff) | |
| download | tcl-0b39585b19e94e663d35f0618c748abfb37de5cd.zip tcl-0b39585b19e94e663d35f0618c748abfb37de5cd.tar.gz tcl-0b39585b19e94e663d35f0618c748abfb37de5cd.tar.bz2 | |
Enhance internal "struct Interp" such that it can handle more than 2^31 levels
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index bdf7990..b7f35ca 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -1848,12 +1848,12 @@ typedef struct Interp { * tclVar.c for usage. */ - int numLevels; /* Keeps track of how many nested calls to + size_t numLevels; /* Keeps track of how many nested calls to * Tcl_Eval are in progress for this * interpreter. It's used to delay deletion of * the table until all Tcl_Eval invocations * are completed. */ - int maxNestingDepth; /* If numLevels exceeds this value then Tcl + size_t maxNestingDepth; /* If numLevels exceeds this value then Tcl * assumes that infinite recursion has * occurred and it generates an error. */ CallFrame *framePtr; /* Points to top-most in stack of all nested |