summaryrefslogtreecommitdiffstats
path: root/generic/tclIOUtil.c
diff options
context:
space:
mode:
authordas <das>2006-03-28 10:52:38 (GMT)
committerdas <das>2006-03-28 10:52:38 (GMT)
commitdcc8d48bc8b8bd5460c61afdd45f4d29023f41c4 (patch)
treea3f9e9c51bb79ab475b75af365f4405dbc3e7ac3 /generic/tclIOUtil.c
parent6944091c09865070fd6e03deafe8942a329a74fb (diff)
downloadtcl-dcc8d48bc8b8bd5460c61afdd45f4d29023f41c4.zip
tcl-dcc8d48bc8b8bd5460c61afdd45f4d29023f41c4.tar.gz
tcl-dcc8d48bc8b8bd5460c61afdd45f4d29023f41c4.tar.bz2
* generic/tclIOUtil.c: fix to nativeFilesystemRecord comparisons
(lesser part of [Bug 1064247])
Diffstat (limited to 'generic/tclIOUtil.c')
-rw-r--r--generic/tclIOUtil.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 9709345..55e8b32 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.77.2.28 2006/03/28 10:44:52 das Exp $
+ * RCS: @(#) $Id: tclIOUtil.c,v 1.77.2.29 2006/03/28 10:52:38 das Exp $
*/
#include "tclInt.h"
@@ -748,7 +748,7 @@ TclFinalizeFilesystem()
FilesystemRecord *tmpFsRecPtr = fsRecPtr->nextPtr;
if (fsRecPtr->fileRefCount <= 0) {
/* The native filesystem is static, so we don't free it */
- if (fsRecPtr != &nativeFilesystemRecord) {
+ if (fsRecPtr->fsPtr != &tclNativeFilesystem) {
ckfree((char *)fsRecPtr);
}
}
@@ -931,7 +931,7 @@ Tcl_FSUnregister(fsPtr)
*/
fsRecPtr = filesystemList;
- while ((retVal == TCL_ERROR) && (fsRecPtr != &nativeFilesystemRecord)) {
+ while ((retVal == TCL_ERROR) && (fsRecPtr->fsPtr != &tclNativeFilesystem)) {
if (fsRecPtr->fsPtr == fsPtr) {
if (fsRecPtr->prevPtr) {
fsRecPtr->prevPtr->nextPtr = fsRecPtr->nextPtr;
@@ -1471,7 +1471,7 @@ TclFSNormalizeToUniquePath(interp, pathPtr, startAt, clientDataPtr)
fsRecPtr = firstFsRecPtr;
while (fsRecPtr != NULL) {
- if (fsRecPtr == &nativeFilesystemRecord) {
+ if (fsRecPtr->fsPtr == &tclNativeFilesystem) {
Tcl_FSNormalizePathProc *proc = fsRecPtr->fsPtr->normalizePathProc;
if (proc != NULL) {
startAt = (*proc)(interp, pathPtr, startAt);
@@ -1484,7 +1484,7 @@ TclFSNormalizeToUniquePath(interp, pathPtr, startAt, clientDataPtr)
fsRecPtr = firstFsRecPtr;
while (fsRecPtr != NULL) {
/* Skip the native system next time through */
- if (fsRecPtr != &nativeFilesystemRecord) {
+ if (fsRecPtr->fsPtr != &tclNativeFilesystem) {
Tcl_FSNormalizePathProc *proc = fsRecPtr->fsPtr->normalizePathProc;
if (proc != NULL) {
startAt = (*proc)(interp, pathPtr, startAt);
@@ -3278,7 +3278,7 @@ FsListMounts(pathPtr, pattern)
fsRecPtr = FsGetFirstFilesystem();
while (fsRecPtr != NULL) {
- if (fsRecPtr != &nativeFilesystemRecord) {
+ if (fsRecPtr->fsPtr != &tclNativeFilesystem) {
Tcl_FSMatchInDirectoryProc *proc =
fsRecPtr->fsPtr->matchInDirectoryProc;
if (proc != NULL) {