summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordas <das>2008-10-10 04:02:00 (GMT)
committerdas <das>2008-10-10 04:02:00 (GMT)
commite4eba0a390e850e2150592a73bc88f1ee408bf99 (patch)
tree9a95d90157710afcf6ba6a7d8d644aa49cb152d2 /generic
parent4ff44a77ace5e7a16b6a1313039cfa71a82d02f9 (diff)
downloadtcl-e4eba0a390e850e2150592a73bc88f1ee408bf99.zip
tcl-e4eba0a390e850e2150592a73bc88f1ee408bf99.tar.gz
tcl-e4eba0a390e850e2150592a73bc88f1ee408bf99.tar.bz2
fix warning
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIndexObj.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c
index 1ca2d3e..bb9078b 100644
--- a/generic/tclIndexObj.c
+++ b/generic/tclIndexObj.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIndexObj.c,v 1.44 2008/10/05 19:22:22 dkf Exp $
+ * RCS: @(#) $Id: tclIndexObj.c,v 1.45 2008/10/10 04:02:00 das Exp $
*/
#include "tclInt.h"
@@ -1186,7 +1186,7 @@ Tcl_ParseArgsObjv(
infoPtr = matchPtr;
switch (infoPtr->type) {
case TCL_ARGV_CONSTANT:
- *((int *) infoPtr->dstPtr) = (int) infoPtr->srcPtr;
+ *((int *) infoPtr->dstPtr) = PTR2INT(infoPtr->srcPtr);
break;
case TCL_ARGV_INT:
if (objc == 0) {