From a1b86b4332a628715363cfc1ea98af369f04acba Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 7 Jul 2011 08:47:31 +0000
Subject: minor gcc compiler warning with -Wwrite-strings

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

diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c
index b9b881c..10b6ab2 100644
--- a/win/tclWinPipe.c
+++ b/win/tclWinPipe.c
@@ -475,7 +475,7 @@ TempFileName(
     TCHAR name[MAX_PATH])	/* Buffer in which name for temporary file
 				 * gets stored. */
 {
-    TCHAR *prefix = TEXT("TCL");
+    const TCHAR *prefix = TEXT("TCL");
     if (GetTempPath(MAX_PATH, name) != 0) {
 	if (GetTempFileName(name, prefix, 0, name) != 0) {
 	    return 1;
@@ -3101,7 +3101,7 @@ TclpOpenTemporaryFile(
 	namePtr += Tcl_DStringLength(&buf);
 	Tcl_DStringFree(&buf);
     } else {
-	TCHAR *baseStr = TEXT("TCL");
+	const TCHAR *baseStr = TEXT("TCL");
 	int length = 3 * sizeof(TCHAR);
 
 	memcpy(namePtr, baseStr, length);
-- 
cgit v0.12