diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-30 14:46:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-30 14:46:09 (GMT) |
| commit | af3676b8c8c9492af51242b319894eb695af86bb (patch) | |
| tree | b770c6f9156587377be3b781850ea30a4f1033dd /generic/tclEnsemble.c | |
| parent | 8a23a5f5bb65104df5038a6365fb7647d8d5ca17 (diff) | |
| download | tcl-af3676b8c8c9492af51242b319894eb695af86bb.zip tcl-af3676b8c8c9492af51242b319894eb695af86bb.tar.gz tcl-af3676b8c8c9492af51242b319894eb695af86bb.tar.bz2 | |
More progress
Diffstat (limited to 'generic/tclEnsemble.c')
| -rw-r--r-- | generic/tclEnsemble.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 5fdf7f4..de9ec61 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -3242,21 +3242,21 @@ int TclAttemptCompileProc( Tcl_Interp *interp, Tcl_Parse *parsePtr, - size_t depth1, + size_t depth, Command *cmdPtr, CompileEnv *envPtr) /* Holds resulting instructions. */ { DefineLineInformation; - int result, i; + int result; + size_t i; Tcl_Token *saveTokenPtr = parsePtr->tokenPtr; int savedStackDepth = envPtr->currStackDepth; unsigned savedCodeNext = envPtr->codeNext - envPtr->codeStart; int savedAuxDataArrayNext = envPtr->auxDataArrayNext; - int savedExceptArrayNext = envPtr->exceptArrayNext; + size_t savedExceptArrayNext = envPtr->exceptArrayNext; #ifdef TCL_COMPILE_DEBUG int savedExceptDepth = envPtr->exceptDepth; #endif - int depth = depth1; if (cmdPtr->compileProc == NULL) { return TCL_ERROR; |