Tcl Source Code

Artifact 35b8aeddb389d82919c71d47115efa8cd40d90b7:

Attachment "tclWinFile.c.patch" to ticket [1225571fff] added by patthoyts 2005-06-22 21:25:29.

---

Index: tclWinFile.c
===================================================================
RCS file: /cvsroot/tcl/tcl/win/tclWinFile.c,v
retrieving revision 1.44.2.11
diff -u -r1.44.2.11 tclWinFile.c
--- tclWinFile.c	15 Mar 2005 18:08:24 -0000	1.44.2.11
+++ tclWinFile.c	22 Jun 2005 13:54:14 -0000
@@ -2083,9 +2083,9 @@
 TclpFilesystemPathType(pathObjPtr)
     Tcl_Obj* pathObjPtr;
 {
-#define VOL_BUF_SIZE 32
+#define VOL_BUF_SIZE 64
     int found;
-    char volType[VOL_BUF_SIZE];
+    WCHAR volType[VOL_BUF_SIZE];
     char* firstSeparator;
     CONST char *path;
     
@@ -2114,7 +2114,7 @@
 	Tcl_DString ds;
 	Tcl_Obj *objPtr;
 	
-	Tcl_WinTCharToUtf(volType, -1, &ds);
+	Tcl_WinTCharToUtf((const char *)volType, -1, &ds);
 	objPtr = Tcl_NewStringObj(Tcl_DStringValue(&ds),Tcl_DStringLength(&ds));
 	Tcl_DStringFree(&ds);
 	return objPtr;