diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-17 15:38:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-17 15:38:18 (GMT) |
| commit | 88a6952fc5f5a2a14afa15b21d6a7492a23ba2ea (patch) | |
| tree | b87e4f3ff33fa836f231803cfeb52717097e0e72 /generic/tclProc.c | |
| parent | 10367534a7313529151f25caee18fcab436b621f (diff) | |
| download | tcl-88a6952fc5f5a2a14afa15b21d6a7492a23ba2ea.zip tcl-88a6952fc5f5a2a14afa15b21d6a7492a23ba2ea.tar.gz tcl-88a6952fc5f5a2a14afa15b21d6a7492a23ba2ea.tar.bz2 | |
More
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 37821d2..7940cb1 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -490,10 +490,10 @@ TclCreateProc( } if (precompiled) { - if (numArgs > (size_t)procPtr->numArgs) { + if (numArgs > procPtr->numArgs) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "procedure \"%s\": arg list contains %" TCL_Z_MODIFIER "u entries, " - "precompiled header expects %d", procName, numArgs, + "precompiled header expects %" TCL_Z_MODIFIER "u", procName, numArgs, procPtr->numArgs)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "PROC", "BYTECODELIES", NULL); @@ -1946,7 +1946,7 @@ TclProcCompileProc( iPtr->compiledProcPtr = procPtr; - if (procPtr->numCompiledLocals > procPtr->numArgs) { + if ((int)procPtr->numCompiledLocals > (int)procPtr->numArgs) { CompiledLocal *clPtr = procPtr->firstLocalPtr; CompiledLocal *lastPtr = NULL; int i, numArgs = procPtr->numArgs; |