Tcl Source Code

Artifact [3e77f8f5c5]
Login

Artifact 3e77f8f5c5da9bd9138d1bb12857ff1149032b7c:

Attachment "1077005.patch" to ticket [1077005fff] added by dgp 2004-12-02 04:57:59.
Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcl/tcl/ChangeLog,v
retrieving revision 1.2454
diff -u -r1.2454 ChangeLog
--- ChangeLog	1 Dec 2004 11:49:07 -0000	1.2454
+++ ChangeLog	1 Dec 2004 21:57:00 -0000
@@ -1,3 +1,12 @@
+2004-12-01  Don Porter  <[email protected]>
+
+	* generic/tclEncoding.c:	Moved TclpSetInitialEncodings()
+	call from Tcl_FindExecutable() into TclInitEncodingSubsystem().
+	This is important on Windows where it establishes whether the
+	"ascii" or "unicode" set of system routines will be used, and
+	that needs to be done earlier to support filesystem operations.
+	[Bug 1077005]
+
 2004-12-01  Donal K. Fellows  <[email protected]>
 
 	* tests/winDde.test: Rewritten to use tcltest2 features more
Index: generic/tclEncoding.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclEncoding.c,v
retrieving revision 1.27
diff -u -r1.27 tclEncoding.c
--- generic/tclEncoding.c	30 Nov 2004 19:34:47 -0000	1.27
+++ generic/tclEncoding.c	1 Dec 2004 21:57:01 -0000
@@ -513,7 +513,7 @@
     Tcl_CreateEncoding(&type);
 
     encodingsInitialized = 1;
-
+    TclpSetInitialEncodings();
 }
 
 /*
@@ -1304,7 +1304,6 @@
 				 * (native). */
 {
     TclInitSubsystems();
-    TclpSetInitialEncodings();
     TclpFindExecutable(argv0);
 }