diff options
author | nijtmans <nijtmans@noemail.net> | 2010-12-01 09:58:50 (GMT) |
---|---|---|
committer | nijtmans <nijtmans@noemail.net> | 2010-12-01 09:58:50 (GMT) |
commit | c9393d670c981b8027167413571b79be61af36f9 (patch) | |
tree | ff3e45f716f97fd6829df5f3c3f6ff70710f2771 /generic/tclTest.c | |
parent | e19d4ce2351f6b972a2005a2b4b0dd422bdf337d (diff) | |
download | tcl-c9393d670c981b8027167413571b79be61af36f9.zip tcl-c9393d670c981b8027167413571b79be61af36f9.tar.gz tcl-c9393d670c981b8027167413571b79be61af36f9.tar.bz2 |
fix gcc 64-bit warnings: cast from pointer to integer of different size
fix gcc(-4.5.2) warning: 'static' is not at beginning of declaration
FossilOrigin-Name: 10b83db14ed5883178f726096ac9c95ecf489e73
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r-- | generic/tclTest.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 80dbbae..81ba0fb 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTest.c,v 1.155 2010/11/28 23:20:11 kennykb Exp $ + * RCS: @(#) $Id: tclTest.c,v 1.156 2010/12/01 09:58:52 nijtmans Exp $ */ #include <math.h> @@ -5157,7 +5157,7 @@ TestmainthreadCmd( const char **argv) /* Argument strings. */ { if (argc == 1) { - Tcl_Obj *idObj = Tcl_NewLongObj((long) Tcl_GetCurrentThread()); + Tcl_Obj *idObj = Tcl_NewLongObj((long)(size_t)Tcl_GetCurrentThread()); Tcl_SetObjResult(interp, idObj); return TCL_OK; @@ -5554,7 +5554,7 @@ TestChannelCmd( return TCL_ERROR; } - TclFormatInt(buf, (long) Tcl_GetChannelThread(chan)); + TclFormatInt(buf, (size_t) Tcl_GetChannelThread(chan)); Tcl_AppendResult(interp, buf, NULL); return TCL_OK; } |