summaryrefslogtreecommitdiffstats
path: root/generic/tclCompile.c
diff options
context:
space:
mode:
authordas <das>2009-09-12 06:43:12 (GMT)
committerdas <das>2009-09-12 06:43:12 (GMT)
commit251f50f6236ef99b2bf52ce136bb8d31798d86d6 (patch)
tree49d74bc555331413c8f327ea731f9d93cc39fbc2 /generic/tclCompile.c
parentc30ce8dcf495febef9d5111ae53ac2a614e593c1 (diff)
downloadtcl-251f50f6236ef99b2bf52ce136bb8d31798d86d6.zip
tcl-251f50f6236ef99b2bf52ce136bb8d31798d86d6.tar.gz
tcl-251f50f6236ef99b2bf52ce136bb8d31798d86d6.tar.bz2
fix warning
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r--generic/tclCompile.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 3fa57db..9fa8f6a 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCompile.c,v 1.174 2009/09/11 20:13:27 dgp Exp $
+ * RCS: @(#) $Id: tclCompile.c,v 1.175 2009/09/12 06:43:12 das Exp $
*/
#include "tclInt.h"
@@ -940,7 +940,7 @@ CompileSubstObj(
Namespace *nsPtr = iPtr->varFramePtr->nsPtr;
codePtr = (ByteCode *) objPtr->internalRep.ptrAndLongRep.ptr;
- if (flags != objPtr->internalRep.ptrAndLongRep.value
+ if ((unsigned long)flags != objPtr->internalRep.ptrAndLongRep.value
|| ((Interp *) *codePtr->interpHandle != iPtr)
|| (codePtr->compileEpoch != iPtr->compileEpoch)
|| (codePtr->nsPtr != nsPtr)