diff options
| author | dgp@users.sourceforge.net <dgp> | 2013-08-14 18:00:45 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2013-08-14 18:00:45 (GMT) |
| commit | 2d5f9a54bbde63c57647146525111d1dd979c313 (patch) | |
| tree | 77fdf9d45381002ae272a660dd3090c4d9459dc5 /generic/tclMain.c | |
| parent | e74b0d63f7921a708b9279175ef411cd70dc907e (diff) | |
| parent | 88a7ce8860bbf63969789f3466b2c751f5044d70 (diff) | |
| download | tcl-2d5f9a54bbde63c57647146525111d1dd979c313.zip tcl-2d5f9a54bbde63c57647146525111d1dd979c313.tar.gz tcl-2d5f9a54bbde63c57647146525111d1dd979c313.tar.bz2 | |
merge trunk
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 */ |