summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2009-11-21 21:58:30 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2009-11-21 21:58:30 (GMT)
commitbaac428a2bb63e910b9df34c247f093c81cc6782 (patch)
treec7c2f708da746a4737997e70c104ed4e4afdb0c2 /generic
parent574b585c5101310f119cd540bdcae05636888bca (diff)
downloadtcl-baac428a2bb63e910b9df34c247f093c81cc6782.zip
tcl-baac428a2bb63e910b9df34c247f093c81cc6782.tar.gz
tcl-baac428a2bb63e910b9df34c247f093c81cc6782.tar.bz2
Cast required when setting result using a const string. String is copied by TCL_VOLATILE.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIORChan.c4
1 files 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: