diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-02 08:12:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-02 08:12:38 (GMT) |
| commit | 21dfa74b037c4630be374887a1579c078fd99193 (patch) | |
| tree | 1601cdbe0f43c015bfcb743565108c36f488e67b /generic/tclEnv.c | |
| parent | 3f0e8d6265db0d5853ab55de2ead9a045c678b6e (diff) | |
| parent | 9220ca224bafcb35a09f48838501d36ab69762e9 (diff) | |
| download | tcl-21dfa74b037c4630be374887a1579c078fd99193.zip tcl-21dfa74b037c4630be374887a1579c078fd99193.tar.gz tcl-21dfa74b037c4630be374887a1579c078fd99193.tar.bz2 | |
Merge core-8-6-branch. This removes the work currently being done in "sebres-8-6-clock-speedup-cr1" branch, but that will be merged again as soon as the work is done.
All other changes in "trunk" since then (e.g. the INST_STR_CONCAT1 performance improvement, and the removal of SunOS-4) are retained.
Diffstat (limited to 'generic/tclEnv.c')
| -rw-r--r-- | generic/tclEnv.c | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index d05cc61..66ddb57 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -17,11 +17,6 @@ TCL_DECLARE_MUTEX(envMutex) /* To serialize access to environ. */ - -/* MODULE_SCOPE */ -size_t TclEnvEpoch = 0; /* Epoch of the tcl environment - * (if changed with tcl-env). */ - static struct { int cacheSize; /* Number of env strings in cache. */ char **cache; /* Array containing all of the environment @@ -376,7 +371,6 @@ Tcl_PutEnv( value[0] = '\0'; TclSetEnv(name, value+1); } - TclEnvEpoch++; Tcl_DStringFree(&nameString); return 0; @@ -585,7 +579,6 @@ EnvTraceProc( if (flags & TCL_TRACE_ARRAY) { TclSetupEnv(interp); - TclEnvEpoch++; return NULL; } @@ -606,7 +599,6 @@ EnvTraceProc( value = Tcl_GetVar2(interp, "env", name2, TCL_GLOBAL_ONLY); TclSetEnv(name2, value); - TclEnvEpoch++; } /* @@ -630,7 +622,6 @@ EnvTraceProc( if (flags & TCL_TRACE_UNSETS) { TclUnsetEnv(name2); - TclEnvEpoch++; } return NULL; } |