From f25390269e727c8be50ed17d360459e2249d3592 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 21 Aug 2006 14:56:48 +0000
Subject:         * generic/tclIOUtil.c:  Revisions to complete the thread
 finalization         of the cwdPathPtr.  [Bug 1536142]

---
 ChangeLog           | 5 +++++
 generic/tclIOUtil.c | 4 +++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 333f627..07fb907 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-08-21  Don Porter  <dgp@users.sourceforge.net>
+
+        * generic/tclIOUtil.c:  Revisions to complete the thread finalization
+        of the cwdPathPtr.  [Bug 1536142]
+
 2006-08-21  Donal K. Fellows  <donal.k.fellows@manchester.ac.uk>
 
 	* win/Makefile.in (gdb): Make this target work so that debugging an
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index c35e319..ccd1e12 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.132 2006/06/21 03:10:39 dgp Exp $
+ * RCS: @(#) $Id: tclIOUtil.c,v 1.133 2006/08/21 14:56:48 dgp Exp $
  */
 
 #include "tclInt.h"
@@ -470,6 +470,7 @@ FsThrExitProc(
 
     if (tsdPtr->cwdPathPtr != NULL) {
 	Tcl_DecrRefCount(tsdPtr->cwdPathPtr);
+	tsdPtr->cwdPathPtr = NULL;
     }
     if (tsdPtr->cwdClientData != NULL) {
 	NativeFreeInternalRep(tsdPtr->cwdClientData);
@@ -487,6 +488,7 @@ FsThrExitProc(
 	}
 	fsRecPtr = tmpFsRecPtr;
     }
+    tsdPtr->initialized = 0;
 }
 
 int
-- 
cgit v0.12