From e4eba0a390e850e2150592a73bc88f1ee408bf99 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Fri, 10 Oct 2008 04:02:00 +0000
Subject: fix warning

---
 generic/tclIndexObj.c | 4 ++--
 1 file 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) {
-- 
cgit v0.12