diff options
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..0cd14f4 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -313,6 +313,8 @@ Tcl_MainEx( Tcl_Channel chan; InteractiveState is; + TclpSetInitialEncodings(); + TclpFindExecutable((void *)argv[0]); Tcl_InitMemory(interp); is.interp = interp; @@ -640,7 +642,7 @@ Tcl_Main( * function to call after most initialization * but before starting to execute commands. */ { - Tcl_FindExecutable(argv[0]); + Tcl_InitSubsystems(NULL); Tcl_MainEx(argc, argv, appInitProc, Tcl_CreateInterp()); } #endif /* TCL_MAJOR_VERSION == 8 && !UNICODE */ |