diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-29 13:28:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-29 13:28:32 (GMT) |
| commit | 4187ab8e37b22866a8b3a8727b9d661bca6378c8 (patch) | |
| tree | adefcd33b5268f2e85014860b1f8aca78237da6c /generic/tclEnv.c | |
| parent | 4796062aab8a24df621cf33dbe862f72b36986f8 (diff) | |
| parent | a812c806619d185a0f16bfa431b848006ba98044 (diff) | |
| download | tcl-4187ab8e37b22866a8b3a8727b9d661bca6378c8.zip tcl-4187ab8e37b22866a8b3a8727b9d661bca6378c8.tar.gz tcl-4187ab8e37b22866a8b3a8727b9d661bca6378c8.tar.bz2 | |
Merge tip-548
Diffstat (limited to 'generic/tclEnv.c')
| -rw-r--r-- | generic/tclEnv.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index da4bfe3..3ed889f 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -579,7 +579,7 @@ TclGetEnv( /* ARGSUSED */ static char * EnvTraceProc( - ClientData clientData, /* Not used. */ + ClientData dummy, /* Not used. */ Tcl_Interp *interp, /* Interpreter whose "env" variable is being * modified. */ const char *name1, /* Better be "env". */ @@ -587,6 +587,7 @@ EnvTraceProc( * whole array is being deleted (UTF-8). */ int flags) /* Indicates what's happening. */ { + (void)dummy; /* * For array traces, let TclSetupEnv do all the work. */ |