diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2011-09-06 10:15:07 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2011-09-06 10:15:07 (GMT) |
| commit | 3e05bab8aba9788306831f2e1258d98d4a69dc27 (patch) | |
| tree | 021d5d0139bf0113cd5d866e244f4cc4c9da5f69 /generic/tclMain.c | |
| parent | 5f00cdf684c956b1ed2edd354a26030556d1999b (diff) | |
| parent | 9c246d9fe37bd583507325ea8a0c9d4e5ea42b5e (diff) | |
| download | tcl-3e05bab8aba9788306831f2e1258d98d4a69dc27.zip tcl-3e05bab8aba9788306831f2e1258d98d4a69dc27.tar.gz tcl-3e05bab8aba9788306831f2e1258d98d4a69dc27.tar.bz2 | |
[RFE 1711975]: Tcl_MainEx() (like Tk_MainEx())
Diffstat (limited to 'generic/tclMain.c')
| -rw-r--r-- | generic/tclMain.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/generic/tclMain.c b/generic/tclMain.c index 114d2c3..373e3f6 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -620,18 +620,19 @@ Tcl_MainEx( Tcl_Exit(exitCode); } -#ifndef UNICODE -void +#if (TCL_MAJOR_VERSION == 8) && !defined(UNICODE) +#undef Tcl_Main +extern DLLEXPORT void Tcl_Main( int argc, /* Number of arguments. */ - TCHAR **argv, /* Array of argument strings. */ + char **argv, /* Array of argument strings. */ Tcl_AppInitProc *appInitProc) /* Application-specific initialization * function to call after most initialization * but before starting to execute commands. */ { Tcl_FindExecutable(argv[0]); - Tcl_MainEx(argc, argv, appInitProc, Tcl_CreateInterp()); + Tcl_MainEx(argc, argv, appInitProc, Tcl_CreateInterp()); } #endif |