summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-11-17 15:23:10 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-11-17 15:23:10 (GMT)
commit94c8e93751b3e6048beb4aca49699060f85159dd (patch)
treeffdba3b3998750cc9439a360150f8401b599a7c2
parent16c53502057d22be392557555284584ae5c1e850 (diff)
downloadtcl-94c8e93751b3e6048beb4aca49699060f85159dd.zip
tcl-94c8e93751b3e6048beb4aca49699060f85159dd.tar.gz
tcl-94c8e93751b3e6048beb4aca49699060f85159dd.tar.bz2
Added cast to suppress compiler warning.
-rw-r--r--generic/tclCompile.c4
1 files 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;
}