diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2006-03-24 19:05:39 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2006-03-24 19:05:39 (GMT) |
| commit | 13e59924a4d6be2bb75a9d895b37265da19d67c5 (patch) | |
| tree | 5bf3676f041978a63dd61a1d08369678c4c84aa6 /generic/tclExecute.c | |
| parent | 27a8d21a8768fc56364cee33b3f3d1a7954248f6 (diff) | |
| download | tcl-13e59924a4d6be2bb75a9d895b37265da19d67c5.zip tcl-13e59924a4d6be2bb75a9d895b37265da19d67c5.tar.gz tcl-13e59924a4d6be2bb75a9d895b37265da19d67c5.tar.bz2 | |
add missing casts to int that were making VC6 complain
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 68078be..9b1f26e 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.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: tclExecute.c,v 1.230 2006/03/24 18:20:37 dgp Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.231 2006/03/24 19:05:40 kennykb Exp $ */ #include "tclInt.h" @@ -4576,14 +4576,14 @@ TclExecuteByteCode( switch (type2) { case TCL_NUMBER_LONG: { negativeExponent = (l2 < 0); - oddExponent = (l2 & 1); + oddExponent = (int) (l2 & 1); break; } #ifndef NO_WIDE_TYPE case TCL_NUMBER_WIDE: { Tcl_WideInt w2 = *((CONST Tcl_WideInt *)ptr2); negativeExponent = (w2 < 0); - oddExponent = (w2 & (Tcl_WideInt)1); + oddExponent = (int) (w2 & (Tcl_WideInt)1); break; } #endif |