From 94c8e93751b3e6048beb4aca49699060f85159dd Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 17 Nov 2003 15:23:10 +0000
Subject: Added cast to suppress compiler warning.

---
 generic/tclCompile.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index ee1a8a9..d687fbe 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.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: tclCompile.c,v 1.52 2003/11/14 20:44:44 dgp Exp $
+ * RCS: @(#) $Id: tclCompile.c,v 1.53 2003/11/17 15:23:10 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -931,7 +931,7 @@ TclCompileScript(interp, script, numBytes, envPtr)
 		     */
 		    objIndex = TclRegisterNewLiteral(envPtr, "", 0);
 		    TclEmitPush(objIndex, envPtr);
-		    Tcl_DStringAppend(&deltaList, &delta, 1);
+		    Tcl_DStringAppend(&deltaList, (CONST char *)&delta, 1);
 		    delta = 1;
 		}
 
-- 
cgit v0.12