From baac428a2bb63e910b9df34c247f093c81cc6782 Mon Sep 17 00:00:00 2001
From: patthoyts <patthoyts@users.sourceforge.net>
Date: Sat, 21 Nov 2009 21:58:30 +0000
Subject: Cast required when setting result using a const string. String is
 copied by TCL_VOLATILE.

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

diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c
index f2f8e1d..e3ba688 100644
--- a/generic/tclIORChan.c
+++ b/generic/tclIORChan.c
@@ -15,7 +15,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclIORChan.c,v 1.42 2009/11/18 22:41:41 nijtmans Exp $
+ * RCS: @(#) $Id: tclIORChan.c,v 1.43 2009/11/21 21:58:30 patthoyts Exp $
  */
 
 #include <tclInt.h>
@@ -735,7 +735,7 @@ TclChanCreateObjCmd(
      * Return handle as result of command.
      */
 
-    Tcl_SetResult(interp, chanPtr->state->channelName, TCL_VOLATILE);
+    Tcl_SetResult(interp, (char *)chanPtr->state->channelName, TCL_VOLATILE);
     return TCL_OK;
 
   error:
-- 
cgit v0.12