summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-03-05 20:39:40 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-03-05 20:39:40 (GMT)
commitf0662ef7a305f951d6d48a1b84c83b362cd7ae5e (patch)
treeba3befc2665799fc9afb837ac308246c16542e72
parentab33a4ecfb20efca1e7b473b51f7c76d231c8e8a (diff)
downloadtcl-f0662ef7a305f951d6d48a1b84c83b362cd7ae5e.zip
tcl-f0662ef7a305f951d6d48a1b84c83b362cd7ae5e.tar.gz
tcl-f0662ef7a305f951d6d48a1b84c83b362cd7ae5e.tar.bz2
eliminate the use of intptr_t
-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;
}