diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-05-13 14:23:45 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-05-13 14:23:45 (GMT) |
| commit | d1756f468478c8b9e0b652ada83fcef2bd8082c0 (patch) | |
| tree | af5bcb4fd4d5caa3b86472a63dd3cbbb62413314 | |
| parent | 9116440cfe8bf52e4ef8174ab27f688247156c00 (diff) | |
| download | tcl-d1756f468478c8b9e0b652ada83fcef2bd8082c0.zip tcl-d1756f468478c8b9e0b652ada83fcef2bd8082c0.tar.gz tcl-d1756f468478c8b9e0b652ada83fcef2bd8082c0.tar.bz2 | |
compiler warning
| -rw-r--r-- | generic/tclCompile.c | 2 |
1 files changed, 1 insertions, 1 deletions
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; |