summaryrefslogtreecommitdiffstats
path: root/win/tclWinFile.c
diff options
context:
space:
mode:
authorandreas_kupries <andreas_kupries@noemail.net>2001-09-10 17:17:41 (GMT)
committerandreas_kupries <andreas_kupries@noemail.net>2001-09-10 17:17:41 (GMT)
commit3f9473fbf04e0e2e1104624add5058015d100340 (patch)
tree192e2e551b9ccd4719de44b72ee348205dd2df89 /win/tclWinFile.c
parent2b879d481d9ee1514481eb8b429cccd694771e07 (diff)
downloadtcl-3f9473fbf04e0e2e1104624add5058015d100340.zip
tcl-3f9473fbf04e0e2e1104624add5058015d100340.tar.gz
tcl-3f9473fbf04e0e2e1104624add5058015d100340.tar.bz2
* generic/tclInt.decls: Also added 'TclWinFlushDirtyChannels' to
the internal platform specific stub table. * win/tclWinFile.c (TclpObjStat): Now added the call to 'TclWinFlushDirtyChannels' to this function. I don't know where my head was last thursday (2001-09-06), but the call was actually added to 'TclpObjChdir', i.e. the implementation of [cd]. Corrected this now. Thanks to Vince Darley for spotting this. FossilOrigin-Name: 0f367d55701d08f2bcf18f5e530e78efb7f3a078
Diffstat (limited to 'win/tclWinFile.c')
-rw-r--r--win/tclWinFile.c18
1 files changed, 9 insertions, 9 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index 1c8a300..1cce9fd 100644
--- a/win/tclWinFile.c
+++ b/win/tclWinFile.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclWinFile.c,v 1.14 2001/09/07 17:08:50 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclWinFile.c,v 1.15 2001/09/10 17:17:41 andreas_kupries Exp $
*/
#include "tclWinInt.h"
@@ -694,14 +694,6 @@ TclpObjChdir(pathPtr)
int result;
TCHAR *nativePath;
- /*
- * Ensure correct file sizes by forcing the OS to write any
- * pending data to disk. This is done only for channels which are
- * dirty, i.e. have been written to since the last flush here.
- */
-
- TclWinFlushDirtyChannels ();
-
nativePath = (TCHAR *) Tcl_FSGetNativePath(pathPtr);
result = (*tclWinProcs->setCurrentDirectoryProc)(nativePath);
@@ -850,6 +842,14 @@ TclpObjStat(pathPtr, statPtr)
return -1;
}
+ /*
+ * Ensure correct file sizes by forcing the OS to write any
+ * pending data to disk. This is done only for channels which are
+ * dirty, i.e. have been written to since the last flush here.
+ */
+
+ TclWinFlushDirtyChannels ();
+
return NativeStat((TCHAR*) Tcl_FSGetNativePath(pathPtr), statPtr);
}