From f47d69d50d671564340bd40cc1de64af08dfa3d5 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 15 Apr 2003 03:43:25 +0000
Subject: Stopped compiler warnings about type casts.

---
 generic/tclClock.c | 4 ++--
 generic/tclTest.c  | 4 ++--
 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 \"",
-- 
cgit v0.12