From d96f663252a781bb11f0de481ae8aefde0011fa3 Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Fri, 9 Jan 2004 15:22:46 +0000
Subject: TclFinalizeFilesystem fix

---
 ChangeLog           | 5 +++++
 generic/tclIOUtil.c | 6 +++---
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 295a558..66fa255 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-09  Vince Darley  <vincentdarley@users.sourceforge.net>
+
+	* generic/tclIOUtil.c: fix to infinite loop in 
+	TclFinalizeFilesystem [Bug 873311]
+
 2003-12-25  Mo DeJong  <mdejong@users.sourceforge.net>
 
 	* win/tclWin32Dll.c (DllMain): Add HAVE_NO_SEH
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 8d2b3ba..c47e07f 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.91 2003/12/24 04:18:20 davygrvy Exp $
+ * RCS: @(#) $Id: tclIOUtil.c,v 1.92 2004/01/09 15:22:46 vincentdarley Exp $
  */
 
 #include "tclInt.h"
@@ -629,7 +629,7 @@ FsUpdateCwd(cwdObj)
 void
 TclFinalizeFilesystem()
 {
-    FilesystemRecord *fsRecPtr, *tmpFsRecPtr;
+    FilesystemRecord *fsRecPtr;
 
     /* 
      * Assumption that only one thread is active now.  Otherwise
@@ -649,7 +649,7 @@ TclFinalizeFilesystem()
 
     fsRecPtr = filesystemList;
     while (fsRecPtr != NULL) {
-        tmpFsRecPtr = filesystemList->nextPtr;
+	FilesystemRecord *tmpFsRecPtr = fsRecPtr->nextPtr;
         if (fsRecPtr->fileRefCount <= 0) {
             /* The native filesystem is static, so we don't free it */
             if (fsRecPtr != &nativeFilesystemRecord) {
-- 
cgit v0.12