Subject: compiler warning

From: dgp <[email-masked]>
Date: Mon, 13 May 2013 14:23:45 +0000

---
 generic/tclCompile.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 7f6b7d4..0844a78 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -1134,7 +1134,7 @@ PeepholeOptimize(
 	    hPtr = Tcl_FirstHashEntry(
 		    &JUMPTABLEINFO(envPtr, pc+1)->hashTable, &hSearch);
 	    for (; hPtr ; hPtr = Tcl_NextHashEntry(&hSearch)) {
-		target = pc + (int) Tcl_GetHashValue(hPtr);
+		target = pc + PTR2INT(Tcl_GetHashValue(hPtr));
 		(void) Tcl_CreateHashEntry(&targets, (void *) target, &isNew);
 	    }
 	    break;
-- 
cgit v0.12