summaryrefslogtreecommitdiffstats
path: root/generic/tclIOUtil.c
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-12-06 23:22:08 (GMT)
committerhobbs <hobbs>2002-12-06 23:22:08 (GMT)
commit5bde345b62e89154c0dfe9f36adad96e97e69323 (patch)
treee9b16b406a7e5718d79ad1990b1d03921a5dff98 /generic/tclIOUtil.c
parent09df1bc509dd5e99187dfac5795e2e13fef53df5 (diff)
downloadtcl-5bde345b62e89154c0dfe9f36adad96e97e69323.zip
tcl-5bde345b62e89154c0dfe9f36adad96e97e69323.tar.gz
tcl-5bde345b62e89154c0dfe9f36adad96e97e69323.tar.bz2
* generic/tclIOUtil.c (TclFinalizeFilesystem): reset statics to
their original values on finalize to allow reuse of the library.
Diffstat (limited to 'generic/tclIOUtil.c')
-rw-r--r--generic/tclIOUtil.c15
1 files changed, 13 insertions, 2 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 059348d..2145fa2 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.66 2002/12/04 13:09:24 vincentdarley Exp $
+ * RCS: @(#) $Id: tclIOUtil.c,v 1.67 2002/12/06 23:22:08 hobbs Exp $
*/
#include "tclInt.h"
@@ -643,7 +643,18 @@ TclFinalizeFilesystem() {
}
filesystemList = tmpFsRecPtr;
}
- /* Now filesystemList is NULL */
+ /*
+ * Now filesystemList is NULL. Reset statics to original state.
+ */
+ statProcList = NULL;
+ accessProcList = NULL;
+ openFileChannelProcList = NULL;
+ filesystemList = &nativeFilesystemRecord;
+ filesystemIteratorsInProgress = 0;
+ filesystemWantToModify = 0;
+#ifdef TCL_THREADS
+ filesystemOkToModify = NULL;
+#endif
}
/*