diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-12-01 21:58:55 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-12-01 21:58:55 (GMT) |
| commit | 7b470edbf5e874d173c860d5296ef3f25f845134 (patch) | |
| tree | 5f56d5d7709b60532bdaeaf6d99ef9ffcabb19bf | |
| parent | b68250712dc55e55851dd4e0950410ab37506665 (diff) | |
| download | tcl-7b470edbf5e874d173c860d5296ef3f25f845134.zip tcl-7b470edbf5e874d173c860d5296ef3f25f845134.tar.gz tcl-7b470edbf5e874d173c860d5296ef3f25f845134.tar.bz2 | |
* 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]
| -rw-r--r-- | ChangeLog | 9 | ||||
| -rw-r--r-- | generic/tclEncoding.c | 5 |
2 files changed, 11 insertions, 3 deletions
@@ -1,3 +1,12 @@ +2004-12-01 Don Porter <dgp@users.sourceforge.net> + + * 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 <donal.k.fellows@man.ac.uk> * tests/winDde.test: Rewritten to use tcltest2 features more diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index c3f53c3..6932301 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEncoding.c,v 1.27 2004/11/30 19:34:47 dgp Exp $ + * RCS: @(#) $Id: tclEncoding.c,v 1.28 2004/12/01 21:58:59 dgp Exp $ */ #include "tclInt.h" @@ -513,7 +513,7 @@ TclInitEncodingSubsystem() Tcl_CreateEncoding(&type); encodingsInitialized = 1; - + TclpSetInitialEncodings(); } /* @@ -1304,7 +1304,6 @@ Tcl_FindExecutable(argv0) * (native). */ { TclInitSubsystems(); - TclpSetInitialEncodings(); TclpFindExecutable(argv0); } |