diff options
Diffstat (limited to 'generic/tclThreadTest.c')
| -rw-r--r-- | generic/tclThreadTest.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c index 22b5995..9a17f30 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -120,7 +120,7 @@ static char *errorProcString; TCL_DECLARE_MUTEX(threadMutex) static int ThreadObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, + Tcl_Interp *interp, size_t objc, Tcl_Obj *const objv[]); static int ThreadCreate(Tcl_Interp *interp, const char *script, int joinable); @@ -209,7 +209,7 @@ static int ThreadObjCmd( ClientData dummy, /* Not used. */ Tcl_Interp *interp, /* Current interpreter. */ - int objc, /* Number of arguments. */ + size_t objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey); @@ -250,7 +250,8 @@ ThreadObjCmd( case THREAD_CANCEL: { long id; const char *result; - int flags, arg; + int flags; + size_t arg; if ((objc < 3) || (objc > 5)) { Tcl_WrongNumArgs(interp, 2, objv, "?-unwind? id ?result?"); @@ -277,7 +278,8 @@ ThreadObjCmd( } case THREAD_CREATE: { const char *script; - int joinable, len; + int joinable; + size_t len; if (objc == 2) { /* |