diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-23 07:39:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-23 07:39:34 (GMT) |
| commit | eb9f949b2cfdc79e6a450a1e4f6e3580ccde4d9f (patch) | |
| tree | dd7e8605b200cbb5720dee7d9d0e8f2d62a7631e /generic/tclIOUtil.c | |
| parent | e3afa124209feea2c83bdd8b506ddd3974647cb4 (diff) | |
| parent | 8242d1a544d685846fe49557be8c9fd628d42329 (diff) | |
| download | tcl-eb9f949b2cfdc79e6a450a1e4f6e3580ccde4d9f.zip tcl-eb9f949b2cfdc79e6a450a1e4f6e3580ccde4d9f.tar.gz tcl-eb9f949b2cfdc79e6a450a1e4f6e3580ccde4d9f.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 191837e..fc9989a 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -3077,6 +3077,13 @@ Tcl_FSLoadFile( * */ +#ifdef _WIN32 +#define getenv(x) _wgetenv(L##x) +#define atoi(x) _wtoi(x) +#else +#define WCHAR char +#endif + static int skipUnlink( Tcl_Obj *shlibFile) @@ -3098,7 +3105,7 @@ skipUnlink( (void)shlibFile; return 1; #else - char *skipstr = getenv("TCL_TEMPLOAD_NO_UNLINK"); + WCHAR *skipstr = getenv("TCL_TEMPLOAD_NO_UNLINK"); if (skipstr && (skipstr[0] != '\0')) { return atoi(skipstr); |