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 | 063786234ceebc2bce8266d802b513c1ef522421 (patch) | |
| tree | af5bcb4fd4d5caa3b86472a63dd3cbbb62413314 | |
| parent | bbf367269468661c041be9ee3356bf63f868a8e3 (diff) | |
| download | tcl-063786234ceebc2bce8266d802b513c1ef522421.zip tcl-063786234ceebc2bce8266d802b513c1ef522421.tar.gz tcl-063786234ceebc2bce8266d802b513c1ef522421.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; |