diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-07-28 15:51:02 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-07-28 15:51:02 (GMT) |
| commit | ae7471ec7ee7c03de40fa1c899e56e31ddf7323f (patch) | |
| tree | 90b52c22774d7435c31a6ad310a97132fed77036 /generic/tclEnsemble.c | |
| parent | 861b69164d829d247b7d86a50ebf1821ef441118 (diff) | |
| parent | e253c3eed9122505c8c33fa337ccab63a75675c2 (diff) | |
| download | tcl-ae7471ec7ee7c03de40fa1c899e56e31ddf7323f.zip tcl-ae7471ec7ee7c03de40fa1c899e56e31ddf7323f.tar.gz tcl-ae7471ec7ee7c03de40fa1c899e56e31ddf7323f.tar.bz2 | |
A bunch of 64 bit fixes (int->Tcl_Size) and the like.
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--; } |