summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclClock.c4
-rw-r--r--generic/tclTest.c4
2 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclClock.c b/generic/tclClock.c
index d9f6a1e..221f961 100644
--- a/generic/tclClock.c
+++ b/generic/tclClock.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: tclClock.c,v 1.21 2003/04/12 19:08:54 kennykb Exp $
+ * RCS: @(#) $Id: tclClock.c,v 1.22 2003/04/15 03:43:26 dgp Exp $
*/
#include "tcl.h"
@@ -117,7 +117,7 @@ Tcl_ClockObjCmd (client, interp, objc, objv)
break;
case 2: /* native clicks */
Tcl_SetWideIntObj( resultPtr,
- TclpGetClicks() );
+ (Tcl_WideInt) TclpGetClicks() );
break;
}
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 852a2d1..d5370d6 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.65 2003/04/11 15:59:58 vincentdarley Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.66 2003/04/15 03:43:25 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 \"",