diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-06-27 08:51:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-06-27 08:51:40 (GMT) |
| commit | a57835e07ae4443feed31888c2fdb0e44b2748e0 (patch) | |
| tree | 2c1d8823641ac1cbfdcaa8903f19a41088956f9c /generic/tclMain.c | |
| parent | d8e108cc4748d02d928366cc07447b2e738e796b (diff) | |
| parent | c515a5da53a5c61527c77bfd7c062c02b66af1e2 (diff) | |
| download | tcl-a57835e07ae4443feed31888c2fdb0e44b2748e0.zip tcl-a57835e07ae4443feed31888c2fdb0e44b2748e0.tar.gz tcl-a57835e07ae4443feed31888c2fdb0e44b2748e0.tar.bz2 | |
Bug [9b2e636361]: Tcl_CreateInterp() needs initialized encodings.
Diffstat (limited to 'generic/tclMain.c')
| -rw-r--r-- | generic/tclMain.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclMain.c b/generic/tclMain.c index f445383..faea75a 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -313,6 +313,9 @@ Tcl_MainEx( Tcl_Channel chan; InteractiveState is; + TclpSetInitialEncodings(); + TclpFindExecutable((const char *)argv[0]); + Tcl_InitMemory(interp); is.interp = interp; @@ -640,7 +643,6 @@ Tcl_Main( * function to call after most initialization * but before starting to execute commands. */ { - Tcl_FindExecutable(argv[0]); Tcl_MainEx(argc, argv, appInitProc, Tcl_CreateInterp()); } #endif /* TCL_MAJOR_VERSION == 8 && !UNICODE */ |