From 13e59924a4d6be2bb75a9d895b37265da19d67c5 Mon Sep 17 00:00:00 2001 From: Kevin B Kenny Date: Fri, 24 Mar 2006 19:05:39 +0000 Subject: add missing casts to int that were making VC6 complain --- ChangeLog | 6 ++++++ generic/tclExecute.c | 6 +++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6fdf166..2c4cd96 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2006-03-24 Kevin Kenny + + * generic/tclExecute.c (TclExecuteByteCode): Added a couple + of missing casts to 'int' that were affecting compilablity + on VC6. + 2006-03-23 Don Porter * generic/tclExecute.c: Revised INST_EXPON implementation to do 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 -- cgit v0.12