diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-08 17:16:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-08 17:16:36 (GMT) |
| commit | 795fcf4f08882df1123a1ab6228a6cdf31fbb3eb (patch) | |
| tree | ce1eec15448d13d9dff53c233970313d8f68876e /win/tclWinFile.c | |
| parent | b5fe898956f0d887cbda3595f970480144e89073 (diff) | |
| parent | a7858d818d69719efc88a5de7dfcf85032e7540b (diff) | |
| download | tcl-795fcf4f08882df1123a1ab6228a6cdf31fbb3eb.zip tcl-795fcf4f08882df1123a1ab6228a6cdf31fbb3eb.tar.gz tcl-795fcf4f08882df1123a1ab6228a6cdf31fbb3eb.tar.bz2 | |
Merge 8.7
Bring back Tcl_InitSubsystems to what Tcl_InitSubsystems was: without additional parameters or additional functionality
Diffstat (limited to 'win/tclWinFile.c')
| -rw-r--r-- | win/tclWinFile.c | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index 5a557fc..6582ee1 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -531,6 +531,11 @@ TclWinSymLinkDelete( *-------------------------------------------------------------------- */ +#if defined (__clang__) || ((__GNUC__) && ((__GNUC__ > 4) || ((__GNUC__ == 4) && (__GNUC_MINOR__ > 5)))) +#pragma GCC diagnostic push +#pragma GCC diagnostic ignored "-Warray-bounds" +#endif + static Tcl_Obj * WinReadLinkDirectory( const TCHAR *linkDirPath) @@ -646,6 +651,10 @@ WinReadLinkDirectory( Tcl_SetErrno(EINVAL); return NULL; } + +#if defined (__clang__) || ((__GNUC__) && ((__GNUC__ > 4) || ((__GNUC__ == 4) && (__GNUC_MINOR__ > 5)))) +#pragma GCC diagnostic pop +#endif /* *-------------------------------------------------------------------- @@ -865,7 +874,8 @@ TclpFindExecutable( */ if (argv0 == NULL) { - TclSetPanicProc(tclWinDebugPanic); +# undef Tcl_SetPanicProc + Tcl_SetPanicProc(tclWinDebugPanic); } GetModuleFileNameW(NULL, wName, MAX_PATH); |