diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-08-29 16:55:36 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-08-29 16:55:36 (GMT) |
| commit | 2f19b0f34600e566052137a580db0921e83332c7 (patch) | |
| tree | df7fcdd75f372058ac988a61010634ac05ca9d45 /win/tclAppInit.c | |
| parent | 265c9d416fb1297d507560a8bd9651c02e042b22 (diff) | |
| download | tcl-2f19b0f34600e566052137a580db0921e83332c7.zip tcl-2f19b0f34600e566052137a580db0921e83332c7.tar.gz tcl-2f19b0f34600e566052137a580db0921e83332c7.tar.bz2 | |
small amend to [cae24931ed] (no _CRT_glob in both cases __GNUC__ || TCL_BROKEN_MAINARGS).
Diffstat (limited to 'win/tclAppInit.c')
| -rw-r--r-- | win/tclAppInit.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/win/tclAppInit.c b/win/tclAppInit.c index 9c919fc..2236da3 100644 --- a/win/tclAppInit.c +++ b/win/tclAppInit.c @@ -29,18 +29,16 @@ extern Tcl_PackageInitProc Tcltest_Init; extern Tcl_PackageInitProc Tcltest_SafeInit; #endif /* TCL_TEST */ -#if defined(__GNUC__) -int _CRT_glob = 0; -#endif /* __GNUC__ */ - #if defined(STATIC_BUILD) && TCL_USE_STATIC_PACKAGES extern Tcl_PackageInitProc Registry_Init; extern Tcl_PackageInitProc Dde_Init; extern Tcl_PackageInitProc Dde_SafeInit; #endif -#ifdef TCL_BROKEN_MAINARGS +#if defined(__GNUC__) || defined(TCL_BROKEN_MAINARGS) int _CRT_glob = 0; +#endif /* __GNUC__ || TCL_BROKEN_MAINARGS */ +#ifdef TCL_BROKEN_MAINARGS static void setargv(int *argcPtr, TCHAR ***argvPtr); #endif /* TCL_BROKEN_MAINARGS */ |