From d1756f468478c8b9e0b652ada83fcef2bd8082c0 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 13 May 2013 14:23:45 +0000
Subject: compiler warning

---
 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