diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-11-17 00:31:34 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-11-17 00:31:34 (GMT) |
| commit | 35807a4a773f76ca1b79089bff2fbef95ce5fd78 (patch) | |
| tree | f463143d78fdebaafad6f6a6a25c17508289095e /generic | |
| parent | e1c0cbb19100b18beaed64123bac5df1b1f84711 (diff) | |
| download | tcl-35807a4a773f76ca1b79089bff2fbef95ce5fd78.zip tcl-35807a4a773f76ca1b79089bff2fbef95ce5fd78.tar.gz tcl-35807a4a773f76ca1b79089bff2fbef95ce5fd78.tar.bz2 | |
* generic/tclIOUtil.c (TclFSEpochOk): There were two code paths
via which the thread copy of filesystemEpoch could be synched with
the master copy, but only one kept the filesystem list cache up
to date. Fix routes everything through a single code path.
[Bug 1035775].
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclIOUtil.c | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index befc9c7..17fd376 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -17,7 +17,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOUtil.c,v 1.112 2004/10/15 04:01:31 dgp Exp $ + * RCS: @(#) $Id: tclIOUtil.c,v 1.113 2004/11/17 00:31:47 dgp Exp $ */ #include "tclInt.h" @@ -642,13 +642,7 @@ TclFSEpochOk (filesystemEpoch) int filesystemEpoch; { ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&tclFsDataKey); -#ifndef TCL_THREADS - tsdPtr->filesystemEpoch = theFilesystemEpoch; -#else - Tcl_MutexLock(&filesystemMutex); - tsdPtr->filesystemEpoch = theFilesystemEpoch; - Tcl_MutexUnlock(&filesystemMutex); -#endif + (void) FsGetFirstFilesystem(); return (filesystemEpoch == tsdPtr->filesystemEpoch); } |