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/tclInterp.c | |
| 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/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index adf113d..2e57ff5 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -3016,7 +3016,7 @@ ChildRecursionLimit( } Tcl_SetRecursionLimit(childInterp, limit); iPtr = (Interp *) childInterp; - if (interp == childInterp && iPtr->numLevels > limit) { + if (interp == childInterp && iPtr->numLevels > (size_t)limit) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "falling back due to new recursion limit", -1)); Tcl_SetErrorCode(interp, "TCL", "RECURSION", NULL); |