diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-02 16:53:06 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-02 16:53:06 (GMT) |
| commit | 6e51a643257c04e64fcd6684e45d068705d9587f (patch) | |
| tree | 31d0e9d94636098e2e1cb080903710d75a44d4c5 /win/tclAppInit.c | |
| parent | bb38bb643d51cb226998de0ceb24ec6dec3633a7 (diff) | |
| parent | fd9dbdd294fbd96680bd4235087d418bc1cd6935 (diff) | |
| download | tcl-6e51a643257c04e64fcd6684e45d068705d9587f.zip tcl-6e51a643257c04e64fcd6684e45d068705d9587f.tar.gz tcl-6e51a643257c04e64fcd6684e45d068705d9587f.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'win/tclAppInit.c')
| -rw-r--r-- | win/tclAppInit.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/win/tclAppInit.c b/win/tclAppInit.c index a10f8db..be70492 100644 --- a/win/tclAppInit.c +++ b/win/tclAppInit.c @@ -91,18 +91,17 @@ MODULE_SCOPE int TCL_LOCAL_MAIN_HOOK(int *argc, TCHAR ***argv); int main( int argc, /* Number of command-line arguments. */ - char **argv1) + char **argv1) /* Not used. */ { TCHAR **argv; - TCHAR *p; #else int _tmain( int argc, /* Number of command-line arguments. */ TCHAR *argv[]) /* Values of command-line arguments. */ { - TCHAR *p; #endif + TCHAR *p; /* * Set up the default locale to be standard "C" locale so parsing is @@ -132,8 +131,8 @@ _tmain( #ifdef TCL_LOCAL_MAIN_HOOK TCL_LOCAL_MAIN_HOOK(&argc, &argv); -#elif !defined(_WIN32) || defined(UNICODE) - /* This doesn't work on Windows without UNICODE */ +#elif (TCL_MAJOR_VERSION > 8 || TCL_MINOR_VERSION > 6) && (!defined(_WIN32) || defined(UNICODE)) + /* New in Tcl 8.7. This doesn't work on Windows without UNICODE */ TclZipfs_AppHook(&argc, &argv); #endif |