diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-02-22 18:57:20 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-02-22 18:57:20 (GMT) |
| commit | 455b61dce391118995a7762609a6f42035cf43a4 (patch) | |
| tree | 5b325e448ca007110a130839618488fd73a6aebc /generic/tclThreadTest.c | |
| parent | dda81853f3711f64164099578a14632f549f086a (diff) | |
| download | tcl-455b61dce391118995a7762609a6f42035cf43a4.zip tcl-455b61dce391118995a7762609a6f42035cf43a4.tar.gz tcl-455b61dce391118995a7762609a6f42035cf43a4.tar.bz2 | |
[89dfecb6b7] Make thread IDs in testing commands consistent.
Diffstat (limited to 'generic/tclThreadTest.c')
| -rw-r--r-- | generic/tclThreadTest.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c index fcf3880..6fc0e52 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -248,7 +248,7 @@ ThreadObjCmd( switch ((enum options)option) { case THREAD_CANCEL: { - long id; + Tcl_WideInt id; const char *result; int flags, arg; @@ -264,7 +264,7 @@ ThreadObjCmd( arg++; } } - if (Tcl_GetLongFromObj(interp, objv[arg], &id) != TCL_OK) { + if (Tcl_GetWideIntFromObj(interp, objv[arg], &id) != TCL_OK) { return TCL_ERROR; } arg++; |