diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-14 14:48:07 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-14 14:48:07 (GMT) |
commit | 33aa9d5c484dfcafa30e59bb14632ac1fd11d919 (patch) | |
tree | a8e4f07d3b61423a55ca3cd1828559ed04e107f3 | |
parent | 1faed93cada29bd263dfed0b7b5df50e86defd39 (diff) | |
download | tcl-33aa9d5c484dfcafa30e59bb14632ac1fd11d919.zip tcl-33aa9d5c484dfcafa30e59bb14632ac1fd11d919.tar.gz tcl-33aa9d5c484dfcafa30e59bb14632ac1fd11d919.tar.bz2 |
Fix windows build (with older compilers)
-rw-r--r-- | generic/tclUtil.c | 2 | ||||
-rw-r--r-- | win/tclAppInit.c | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 6dbccba..b48ce30 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -1692,12 +1692,12 @@ TclTrimRight( * rely on (trim[numTrim] == '\0'). */ { const char *pp, *p = bytes + numBytes; + int ch1, ch2; /* Empty strings -> nothing to do */ if ((numBytes == 0) || (numTrim == 0)) { return 0; } - int ch1, ch2; /* * Outer loop: iterate over string to be trimmed. diff --git a/win/tclAppInit.c b/win/tclAppInit.c index 105af65..59c21e5 100644 --- a/win/tclAppInit.c +++ b/win/tclAppInit.c @@ -87,7 +87,7 @@ MODULE_SCOPE int TCL_LOCAL_MAIN_HOOK(int *argc, TCHAR ***argv); int main( int argc, /* Number of command-line arguments. */ - TCL_UNUSED(char **)) + char **argv1) { TCHAR **argv; TCHAR *p; @@ -112,6 +112,7 @@ _tmain( * Get our args from the c-runtime. Ignore command line. */ + (void)argv1; setargv(&argc, &argv); #endif |