diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-19 06:41:29 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-11-19 06:41:29 (GMT) |
| commit | 71278eb3df368e9f023779a15d9cd385498edd02 (patch) | |
| tree | 326003535806901c379ac6e3a649c7aae8aa3609 /generic/tclThreadTest.c | |
| parent | 7180e9e198d74939f4d9ce4d61845fb89c7e4e80 (diff) | |
| download | tcl-71278eb3df368e9f023779a15d9cd385498edd02.zip tcl-71278eb3df368e9f023779a15d9cd385498edd02.tar.gz tcl-71278eb3df368e9f023779a15d9cd385498edd02.tar.bz2 | |
now a clean compile on OSX in non-debug mode
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) { /* |