[Bug 3069278]: breakage on head Windows triggered

	by install-tzdata. Temporary don't compile this with -DUNICODE,	while investigating this bug.

3 files changed, 32 insertions, 12 deletions

diff --git a/ChangeLog b/ChangeLog
index c17e7a3..1d03d13 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2010-09-18  Jan Nijtmans  <nijtmans@users.sf.net>
+
+	* win/tclWinFCmd.c [Bug 3069278]: breakage on head Windows triggered
+	by install-tzdata. Temporary don't compile this with -DUNICODE,
+	while investigating this bug.
+
 2010-09-16  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* win/tclWinFile.c: remove define of FINDEX_INFO_LEVELS as all
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c
index 7698215..156db19 100644
--- a/win/tclWinFCmd.c
+++ b/win/tclWinFCmd.c
@@ -9,9 +9,17 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclWinFCmd.c,v 1.65 2010/09/08 21:02:42 dgp Exp $
+ * RCS: @(#) $Id: tclWinFCmd.c,v 1.66 2010/09/18 05:42:26 nijtmans Exp $
  */
 
+/* TODO: This file does not compile in UNICODE mode.
+ * See [Freq 2965056]: Windows build with -DUNICODE
+ * and
+ * [Bug 3069278]: breakage on head Windows triggered by install-tzdata
+ */
+#undef UNICODE
+#undef _UNICODE
+
 #include "tclWinInt.h"
 
 /*
@@ -331,8 +339,8 @@ DoRenameFile(
 	    TCHAR *nativeSrcRest, *nativeDstRest;
 	    const char **srcArgv, **dstArgv;
 	    int size, srcArgc, dstArgc;
-	    TCHAR nativeSrcPath[MAX_PATH];
-	    TCHAR nativeDstPath[MAX_PATH];
+	    TCHAR nativeSrcPath[MAX_PATH * 2];
+	    TCHAR nativeDstPath[MAX_PATH * 2];
 	    Tcl_DString srcString, dstString;
 	    const char *src, *dst;
 
@@ -468,7 +476,7 @@ DoRenameFile(
 
 		TCHAR *nativeRest, *nativeTmp, *nativePrefix;
 		int result, size;
-		TCHAR tempBuf[MAX_PATH];
+		TCHAR tempBuf[MAX_PATH * 2];
 
 		size = tclWinProcs->getFullPathNameProc(nativeDst, MAX_PATH,
 			tempBuf, &nativeRest);
diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index 4ff3a51..642373b 100644
--- a/win/tclWinFile.c
+++ b/win/tclWinFile.c
@@ -11,10 +11,16 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclWinFile.c,v 1.109 2010/09/16 18:53:06 hobbs Exp $
+ * RCS: @(#) $Id: tclWinFile.c,v 1.110 2010/09/18 05:40:30 nijtmans Exp $
  */
 
-/* #define _WIN32_WINNT	0x0500 */
+/* TODO: This file does not compile in UNICODE mode.
+ * See [Freq 2965056]: Windows build with -DUNICODE
+ * and
+ * [Bug 3069278]: breakage on head Windows triggered by install-tzdata
+ */
+#undef UNICODE
+#undef _UNICODE
 
 #include "tclWinInt.h"
 #include "tclFileSystem.h"
@@ -202,7 +208,7 @@ WinLink(
     const TCHAR *linkTargetPath,
     int linkAction)
 {
-    TCHAR tempFileName[MAX_PATH];
+    TCHAR tempFileName[MAX_PATH * 2];
     TCHAR *tempFilePart;
     DWORD attr;
 
@@ -323,7 +329,7 @@ static Tcl_Obj *
 WinReadLink(
     const TCHAR *linkSourcePath)
 {
-    TCHAR tempFileName[MAX_PATH];
+    TCHAR tempFileName[MAX_PATH * 2];
     TCHAR *tempFilePart;
     DWORD attr;
 
@@ -1924,7 +1930,7 @@ TclpGetCwd(
     Tcl_DString *bufferPtr)	/* Uninitialized or free DString filled with
 				 * name of current directory. */
 {
-    TCHAR buffer[MAX_PATH];
+    TCHAR buffer[MAX_PATH * 2];
     char *p;
 
     if (tclWinProcs->getCurrentDirectoryProc(MAX_PATH, buffer) == 0) {
@@ -2171,7 +2177,7 @@ NativeDev(
 {
     int dev;
     Tcl_DString ds;
-    TCHAR nativeFullPath[MAX_PATH];
+    TCHAR nativeFullPath[MAX_PATH * 2];
     TCHAR *nativePart;
     const char *fullPath;
 
@@ -2345,7 +2351,7 @@ ClientData
 TclpGetNativeCwd(
     ClientData clientData)
 {
-    TCHAR buffer[MAX_PATH];
+    TCHAR buffer[MAX_PATH * 2];
 
     if (tclWinProcs->getCurrentDirectoryProc(MAX_PATH, buffer) == 0) {
 	TclWinConvertError(GetLastError());
@@ -2463,7 +2469,7 @@ TclpFilesystemPathType(
 {
 #define VOL_BUF_SIZE 32
     int found;
-    TCHAR volType[VOL_BUF_SIZE];
+    TCHAR volType[VOL_BUF_SIZE * 2];
     char *firstSeparator;
     const char *path;
     Tcl_Obj *normPath = Tcl_FSGetNormalizedPath(NULL, pathPtr);