diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-07-09 14:47:22 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-07-09 14:47:22 (GMT) |
| commit | 7f10145e496d9a3b8973e2c9d92c606d504fa0f8 (patch) | |
| tree | bec2f1328062020174ec5cd3c37e89fc8865ece5 /generic/tclEnsemble.c | |
| parent | 3edb9b417542652525dc806aed8534d0b9b258a6 (diff) | |
| download | tcl-7f10145e496d9a3b8973e2c9d92c606d504fa0f8.zip tcl-7f10145e496d9a3b8973e2c9d92c606d504fa0f8.tar.gz tcl-7f10145e496d9a3b8973e2c9d92c606d504fa0f8.tar.bz2 | |
Permit large scripts > INT_MAX. Not complete because compiler source line tracking still limited.
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index c238141..deabfe2 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -3293,7 +3293,7 @@ TclAttemptCompileProc( Tcl_Size i; Tcl_Token *saveTokenPtr = parsePtr->tokenPtr; Tcl_Size savedStackDepth = envPtr->currStackDepth; - unsigned savedCodeNext = envPtr->codeNext - envPtr->codeStart; + Tcl_Size savedCodeNext = envPtr->codeNext - envPtr->codeStart; Tcl_Size savedAuxDataArrayNext = envPtr->auxDataArrayNext; Tcl_Size savedExceptArrayNext = envPtr->exceptArrayNext; #ifdef TCL_COMPILE_DEBUG @@ -3356,13 +3356,13 @@ TclAttemptCompileProc( ExceptionAux *auxPtr = envPtr->exceptAuxArrayPtr; for (i = 0; i < savedExceptArrayNext; i++) { - while ((int)auxPtr->numBreakTargets > 0 - && auxPtr->breakTargets[auxPtr->numBreakTargets - 1] + while (auxPtr->numBreakTargets > 0 + && (Tcl_Size) auxPtr->breakTargets[auxPtr->numBreakTargets - 1] >= savedCodeNext) { auxPtr->numBreakTargets--; } - while ((int)auxPtr->numContinueTargets > 0 - && auxPtr->continueTargets[auxPtr->numContinueTargets - 1] + while (auxPtr->numContinueTargets > 0 + && (Tcl_Size) auxPtr->continueTargets[auxPtr->numContinueTargets - 1] >= savedCodeNext) { auxPtr->numContinueTargets--; } |