diff options
| author | vincentdarley <vincentdarley> | 2006-03-28 09:41:47 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2006-03-28 09:41:47 (GMT) |
| commit | 1afa162aa19a19ed79b78cc9548e52fe416c06f0 (patch) | |
| tree | f785e2b5faf995016b3da475bc43dd8984badb4b /generic/tclIOUtil.c | |
| parent | 4916c14c578eae2bc1f2b32041885152ef060d2e (diff) | |
| download | tcl-1afa162aa19a19ed79b78cc9548e52fe416c06f0.zip tcl-1afa162aa19a19ed79b78cc9548e52fe416c06f0.tar.gz tcl-1afa162aa19a19ed79b78cc9548e52fe416c06f0.tar.bz2 | |
nativeFilesystemRecord comparisons
Diffstat (limited to 'generic/tclIOUtil.c')
| -rw-r--r-- | generic/tclIOUtil.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index e281026..73a828a 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.129 2006/03/16 18:22:57 andreas_kupries Exp $ + * RCS: @(#) $Id: tclIOUtil.c,v 1.130 2006/03/28 09:41:47 vincentdarley Exp $ */ #include "tclInt.h" @@ -794,7 +794,7 @@ TclFinalizeFilesystem(void) * The native filesystem is static, so we don't free it. */ - if (fsRecPtr != &nativeFilesystemRecord) { + if (fsRecPtr->fsPtr != &tclNativeFilesystem) { ckfree((char *)fsRecPtr); } } @@ -977,7 +977,7 @@ Tcl_FSUnregister( */ 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; @@ -1426,7 +1426,7 @@ TclFSNormalizeToUniquePath( 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); @@ -1442,7 +1442,7 @@ TclFSNormalizeToUniquePath( * 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); @@ -3669,7 +3669,7 @@ FsListMounts( fsRecPtr = FsGetFirstFilesystem(); while (fsRecPtr != NULL) { - if (fsRecPtr != &nativeFilesystemRecord) { + if (fsRecPtr->fsPtr != &tclNativeFilesystem) { Tcl_FSMatchInDirectoryProc *proc = fsRecPtr->fsPtr->matchInDirectoryProc; if (proc != NULL) { |