From 0cf955ab149d4c4221bdafaaab80d53352ac4446 Mon Sep 17 00:00:00 2001
From: nijtmans <nijtmans>
Date: Tue, 16 Mar 2010 16:18:35 +0000
Subject: don't cast away "const" without reason.

---
 ChangeLog        | 1 +
 win/tclWinChan.c | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c86d6f4..c3b44bf8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,7 @@
 	* compat/zlib/*           Upgrade zlib to version 1.2.4
 	* win/makefile.vc
 	* unix/Makefile.in
+	* win/tclWinChan.c        don't cast away "const" without reason.
 
 2010-03-12  Jan Nijtmans  <nijtmans@users.sf.net>
 
diff --git a/win/tclWinChan.c b/win/tclWinChan.c
index c2bddb9..6ab056d 100644
--- a/win/tclWinChan.c
+++ b/win/tclWinChan.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclWinChan.c,v 1.55 2010/01/10 22:58:39 nijtmans Exp $
+ * RCS: @(#) $Id: tclWinChan.c,v 1.56 2010/03/16 16:18:35 nijtmans Exp $
  */
 
 #include "tclWinInt.h"
@@ -856,7 +856,7 @@ TclpOpenFileChannel(
     char channelName[16 + TCL_INTEGER_SPACE];
     TclFile readFile = NULL, writeFile = NULL;
 
-    nativeName = (TCHAR *) Tcl_FSGetNativePath(pathPtr);
+    nativeName = (const TCHAR *) Tcl_FSGetNativePath(pathPtr);
     if (nativeName == NULL) {
 	return NULL;
     }
-- 
cgit v0.12