diff options
| -rw-r--r-- | unix/dltest/pkgt.c | 4 | ||||
| -rw-r--r-- | unix/dltest/pkgua.c | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/unix/dltest/pkgt.c b/unix/dltest/pkgt.c index 77c2915..e8047db 100644 --- a/unix/dltest/pkgt.c +++ b/unix/dltest/pkgt.c @@ -16,11 +16,11 @@ static int TraceProc2 ( void *clientData, Tcl_Interp *interp, - size_t level, + size_t level, const char *command, Tcl_Command commandInfo, size_t objc, - struct Tcl_Obj *const *objv) + struct Tcl_Obj *const *objv) { (void)clientData; (void)interp; diff --git a/unix/dltest/pkgua.c b/unix/dltest/pkgua.c index b14fca8..8d62d99 100644 --- a/unix/dltest/pkgua.c +++ b/unix/dltest/pkgua.c @@ -138,7 +138,7 @@ PkguaEqObjCmd( str1 = Tcl_GetStringFromObj(objv[1], &len1); str2 = Tcl_GetStringFromObj(objv[2], &len2); if (len1 == len2) { - result = (Tcl_UtfNcmp(str1, str2, len1) == 0); + result = (Tcl_UtfNcmp(str1, str2, (size_t)len1) == 0); } else { result = 0; } |