summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2009-07-01 15:06:06 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2009-07-01 15:06:06 (GMT)
commitfa19918ab8db3c00417ce14f4a578554f6694300 (patch)
tree90991b4089a22857b2f9de52da169b7ce534790a
parent910e24fb04f5006fb5f14730497c27c89c1d83fb (diff)
downloadtcl-fa19918ab8db3c00417ce14f4a578554f6694300.zip
tcl-fa19918ab8db3c00417ce14f4a578554f6694300.tar.gz
tcl-fa19918ab8db3c00417ce14f4a578554f6694300.tar.bz2
Cast wide integer to int conversion (silence msvc6 warning)
-rw-r--r--generic/tclStringObj.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c
index 4535c64..09ac25a 100644
--- a/generic/tclStringObj.c
+++ b/generic/tclStringObj.c
@@ -33,7 +33,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclStringObj.c,v 1.125 2009/06/15 18:51:35 dgp Exp $ */
+ * RCS: @(#) $Id: tclStringObj.c,v 1.126 2009/07/01 15:06:06 patthoyts Exp $ */
#include "tclInt.h"
#include "tommath.h"
@@ -2133,9 +2133,9 @@ Tcl_AppendFormatToObj(
numDigits = 1;
}
pure = Tcl_NewObj();
- Tcl_SetObjLength(pure, numDigits);
+ Tcl_SetObjLength(pure, (int)numDigits);
bytes = TclGetString(pure);
- toAppend = length = numDigits;
+ toAppend = length = (int)numDigits;
while (numDigits--) {
int digitOffset;