diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-12-27 22:39:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-12-27 22:39:00 (GMT) |
| commit | 524f229cceff8a756ebab2f34ed961c2741bb4ca (patch) | |
| tree | e15f10278f87c4f12a9d36a79e8cf9a38b0cde19 /generic/tclProc.c | |
| parent | 08a4d8c8913d7486b0cb1c906a9ad71d70b40ad8 (diff) | |
| parent | 4c97b25f81b1f2cbabe7f084e86e539bcbdbc21a (diff) | |
| download | tcl-524f229cceff8a756ebab2f34ed961c2741bb4ca.zip tcl-524f229cceff8a756ebab2f34ed961c2741bb4ca.tar.gz tcl-524f229cceff8a756ebab2f34ed961c2741bb4ca.tar.bz2 | |
Merge 8.7
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 daf8284..01c7611 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -496,8 +496,8 @@ TclCreateProc( if (precompiled) { if (numArgs > procPtr->numArgs) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "procedure \"%s\": arg list contains %" TCL_SIZE_MODIFIER "u entries, " - "precompiled header expects %" TCL_SIZE_MODIFIER "u", procName, numArgs, + "procedure \"%s\": arg list contains %" TCL_SIZE_MODIFIER "d entries, " + "precompiled header expects %" TCL_SIZE_MODIFIER "d", procName, numArgs, procPtr->numArgs)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "PROC", "BYTECODELIES", (void *)NULL); @@ -591,7 +591,7 @@ TclCreateProc( || (localPtr->defValuePtr == NULL && fieldCount == 2) || (localPtr->defValuePtr != NULL && fieldCount != 2)) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( - "procedure \"%s\": formal parameter %" TCL_SIZE_MODIFIER "u is " + "procedure \"%s\": formal parameter %" TCL_SIZE_MODIFIER "d is " "inconsistent with precompiled body", procName, i)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "PROC", "BYTECODELIES", (void *)NULL); |