diff options
| author | das <das> | 2007-03-16 02:05:31 (GMT) |
|---|---|---|
| committer | das <das> | 2007-03-16 02:05:31 (GMT) |
| commit | 18c87bb1b4d7087f3abe15c1b7847a81f5ce2093 (patch) | |
| tree | 5a325a6ed85f7181b4c608c1b47ad1b80fca19f9 /generic/tclCompCmds.c | |
| parent | 8bdda3336b26381617a3da78b450ee0d3eeead8c (diff) | |
| download | tcl-18c87bb1b4d7087f3abe15c1b7847a81f5ce2093.zip tcl-18c87bb1b4d7087f3abe15c1b7847a81f5ce2093.tar.gz tcl-18c87bb1b4d7087f3abe15c1b7847a81f5ce2093.tar.bz2 | |
fix warnings
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 8ceb0b9..9e96eb3 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.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: tclCompCmds.c,v 1.102 2007/03/02 10:32:11 dkf Exp $ + * RCS: @(#) $Id: tclCompCmds.c,v 1.103 2007/03/16 02:05:31 das Exp $ */ #include "tclInt.h" @@ -4294,7 +4294,7 @@ PrintJumptableInfo( hPtr = Tcl_FirstHashEntry(&jtPtr->hashTable, &search); for (; hPtr ; hPtr = Tcl_NextHashEntry(&search)) { keyPtr = Tcl_GetHashKey(&jtPtr->hashTable, hPtr); - offset = (int) Tcl_GetHashValue(hPtr); + offset = PTR2INT(Tcl_GetHashValue(hPtr)); if (i++) { fprintf(stdout, ", "); |