summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2001-09-10 17:17:41 (GMT)
committerandreas_kupries <akupries@shaw.ca>2001-09-10 17:17:41 (GMT)
commit4b150f866b9cf91bb9974d7cd40a817c428d019e (patch)
tree192e2e551b9ccd4719de44b72ee348205dd2df89 /win
parent4d5d85ec3b978a2fdd3c1beb1107725a3df66803 (diff)
downloadtcl-4b150f866b9cf91bb9974d7cd40a817c428d019e.zip
tcl-4b150f866b9cf91bb9974d7cd40a817c428d019e.tar.gz
tcl-4b150f866b9cf91bb9974d7cd40a817c428d019e.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.
Diffstat (limited to 'win')
-rw-r--r--win/tclWinFile.c18
-rw-r--r--win/tclWinInt.h4
2 files changed, 10 insertions, 12 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);
}
diff --git a/win/tclWinInt.h b/win/tclWinInt.h
index 364f195..287ecb3 100644
--- a/win/tclWinInt.h
+++ b/win/tclWinInt.h
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclWinInt.h,v 1.10 2001/09/07 17:08:50 andreas_kupries Exp $
+ * RCS: @(#) $Id: tclWinInt.h,v 1.11 2001/09/10 17:17:42 andreas_kupries Exp $
*/
#ifndef _TCLWININT
@@ -100,8 +100,6 @@ EXTERN TclWinProcs *tclWinProcs;
EXTERN void TclWinInit(HINSTANCE hInst);
-EXTERN void TclWinFlushDirtyChannels _ANSI_ARGS_((void));
-
# undef TCL_STORAGE_CLASS
# define TCL_STORAGE_CLASS DLLIMPORT