summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclTest.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index cb0faad..c08f281 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -5349,7 +5349,7 @@ TestmainthreadCmd(
const char **argv) /* Argument strings. */
{
if (argc == 1) {
- Tcl_Obj *idObj = Tcl_NewLongObj((long)(intptr_t)Tcl_GetCurrentThread());
+ Tcl_Obj *idObj = Tcl_NewLongObj((long)(size_t)Tcl_GetCurrentThread());
Tcl_SetObjResult(interp, idObj);
return TCL_OK;
} else {
@@ -6048,7 +6048,7 @@ TestChannelCmd(
return TCL_ERROR;
}
- TclFormatInt(buf, (long)(intptr_t)Tcl_GetChannelThread(chan));
+ TclFormatInt(buf, (long)(size_t)Tcl_GetChannelThread(chan));
Tcl_AppendResult(interp, buf, NULL);
return TCL_OK;
}