diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-01 14:55:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-04-01 14:55:36 (GMT) |
| commit | 17d857c579bf54471a4edb05dadae166c476fe1b (patch) | |
| tree | 8dc15873842f8abd628679826cd4562267e5612a /unix | |
| parent | ce04b407d9ed313df659f9d292b91ca65f3e82c4 (diff) | |
| parent | 81999e05543a471cc0a666354120aa83c2bcc7f4 (diff) | |
| download | tcl-17d857c579bf54471a4edb05dadae166c476fe1b.zip tcl-17d857c579bf54471a4edb05dadae166c476fe1b.tar.gz tcl-17d857c579bf54471a4edb05dadae166c476fe1b.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'unix')
| -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; } |