summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCompCmds.c4
-rw-r--r--generic/tclIOUtil.c4
2 files changed, 5 insertions, 3 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, ", ");
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index d4b0667..b275b77 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -17,7 +17,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclIOUtil.c,v 1.141 2007/03/16 00:57:36 mdejong Exp $
+ * RCS: @(#) $Id: tclIOUtil.c,v 1.142 2007/03/16 02:05:31 das Exp $
*/
#include "tclInt.h"
@@ -68,10 +68,12 @@ Tcl_Stat(
Tcl_StatBuf buf;
Tcl_Obj *pathPtr = Tcl_NewStringObj(path,-1);
+#ifndef TCL_WIDE_INT_IS_LONG
Tcl_WideInt tmp1, tmp2;
#ifdef HAVE_ST_BLOCKS
Tcl_WideInt tmp3;
#endif
+#endif
Tcl_IncrRefCount(pathPtr);
ret = Tcl_FSStat(pathPtr, &buf);