summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-02-20 20:44:47 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-02-20 20:44:47 (GMT)
commit50a0199fe10d0229bca2a3a82c4399d1544e3f11 (patch)
treee68d8cea5e0a95f413e57123d38120be9693417b
parente5310bc68d8feb471731e234e10536ef6828ffe0 (diff)
downloadtcl-50a0199fe10d0229bca2a3a82c4399d1544e3f11.zip
tcl-50a0199fe10d0229bca2a3a82c4399d1544e3f11.tar.gz
tcl-50a0199fe10d0229bca2a3a82c4399d1544e3f11.tar.bz2
stop compiler warning
-rw-r--r--generic/tclTest.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 835c602..d0b2bab 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclTest.c,v 1.62.2.5 2003/11/17 18:12:08 dgp Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.62.2.6 2004/02/20 20:44:47 dgp Exp $
*/
#define TCL_TEST
@@ -3357,7 +3357,7 @@ TestregexpObjCmd(dummy, interp, objc, objv)
Tcl_RegExpGetInfo(regExpr, &info);
varName = Tcl_GetString(objv[2]);
- sprintf(resinfo, "%d", info.extendStart);
+ sprintf(resinfo, "%ld", info.extendStart);
value = Tcl_SetVar(interp, varName, resinfo, 0);
if (value == NULL) {
Tcl_AppendResult(interp, "couldn't set variable \"",